如何防止用戶打印工作表？

在我們的日常工作中，工作表中可能包含一些重要信息，為了保護內部數據的擴展，部門將不允許我們打印它們。 在這裡，我將討論如何防止用戶打印工作表。

防止用戶使用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。 然後保存並關閉此代碼，並返回到工作簿，現在當您打印一個工作表或整個工作簿時，將不允許打印它們，並且會收到以下警告：

相關文章：

如何在Excel中打印多個工作簿？

如何在Excel中打印範圍？

如何在Excel中快速打印當前頁面？

如何在Excel中的一頁上打印長列？