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

私たちの日常業務では、ワークシートにいくつかの重要な情報が含まれている可能性があります。内部データの拡散を保護するために、部門はそれらの印刷を許可しません。 そしてここでは、ユーザーがワークシートを印刷できないようにする方法について説明します。

ユーザーがVBAで指定されたXNUMXつのワークシートを印刷できないようにする

ユーザーがブック全体をVBAで印刷できないようにする

ユーザーがVBAで指定されたXNUMXつのワークシートを印刷できないようにする

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

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

2。 を押し続けます Alt + F11 キーを押して Microsoft Visual Basic forApplicationsウィンドウ.

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

VBAコード：ユーザーが指定されたXNUMXつのワークシートを印刷できないようにする

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。 次に、このコードを保存して閉じます。この特定のワークシートを印刷しようとすると、次の警告が表示されます。

Note：このコードでは、特定のワークシートのみを印刷することはできませんが、他のシートは通常どおり印刷できます。

ユーザーがブック全体をVBAで印刷できないようにする

ユーザーがワークブック全体を印刷できないようにする必要がある場合は、ここにコードがあります。

1。 他の人に印刷を許可しないワークブックを開きます。

2。 を押し続けます Alt + F11 キーを押して Microsoft Visual Basic forApplicationsウィンドウ。

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

VBAコード：ユーザーが指定されたXNUMXつのワークシートを印刷できないようにする

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

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

関連記事：

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

Excelで範囲を印刷する方法は？

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

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