Как внутри макроса, средствами VBA, создать пароль на его выполнение?
То есть, при выборе макроса и при нажатии "выполнить" запрашивался бы пароль.
И еще вопрос: будет ли запрос пароля если макрос вывести на панель быстрого допуска?
Этот макрос может работать и с панели быстрого доступа.
Макрос
Sub Макрос()
Dim password As String
'1. Юзер указывает пароль.
password = InputBox("Введите пароль:")
'2. Если юзер щёлкнул "Cancel" или если в поле пусто, то завершение работы макроса.
If password = "" Then
Exit Sub
End If
'3. Проверка пароля.
' Если пароль неправильный, то завершение работы макроса.
If password <> "1234" Then
MsgBox "Неправильный пароль.", vbExclamation
Exit Sub
End If
'4. Если пароль правильный.
' Здесь действия макроса.
End Sub
Спасибо, всё работает.