Excel VBA Макросы: Пароль на выполнение макроса.

[lapin9126]

Как внутри макроса, средствами 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

[свернуть]

[lapin9126]

Спасибо, всё работает.