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

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

No.2 ベストアンサー 回答者： merlionXX 回答日時： 2005/03/05 10:26

こんな感じかな。

パスワードを　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

この回答へのお礼

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

お礼日時：2005/03/06 12:20

No.1 回答者： hana-hana3 回答日時： 2005/03/05 00:52

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

この回答へのお礼

ありがとうございます。

お礼日時：2005/03/06 12:20