Excel 特定のシートを印刷不可にする方法

質問

教えてください。

Excelで、特定のシートを印刷不可にする方法はありますでしょうか？

Book全体で印刷不可にする方法は、以下
'==========================
Private Sub Workbook_BeforePrint(Cancel As Boolean)
Cancel = True '※１
タイトル = "ペーパーレス運動実施中！"
スタイル = 48 'vbexclamation
メッセージ = "印刷しないでください"
応答 = MsgBox(メッセージ, スタイル, タイトル)
End Sub
'==========================
で可能なことは認識しています。

よろしくお願いします。

回答No.1

merlionXX · ベストアンサー

そこまでできてるならあとはシート名でチェックすればいいのでは？

Private Sub Workbook_BeforePrint(Cancel As Boolean)
If ActiveSheet.Name <> "特定のシート名" Then Exit Sub
Cancel = True '※１
タイトル = "ペーパーレス運動実施中！"
スタイル = 48 'vbexclamation
メッセージ = "印刷しないでください"
応答 = MsgBox(メッセージ, スタイル, タイトル)
End Sub

こんな感じかな。

お礼

ご回答、ありがとうございます。

バッチリ、求めていた通りの動きでした。
自分はなかなか応用がきかないので、非常に助かりました！

回答No.3

meron_

見事にかぶりました。

回答No.2

meron_

アクティブシート名を指定すればどうでしょうか？

Private Sub Workbook_BeforePrint(cancel As Boolean)
If ActiveSheet.Name = "Sheet2" Then
タイトル = "ペーパーレス運動実施中！"
スタイル = 48 'vbexclamation
メッセージ = "印刷しないでください"
応答 = MsgBox(メッセージ, スタイル, タイトル)
cancel = True
End If
End Sub

複数のシートであれば　or または Select Case で。

お礼

ご回答、ありがとうございます。
バッチリ求めていた動きをしました。

＞複数のシートであれば　or または Select Case で。

こちら、更に応用がききますね。
今後の活用させていただきます！