Защита листа и макросы

[Sensy]

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

[The_Prist]

Sub Protect_for_User_Non_for_VBA() 
    ActiveSheet.Protect UserInterfaceOnly:=True 
End Sub

[Sensy]

Спасибо большое! Работает.

[SAS888]

Хочу обратить внимание, что опция UserInterfaceOnly:=True не сохраняется при закрытии (даже сохраненной) книги. Поэтому, при следующем открытии файла, макрос снова не сможет изменять защищенные ячейки. Для достижения требуемой цели, в модуль "Эта книга" по событию открытия книги нужно добавить код, который будет сначала снимать защиту с листа, а затем вновь устанавливать с опцией UserInterfaceOnly:=True. Только в этом случае все будет работать как надо.