エクセルのｓｈｅｅｔ１つだけの印刷制御について

質問

ｗｉｎ　ｘｐ　ｏｆｆｉｃｅ２００３を使用しています。

全てのｓｈｅｅｔの印刷制御は、下記の方法でできるのはわかっているのですが．．．．．
*************************************************
Private Sub Workbook_BeforePrint(Cancel As Boolean)
MsgBox "このExcelシートは、印刷できません", vbExclamation
Cancel = True
End Sub
*************************************************

１つのシートだけを印刷できないようにするにはどうしたら良いでしょうか？

回答No.3

imogasi · ベストアンサー

ThisWorkbookに
Private Sub Workbook_BeforePrint(Cancel As Boolean)
If ActiveSheet.Name = "Sheet3" Then
MsgBox "このシートは印刷不可"
Cancel = True
End If
End Sub
といれ
Sheet1をAcｔiveにしてます。そういう状態で
Sub test01()
MsgBox ActiveSheet.Name
Worksheets("sheet3").Range("a1:c3").PrintOut
End Sub
を実行すると、Sheet1と表示され、Sheet3が印刷されました。
だから操作で印刷する場合は、印刷するシートを必ずアクチブにするでしょうが、マクロも含めると、具体的に印刷するシート名を指定して禁止しないと駄目だと思います。しかし、プリントしようとしているSheet名をVBAで捉える方法が判りません。取りあえず。

お礼

ご丁寧に回答頂きましてありがとうございます。今回教えて頂いた事を仕事に生かさせて頂きます。

回答No.2

shishishishi

Private Sub Workbook_BeforePrint(Cancel As Boolean)
If ActiveSheet.Name = "Sheet1" Or ActiveSheet.Name = "ほげほげ" Then
MsgBox "このExcelシートは、印刷できません", vbExclamation
Cancel = True
End If
End Sub

ですね。

回答No.1

shishishishi

例えばSheet1だけそうしたいのであれば

Private Sub Workbook_BeforePrint(Cancel As Boolean)
If ActiveSheet.Name = "Sheet1" Then
MsgBox "このExcelシートは、印刷できません", vbExclamation
Cancel = True
End If
End Sub

でいかがでしょうか？

お礼

早急な回答ありがとうございます。早速、試してみましたが、即効ＯＫでした。ありがとうございます。
ちなみに、２つ以上のsheetに同内容の印刷制御を施すにはどうしたらよろしいでしょうか？

大変お手数ですが、お教え頂けませんでしょうか?

補足

すみません。あともうひとつ。sheet名が、たとえばA又はBの場合

If ActiveSheet.Name ="Ａ"or"B"

みたいな事はできるのでしょうか？

複数のエクセルファイルがあり、一気に印刷制御を掛けたいんです。