エクセル マクロ 印刷禁止設定について

質問

いつもお世話になっております。

職場の当該部署で作成している「エクセル」でのファイルが、他部署でも閲覧できるネットワーク環境にあるのですが、「当該部署では印刷が可能であるが、他部署は閲覧のみで印刷は不可」という設定にしたく、質問させて頂きました。

理想は、印刷時に「パスワード」を入力することで印刷が可能になる設定

にしたく、ネットで色々情報を探しましたところ、下記のようなマクロがありました。

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

試した所、「印刷」をおすと「印刷注意　パスワード」の表示があり、下に入力があるため「１１１１」と入力をするんですが、印刷できずそのまま元のエクセル画面に戻ってしまいます。

私が理想としている　マクロとは違うのでしょうか？何か、良いマクロがあればご教授頂ければ幸いです。宜しくお願い致します。

回答No.1

keithin · ベストアンサー

とりあえず

変更前：
Password = "1111"
　：
If x = Password Then

変更後：
z = "1111"
　：
If x = z Then

としてみましょう。

お礼

ご回答ありがとうございました。

早速、試しに行ってみた所、出来るようになりました！！感謝です。