Отключение пароля защиты листа кодом.

[segail]

Здравствуйте. Подскажите.
У меня лист защищен паролем, можно ли при клике по кнопке на форме отключать пароль?

[voam]

Можно.
Используйте метод объекта Worksheet Unprotect. Переменной Password необходимо передавать пароль, которым закрыт лист.

[segail]

Что-то не отключает. Как бы переменная Password не определяется.

Private Sub CommandButton2_Click() 
    Worksheets("Лист1").Activate
    ActiveSheet.Unprotect (Password = "1111")
End Sub

[EducatedFool]

Как бы переменная Password не определяется.

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

Вот 3 равнозначных варианта с верным синтаксисом:

Private Sub CommandButton_Click()
    Worksheets("Лист1").Unprotect Password:="1111"
End Sub

Private Sub CommandButton__Click()
    Worksheets("Лист1").Unprotect "1111"
End Sub

Private Sub CommandButton___Click()
    Password = "1111"
    Worksheets("Лист1").Unprotect Password
End Sub

[segail]

Два первых варианта работают, третий тоже не определяет Password
Но в первом и втором варианте выходит диалоговое окно для ввода пароля, нажимая кнопку “ок” без пароля выдает ошибку, нажимая кнопку “отмена” защита снимается. Как блокировать диалоговое окно пароля?

Private Sub CommandButton_Click()
    	ActiveSheet.Unprotect 'Снять защиту листа
	Worksheets("Лист1").Unprotect Password:="1111"
End Sub

[EducatedFool]

Как блокировать диалоговое окно пароля?

Вы что, издеваетесь?

Сложно запустить предложенный код? (любой из трех вариантов)
Нафига добавлять в код что-то своё, а потом предъявлять претензии?

Уберите свою строку ActiveSheet.Unprotect 'Снять защиту листа
и не будет запроса пароля...

[segail]

Не сознательно. Отталкивался от ручной последовательности снятие защиты, а затем ввод пароля, по этому и код так прописал.

Благодарю.