запуск макроса при изменении ячейки

[Бонни]

Подскажите пожалуйста...
Задача такая: нужно сделать так, чтобы при изменении любой ячейки текущего листа, предыдущий лист блокировался (защищался) с заданным паролем. Возможно это сделать?
Заранее спасибо.

[The_Prist]

Ответил на PlanetaExcel

Private Sub Workbook_SheetChange(ByVal Sh As Object, ByVal Target As Range)
On Error Resume Next
Sh.Previous.Protect "1234"
End Sub

1234 - Ваш пароль.

[Бонни]

Спасибо!