ユーザーがワークシートを印刷するのを防ぐにはどうすればよいですか？

日常業務において、ワークシートには重要な情報が含まれている場合があります。内部データの拡散を防ぐために、部門ではその印刷を許可しないことがあります。ここでは、ユーザーがワークシートを印刷するのを防ぐ方法について説明します。

VBAを使用して特定のワークシートの印刷を防止する

VBAを使用してワークブック全体の印刷を防止する

VBAを使用して特定のワークシートの印刷を防止する

以下のVBAコードを使用して、特定のワークシートの印刷を保護できます。

1. 印刷機能を無効にしたいワークシートをアクティブにします。

2. ALT + F11キーを押して、Microsoft Visual Basic for Applicationsウィンドウを開きます。

3. 左側のプロジェクトエクスプローラーで、ThisWorkbookをダブルクリックしてモジュールを開き、次のコードを貼り付けます。

VBAコード：特定のワークシートの印刷を防止する

Private Sub Workbook_BeforePrint(Cancel As Boolean)
'Update 20140625
Dim WsName As String
WsName = "Sheet1"
For Each xWs In Application.ActiveWorkbook.Windows(1).SelectedSheets
    If xWs.Name = WsName Then
    MsgBox ("You can not print this worksheet")
        Cancel = True
    End If
Next
End Sub

注意: 上記のコードでは、Sheet1は印刷が許可されていないアクティブなワークシートです。

4. その後、このコードを保存して閉じます。これで、この特定のワークシートを印刷しようとすると、次の警告が表示されます。

注意: このコードにより、特定のワークシートのみが印刷不可となりますが、他のシートは通常通り印刷可能です。

VBAを使用してワークブック全体の印刷を防止する

ワークブック全体の印刷を防止する必要がある場合、こちらにも役立つコードがあります。

1. 他人に印刷させたくないワークブックを開きます。

2. ALT + F11キーを押して、Microsoft Visual Basic for Applicationsウィンドウを開きます。

3. 左側のプロジェクトエクスプローラーで、ThisWorkbookをダブルクリックしてモジュールを開き、次のコードを貼り付けます。

VBAコード：特定のワークシートの印刷を防止する

Private Sub Workbook_BeforePrint(Cancel As Boolean)
'Update 20140626
Cancel = True
MsgBox "You can't print this workbook"
End Sub

4. その後、このコードを保存して閉じ、ワークブックに戻ります。これで、1つのワークシートまたはワークブック全体を印刷しようとすると、印刷は許可されず、次の警告が表示されます。

関連記事：

Excelで複数のワークブックを印刷するにはどうすればよいですか？

Excelで範囲を印刷するにはどうすればよいですか？

Excelで現在のページをすばやく印刷するにはどうすればよいですか？

Excelで長い列を1ページに印刷するにはどうすればよいですか？