エクセルVBA設定 パスワード入力しても印刷不可

質問

エクセルVBAでパスワードを入力しないと印刷できない設定にしました。

Private Sub Workbook_BeforePrint(Cancel As Boolean)
Password = "1111"
x = InputBox("印刷注意　パスワード")
If x = Password Then
Else
Cancel = True
End If
End Sub

パスワード【1111】を入力しても印刷できないのですが、なぜでしょう？

回答No.1

kybo · ベストアンサー

おそらく、「Password」という名前の変数が良くないものと思われます。

「Pass」に変数名を変更すれば問題なく動作します。

Private Sub Workbook_BeforePrint(Cancel As Boolean)
Pass = "1111"
x = InputBox("印刷注意　パスワード")
If x = Pass Then

Else
Cancel = True
End If
End Sub

お礼

ありがとうございます！
印刷できました。助かりました。