ある特定のファイルを印刷禁止に設定する方法

質問

会社の大部屋でネットワークで共有のプリンターを使っている環境で、人事評価等の丸秘文書等を作成中に誤ってプリンタのアイコンに触れ、印刷されてしまう場合があります。それを防ぐために、特定のファイルのみ、
自分で印刷禁止の設定をしておきたいのですが、どのようにすれば、特定のファイルのみ印刷禁止設定ができるでしょうか、お伺い申し上げます。

パソコンは、Windows　MEとXP
ソフトはワードとエクセルです。

よろしくお願いします。

回答No.1

neKo_deux · ベストアンサー

Word, Excelの機能だけで実現しようとすると、VBAを使って、こちらのNo.4さんのような方法でしょうか？

> 誤ってプリンタのアイコンに触れ、

ですと、「印刷禁止の文書です！」などの表示を出すと良いでしょう。

No.103296 質問：機密文書を印刷できなくするには
http://oshiete1.goo.ne.jp/kotaeru.php3?q=103296

--
Office2003の、Information Rights Management (IRM)という機能だと、それっぽい事が出来そうです。

企業の重要な情報を保護するソリューション
http://www.microsoft.com/japan/office/business/irm/default.mspx

確実性が高く、最近比較的メジャーな方法ですと、PDF形式のファイルに変換した上で印刷禁止の設定を行います。

参考URL：

http://oshiete1.goo.ne.jp/kotaeru.php3?q=103296

補足

アドバイス有難うございます。NO.4さんの方法（下記）の仕方がわかりません。どうすれば、This work book
がでてくるのでしょうか？　すみません。教えてください。

回答文引用：「ThisWorkBookに
Private Sub Workbook_BeforePrint(Cancel As Boolean)
Cancel = True
End Sub」

回答No.2

imogasi

＃１の補足に関して。
ワークシートのメニューで、ツール－マクロ－ＶＢＥのクリックで出る画面の、左側の小ウインドウに（出てなければメニューの表示－プロジェクトエクスプローラーをクリックで出るでしょう）VBAProject（Ｂｏｏｋ名）のところにThisWorkbookがあるからクリックする。
右のコードウインドウの上部の左に（General)と出ているところの▼をクリックするとWorkbookが出るのでクリック
し、右の方の▼をクリックしてBeforePrintを探しクリックする。
Private Sub Workbook_BeforePrint(Cancel As Boolean)

End Sub
が出るから、その真中に、下記の中身をコピーし貼りつけ
Private Sub Workbook_BeforePrint(Cancel As Boolean)
password = "1111"
x = InputBox("印刷注意　パスワード")
If x = password Then
Else
Cancel = True
End If
End Sub
のようにする。
上記はテスト済み。
中身丸見えのものですが、回りがVBAを知らない方ばかりなら使えるかも知れない。

お礼

Imogasi様
大変参考になりました。魔法のようです。まさに、このような形を希望しておりました。有難うございました。
エクセルファイルは、印刷禁止設定ができるようになりました。
良く使うのはワードの方でして、ワードも同じように試みましたが、うまくできません。
お手数ですが、ワードの方も同じように、ご教示お願いできないでしょうか、よろしくお願いします。