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

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

防止用戶使用VBA打印一張指定的工作表

防止用戶使用VBA打印整個工作簿

防止用戶使用VBA打印一張指定的工作表

驚人的！ 在 Excel 中使用高效的選項卡，如 Chrome、Edge、Firefox 和 Safari！
每天節省50％的時間，並減少數千次鼠標單擊！

您可以應用以下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中的一頁上打印長列？

最佳辦公生產力工具

	熱門特色: 尋找、突出顯示或識別重複項   |  刪除空白行   |  合併列或儲存格而不遺失數據   |   沒有公式的回合 ...
	超級查詢: 多條件VLookup  |   多值VLookup  |   跨多個工作表的 VLookup   |   模糊查詢 ....
	高級下拉列表: 快速建立下拉列表   |  依賴下拉列表   |  多選下拉列表 ....
	欄目經理: 新增特定數量的列  |  移動列  |  切換隱藏列的可見性狀態  |  比較範圍和列 ...
	特色功能: 網格焦點   |  設計圖   |   大方程式酒吧   |  工作簿和工作表管理器   |  資源庫 （自動文字）   |  日期選擇器   |  合併工作表   |  加密/解密單元格   |  按清單發送電子郵件   |  超級濾鏡   |   特殊過濾器 （過濾粗體/斜體/刪除線...）...
	前 15 個工具集:  12 文本 工具 (添加文本, 刪除字符，...）   |   50+ 圖表 類型 (甘特圖，...）   |   40+ 實用 公式 (根據生日計算年齡，...）   |   19 插入 工具 (插入二維碼, 從路徑插入圖片，...）   |   12 轉化 工具 (數字到單詞, 貨幣兌換，...）   |   7 合併與拆分 工具 (高級合併行, 分裂細胞，...）   |   ... 和更多

增強您的 Excel 技能 Kutools for Excel，體驗前所未有的效率。 Kutools for Excel 提供 300 多種高級功能，可提高工作效率並節省時間。  點擊此處獲取您最需要的功能...

閱讀更多... 免費下載...

---

Office Tab 為 Office 帶來選項卡式界面，讓您的工作更輕鬆

• 在Word，Excel，PowerPoint中啟用選項卡式編輯和閱讀，發布者，Access，Visio和Project。
• 在同一窗口的新選項卡中而不是在新窗口中打開並創建多個文檔。
• 將您的工作效率提高 50%，每天為您減少數百次鼠標點擊！

閱讀更多... 免費下載...