Защита кнопки

[Любовь87]

Задала кнопке макрос, который защищает все листы книги:

Sub ProtectAllSheets()
'защищаем все листы
Dim Sh As Worksheet
For Each Sh In ThisWorkbook.Sheets
Sh.Protect Password:="eagc", Contents:=True, Scenarios:=True, UserInterfaceOnly:=True
Next
MsgBox "Все листы защищены!", vbInformation, "Защита"
End Sub

Подскажите как сделать так, чтобы при нажатии этой кнопки запрашивался пароль, после ввода которого выполнялось действие кнопки (ставилась защита всех листов). Если пароль был введён неправильно, то защита всех листов не выполнялась.

[IgorGO]

перед For напишите psw = InputBox(...)
а чтобы все было по-взрослому, то форму, на ней TextBox, в свойстве PasswordChar текстбокса впишите, например, *. тогда вместо вводимого пароля будут отображаться звездочки, и злоумышленник не подсмотрит пароль с экрана, а только следя за пальцами.

[Любовь87]

а как же условие неверного пароля?
при вводе любого пароля выполняется защита всех листов.
Расскажите пожалуйста, подробнее где найти свойство PasswordChar?

[IgorGO]

см. поле ввода на листе.
пишите туда что-нибудь. звездочки видите?
свойство PasswordChar ищите в списке свойств на букву P (Пи).

[Любовь87]

Спасибо. поняла как вы делаете на TextBox.
Посмотрите в моём примере, что я делаю не так. У меня при вводе любого пароля на листе Месяц выполняется защита листов. И можно ли как то мою кнопку связать с полем ввода или сделать такие свойства на данной кнопке?

[staniiislav]

Сообщение от Любовь87

Спасибо. поняла как вы делаете на TextBox.
Посмотрите в моём примере, что я делаю не так. У меня при вводе любого пароля на листе Месяц выполняется защита листов. И можно ли как то мою кнопку связать с полем ввода или сделать такие свойства на данной кнопке?

посмотрите вот здесь:
http://hiprog.com/index.php?option=c...=451&Itemid=35