Excel VBA で、マクロを実行するためのパスワード設定方法

質問

Excel VBA で、マクロを実行する時、ポップアップなどで、パスワードを要求するように設定し、パスワードを入力したら、続きのマクロを実行する方法を教えてください。

回答No.2

merlionXX · ベストアンサー

こんな感じかな。
パスワードを　merlion　にした場合です。

Sub test()
Dim strMOJI As String
strMOJI = InputBox("パスワードを入れてください")
If Len(strMOJI) = 0 Then
MsgBox "入力がありません"
Exit Sub
End If
If strMOJI <> "merlion" Then
MsgBox "ちがいます"
Exit Sub
End If
If MsgBox("認証しました。続行しますか？", vbYesNo) = vbYes Then
'その後の処理
Else
MsgBox "さいなら"
End If
End Sub

お礼

本当にご丁寧な解答ありがとうございます。

回答No.1

hana-hana3

InputBox　または、フォームでダイアログを作成して表示させてください。

お礼

ありがとうございます。