エクセルの特定シート（複数）を印刷不可にするVBA

教えてください。VBA超初心者です。

エクセルで、特定の複数のシート（指定シート）を印刷不可にする方法はありますでしょうか？
いろいろと調べてみたところ、特定シート（一つ）を指定する場合はわかりました。

BBシート印刷不可。
==========================
Private Sub Workbook_BeforePrint(Cancel As Boolean)
If ActiveSheet.Name <> "BB" Then Exit Sub
MsgBox "印刷できません"
Cancel = True
End Sub
'==========================

できれば、3つあるシートのうち、
AAシートは印刷可能。
BBシートとCCシートは、印刷不可。
としたいのです。

ご伝授いただけると助かります。よろしくお願いします。

No.1 回答者： qualheart 回答日時： 2014/11/14 15:13

If ActiveSheet.Name <> "BB" Then Exit Sub

の部分を変えれば良いですよ。
ここに、印刷可能なシートを定義しておけば良いです。

たとえばAAシートのみを印刷可能にする場合は
If ActiveSheet.Name = "AA" Then Exit Sub
と書いておけば、AAの場合だけ印刷不可をかけないようになります。
同じ要領で、印刷可能にしたいシート分、書いておけばOKです。

ご参考まで。

この回答へのお礼

早速のご返答ありがとうございます。
If ActiveSheet.Name = "AA" Then Exit Sub

<>でなく、＝にして、印刷可能なファイルのみを設定すればよかったのですね。

印刷不可のシートで設定することばかり考えていました。
ありがとうございました。

お礼日時：2014/11/14 15:31