Как защитить и снять защиту листа с помощью пароля?

Question

У меня есть лист с именем «Ввод» и кнопка «Разблокировать». Лист «Ввод» должен быть заблокирован, как только открывается книга. Чтобы разблокировать «вход», нужно нажать на кнопку «Разблокировать», а затем ввести пароль. Кнопка «разблокировать» отсутствует на листе «Ввод»

Answer 1

Без пароля:

Sheet1.Unprotect
'do stuff
Sheet1.Protect

С паролем:

Sheet1.Unprotect "123" 'with 123 as a password
'do stuff
Sheet1.Protect "123"

Sheet1 в этом случае является кодовым именем, которое является статическим, поэтому не подлежит изменению (ни по индексу листа, ни по-имени). Я предлагаю вам найти лист кодового имени "Input" и использовать его вместо ThisWorkbook.Sheets("Input") или ThisWorkbook.Sheets(1).