Защита ячеек

[Анна1703]

Подскажите народ, как защитить ячейку с формулой, чтобы невозможно было в ней поменять данные вручную

Пробовала щелкнув правой кнопкой на ярлычке листа, выбирать пункт Исходный текст, и в открывшийся редактор VBA вставлять следующий код:
Код:

Private Sub Worksheet_SelectionChange(ByVal Target As Range)
If Target.Cells.Count = 1 Then If Left(Target.Formula, 1) = "=" Then Target.Offset(1).Select
End Sub

Все вроде получилось но после закрытия документа и открытия его вновь эта процедура работать перестала.
С чем это может быть связано??

[EducatedFool]

После добавления кода

Private Sub Worksheet_SelectionChange(ByVal Target As Range)
    If Target.Cells.Count = 1 Then If Target.HasFormula Then Target(1, 2).Select
End Sub

необходимо сохранить файл Excel.

Тогда код переживёт перезапуск файла...

[Анна1703]

этот код необходимо написать после того который я писала ранее или вместо?
я попробовала но что-то опять не получается

(первый раз вставив код, который кстати вы написали http://programmersforum.ru/showthrea...EC%F3%EB%EE%E9 получилось следующее: ячейки в которых стоят формулы, недоступны стали для редактирования, пытаясь поставить на них курсор, он просто напросто соскакивал вниз, все считалось была возможность удалять ненужные строки и добавлять новые), но сейчас все это почему-то не работает

[EducatedFool]

Можно использовать любой из 2-х вариантов кода. Они идентичны по сути.

А лучше вообще обойтись без всяких макросов - для защиты ячеек с формулами никакие макросы не нужны.
Для этого есть пункт меню Сервис - Защита

[Анна1703]

пункт меню Сервис - Защита конечно очень хорош, только он не дает удалить строки и столбцы, даже в том случае если стоит галочка

[dzv]

Здравствуйте уважаемые участники "Клуба ПРОграммистов"!

EducatedFool, во 2-м посте уже ответил на вопрос, но я хотел спросить следующее.

Как запретить изменять содержимое ячейки на листе, в которой находится выпадающий список (через "Проверка"), но чтобы выбирать из списка было можно, с помощью макроса?!

Думаю в "... Target.HasFormula ..." нужно заменить на "... Target.[B]HasВыпадающий список ...", но как звучит команда в VBA не знаю, хотя пересмотрел много тем...

Заранее спасибо за помощь!

[EducatedFool]

Private Sub Worksheet_SelectionChange(ByVal Target As Range)
    ' только для ячеек с выпадающим списком (Validation.Type=3)
    On Error Resume Next: x = Target.Validation.Type
    If Target.Cells.Count = 1 Then If x = 3 Then Target.Next.Select
End Sub

[dzv]

Уважаемый EducatedFool, спасибо Вам!

Но с таким прыжком, очень тяжело выбрать что-то из списка, только выделив данную ячейку и соседнюю, можно наконец-то выбрать значения.
А также при выделении этих двух ячеек, списка + рядом ячейку, можно скопировать в ячейку со списком, копируемое значение, а мне это копирование как раз не нужно.

[EducatedFool]

В этом случае Вам поможет только Сервис - Защита - Защитить лист.

В виде кода это будет выглядеть примерно так:

Sub test()
    Cells.Locked = False
    [ЯчейкиСВыпадающимсписком].Locked = True
    ActiveSheet.Protect
End Sub

[dzv]

В этом случае Вам поможет только Сервис - Защита - Защитить лист.

EducatedFool, дело в том, что у меня защищен лист, не защищена только строка для ввода данных, в которой необходимо защитить список.
В таком случае, возможно, каким-нибудь образом запретить вставлять через специальную вставку в столбец G:G значения?