Как защитить рабочий лист от ввода с клавиатуры, но не от действий макроса ?

[valerij]

МногоУважаемый Pashulka, в миру Павел, для решения этого вопроса, предлагает:

Worksheets(1).Protect UserInterfaceOnly:=True

Правильно я понимаю, нужно открыть в редакторе Лист1 и просто вставить это выражение, ни чего не меняя?

[VictorM]

Чтобы все это дело сработало, нужно его запустить.
Обычно это делается в модуле "ЭтаКнига", примерно так:

Private Sub Workbook_Open()
Sheets("НАКЛ").Protect Password:="12345", UserInterfaceOnly:=True
End Sub

чтобы снять эту защиту в случае необходимости, нужно будет написать

Sheets("НАКЛ").UnProtect Password:="12345"

Также можно ставить и снимать эту защиту в любое время, в любом макросе. Например в начале работы макроса - сняли, произвели необходимые действия - в конце опять поставили защиту. Эта защита также снимается через меню "Сервис" > "Защита".

[valerij]

Тогда, почему Здесь, так?

И еще по защите, почему, мне, надо сначала снять защиту, а потом вкл. защиту книги, тогда макрос работает, по другому, т. е. открываю книгу с вкл. защитой, макрос пишет ошибку, сделал манипуляции, все ОК!
Как это сделать в автомате.

Sub Макрос1()
Application.Run "'44_2.xls'!UnProtectAllSheets" 'снять защиту Ctrl+ц
Application.Run "'44_2.xls'!ProtectAllSheets" 'Включить защиту Ctrl+й
End Sub

[VictorM]

С указанным Вами сайтом я знаком оччччень давно, регулярно там бываю и нахожу много познавательного.

Тогда, почему Здесь, так?

потому что Вам дана только одна строка кода общего вида, выполняющая определенную задачу. Точно так же запись Range("A2").Select вне контекста кода макроса ничего не сделает.

[valerij]

Сообщение от VictorM

потому что Вам дана только одна строка кода общего вида, выполняющая определенную задачу.

А-а, понял, а как мне сделать автомат, #.3

[VictorM]

а как мне сделать автомат, #.3

еще раз можно? Что за автомат?

[valerij]

Сообщение от VictorM

еще раз можно? Что за автомат?

Открыл файл, а он сам сначала снял защиту, потом поставил, ее

Мне защита очень нужна, а то моя бабушка может вставить данные мимо.

[VictorM]

Открыл файл, а он сам

для этого все пишется в модуле "ЭтаКнига"

Private Sub Workbook_Open()   
'Ваш код
End Sub