Возвращать значение

[Артур Иваныч]

Здравствуйте ВСЕМ!
У меня вопрос:
У меня имеется код, который находит в листе(в таблице) ячейку с определённым значением(например, слово в ячейке "ИТОГО"), эта самая ячейка с этим словом постоянно меняет "своё местоположение", то есть её место на листе НЕ фиксировано! Вот код,который его находит:

Private Sub Worksheet_Change(ByVal Target As Range)
Dim r As Range
Set r = ActiveSheet.UsedRange.Find("ИТОГО", , xlValues, xlWhole)
Cells(r.Row, 3) = "" 'ВОТ ЭТА ЯЧЕЙКА!!!
End Sub

известно только то, что столбец постоянно третий, а вот строка меняется,поэтому такой код!
вопрос: Что мне набить в этот код, чтобы если человек захочет изменить слово в этой ячейке или очистить её, что значение "ИТОГО" обратно возращалось, то есть чтобы человек не смог изменить содержимое этой ячейки?
ну или хотя бы как её защитить, чтоб вообще человек не смог выделить её?
Заранее спасибо!

[Pavel55]

Мне кажется тут можно сделать так

1) Выделить все ячейки на листе, щёлкнуть правой клавишей мыши, выбрать "Формат ячеек...", зайти в вкладку "Защита" и снять галочку "Защищаемая ячейка"
2) Выделить ячейку с Итого, щёлкнуть по ней правой клавишей мыши, выбрать "Формат ячеек...", зайти в кладку "Защита" и поставить галочку "Защищаемая ячейка"
3) зайти в меню "Сервис - Защита - Защитить лист...", отметить галочками все пункты, ввести любой пароль и нажать "ОК"

Теперь вы всё можете делать со всеми ячейками, но не сможете изменить ячейку с "ИТОГО"

[Serge 007]

Сообщение от Pavel55

Мне кажется тут можно сделать так

1) Выделить все ячейки на листе, щёлкнуть правой клавишей мыши, выбрать "Формат ячеек...", зайти в вкладку "Защита" и снять галочку "Защищаемая ячейка"
2) Выделить ячейку с Итого, щёлкнуть по ней правой клавишей мыши, выбрать "Формат ячеек...", зайти в кладку "Защита" и поставить галочку "Защищаемая ячейка"
3) зайти в меню "Сервис - Защита - Защитить лист...", отметить галочками все пункты, ввести любой пароль и нажать "ОК"

Теперь вы всё можете делать со всеми ячейками, но не сможете изменить ячейку с "ИТОГО"

Чёт Вы давно на планете не были :-)

[Pavel55]

) к сожалению, времени свободного мало. Я там бываю, но отвечаю редко и под другим ником ) Просто там можно любой ник забить при ответе, а тут пришлось со своим залогиниться, чтобы ответить )

[Serge 007]

Ждём, скучаем :-)

[Pavel55]

Ещё можно попробовать так

Private Sub Worksheet_SelectionChange(ByVal Target As Range)
    If Target.Cells.Count > 1 Then Exit Sub
    If Not Intersect(ActiveCell, Columns(3)) Is Nothing Then
        If UCase(ActiveCell) = "ИТОГО" Then
            Application.EnableEvents = False
            ActiveCell.Offset(0, 1).Select
            Application.EnableEvents = True
        End If
    End If
End Sub

При выделении ячейки с Итого курсор будет перескакивать на соседнюю справа ячейку. Но этот способ хуже, т.к. можно выделить несколько ячеек вместе с Итого и удалить (очистить) их

[Pavel55]

Сообщение от Serge 007

Ждём, скучаем :-)

Вы мне льстите ) На планете и без меня очень много профессионалов, которые знают гораздо больше меня ) Я бы очень хотел, чтобы свободного времени было больше и я мог бы уделять его Планете.

[Артур Иваныч]

Спасибо
но всё это не то(
не пашет

[Pavel55]

Что вариант с защитой листа не работает? Человек всё равно может удалить слово "Итого" в ячейке?

[Артур Иваныч]

да я что-то не заметил
что этот код делает((
чёт как-то мёртво