Макрос для защиты ячеек по наличии в них данных

[ru3000]

Всем добрый день. Есть один вопрос, самому что-то никак не разобраться.
Задача такая - есть защищенный лист, пользователь вводит в незащищенную ячейку знак "!", после чего эта ячейка автоматически становиться защищенной и пользователь уже не может удалить знак "!". Как это реализовать? Полагаю, без макросов тут не обойтись. Заранее спасибо всем откликнувшимся.

[IgorGO]

правой кнопкой по ярлыку листа, "исходный текст"
скопируйте туда это:

Private Sub Worksheet_Change(ByVal Target As Range)
  If Target.Cells.Count > 1 Then Exit Sub
  ActiveSheet.Unprotect
  Target.Locked = Target <> ""
  ActiveSheet.Protect
End Sub

[ru3000]

Спасибо, макрос прекрасно работает.
Только вот он срабатывает на любой вводимый знак, а хочется чтобы срабатывал именно на знак ! (восклицательный знак).

[IgorGO]

однако...
исправте:
Target.Locked = Target <> ""
на:
Target.Locked = Target = "!"

[ru3000]

Спасибо еще раз. Действительно сильно помогли.

[ru3000]

Я еще с одним вопросом по теме. Если страница защищена паролем, то при выполнении вашего макроса каждый раз требуется вводить пароль. Без пароля же все работает на ура. Как можно научить макрос обойти этот момент, что бы он сам вводил пароль? Заранее еще раз спасибо.

[ru3000]

Сам нашел:

     
.Unprotect (ПАРОЛЬ)
.Protect (ПАРОЛЬ)

IgorGO, спасибо еще раз.

[IgorGO]

))) а чуть-чуть справку почитать слабо?

Private Sub Worksheet_Change(ByVal Target As Range)
  If Target.Cells.Count > 1 Then Exit Sub
  ActiveSheet.Unprotect ("ВашПароль")
  Target.Locked = Target = "!"
  ActiveSheet.Protect ("ВашПароль")
End Sub

[IgorGO]

Сам нашел:

это универсальный и самый правильный подход.
поздравляю!

[Stabilitron]

Классный макрос, подскажите ещё такой один момент, а если мне надо только в двух или трёх определенных ячейках блокировка после ввода данных? А остальные ячейки не трогались чтобы, как модернизировать можно скрипт этот? )