запуск МАКРОСА В Excel по условию из ячейки

[SAMpicasso]

доброго времени суток
большая потребность в запуске мкроса по условию из ячейки

задача
при написании пароля
на листе 4 возобновляются ячейки
+скрыть лист4(без макроса)
тк файл не загрузить перескажу чего сделал
лист 1 проверка =ЕСЛИ(Лист4!A1=1;"ВСЕ КРУТО";"плохо")
на листе 4 столбец a1:A17(состоит из единиц)
при открытии книги
Private Sub Workbook_Open()
MsgBox "Доброго времени суток", , "Сообщение!"
Sheets("Лист4").Select
Selection.Delete Shift:=xlUp
Sheets("Лист1").Select
Range("A3:H11").Select
ActiveCell.FormulaR1C1 = "=IF(Лист4!R[-2]C=1,""ВСЕ КРУТО"",""плохо"")"
Range("A12:H13").Select
ActiveCell.FormulaR1C1 = _
"=IF(Лист4!R[-11]C=1,COUNT(Лист4!R[-11]C:R[-17]C),"" "")"
ActiveWorkbook.Save
End Sub
некий изврат удаляет строчку
удалив все домножу все важные числа на тект, тем самым не давая работать дальше

было бы не плохо введя некий пароль в ячейку
а) возобновить столбец А на листе4
б) введя другой пароль остановить макрос в принципе
заранее благодарен SAM

 

[alex77755]

Можно использовать процедуру:
Private Sub Worksheet_Change(ByVal Target As Range)

Здесь вписать код проверки адреса ячейки
если да - проверка содержимого
если = паролю
макрос
если не правильно, можно добавть публичную константу и наращивать. Допустим просле трёх непрвильны - запретить запуск макроса


End Sub