印刷できないExcelファイルを作りたい

質問

社内ネットに金額入りの営業資料（Excel）を掲載したいのですが、印刷されて外部に持ち出されると困るので、印刷不可に出来ないか考えています。そのようなExcelの設定か、あるいはVBAで印刷不可に出来ないでしょうか？イメージとしては印刷コマンドが実行されようとすると「このファイルは印刷不可です」と表示が出て、それ以上先に進めなくするようにしたいのです。可能でしょうか？

回答No.2

hige_082 · ベストアンサー

完全ではないので、注意喚起程度に考えてください

'ThisWorkbookモジュールへ
Private Sub Workbook_BeforePrint(Cancel As Boolean)
Cancel = True
MsgBox "このファイルは印刷不可です", 16
End Sub

お礼

早速の回答有難うございました。とりあえずhige_082様のVBAでしのぐことにしました。（私の考えに一番近かったから）しかし、VBAの内容がいまいち分かりません。cancel=trueの部分はその前にIF分がひょっとして入るのではないでしょうか？以下のように改造して使わせてもらいます。（これでちゃんと動きました。有難うございました）

Private Sub Workbook_BeforePrint(Cancel As Boolean)
　If ActiveSheet.Name= "Sheet1" Then
　　MsgBox "このファイルは印刷不可です"
　　cancel = True
　End If
End Sub

回答No.4

imogasi

#1でおっしゃる通りだし
＃２もすぐ連想しました。VBAをかじっている人には変えてしまえるのでは。
メニューのファイルー印刷の印刷メニューをメニューに表示しないプログラムもVBAで作れたと思う。
ーー
PDFについて
http://oshiete1.goo.ne.jp/qa843590.html
Googleなどで「PDF "印刷できない"　設定」で照会して出た記事の一例
http://q.hatena.ne.jp/1142389967
それを破る方法
どれも経験者ではありません。何でも、仕組みを知っていて、プログラムを組める人にかかると、または裏ソフトなどあって知っているとどうしようもない。

回答No.3

riveron77

※Excel以外はNGでしたら、スルーしてください(汗)

ExcelをPDFに変換して掲載する、という手段ではどうですか？

【クセロ 瞬簡PDF ZERO】
http://xelo.jp/xelopdf/pdfzero/index.html

↑こちらはExcelだけでなく、WordなどもPDFに変換可能なフリーソフトです。こちらをインストール後、マニュアルの38ページ「セキュリティの設定」付近から読んでいくと、39ページの画像に「印刷を許可しない」というチェックボックスがあるんで、印刷できないPDFに変換できるのかな、と思われます。

おそらく有料のPDF変換ソフトでも可能では？と予想されます。
有名なところだと↓この辺でしょうか？

【Adobe Acrobat】
http://www.adobe.com/jp/products/acrobat/?promoid=BPBQQ
無料体験版もダウンロード可能ですので、試されてみては。

回答No.1

kernel_kazzz

Excelでコントロールしたとしても、スクリーンキャプチャできてしまえば元の木阿弥です。
そういう社外秘データは、社内ネットに載せる事自体から見直す必要は無いですか？