如何通过VBA代码实现禁止用户打印Excel工作表？保护隐私必备技能

一般情况下，为了保护Microsoft Excel工作簿的安全性，会对工作簿进行加密处理，这是保护工作薄安全性的方法之一。如果通过打印的方法，工作簿的安全性还是没有得到保障，容易造成重要文件泄密，怎么杜绝这种情况发生呢？

我们可以通过VBA代码来实现禁止用户打印Microsoft Excel工作簿，接下来一起看一下具体操作流程。

以素材文件为例，右键单击工作表列表区域的Sheet1，选中右键菜单中的“查看代码”。

在Visual Basic编辑中，双击左侧工程资源管理器中的ThisWorkbook，将以下代码复制粘贴到代码窗口中。

代码区域：

Private Sub Workbook_BeforePrint(Cancel As Boolean)

MsgBox "该工作表已设置打印权限，如需打印，请与作者联系！"

Cancel = True

End Sub

这时打印工作薄中任意工作表，会有提示框提醒用户，并禁止打印。

有些小伙伴可能会遇到这样的问题，一个工作簿中怎么设置禁止用户打印部分工作表。

以素材文件为例，素材工作簿中有多个工作表，如何设置让用户只能够打印“汇总表”，分表只能查看，不能打印呢？

只需将VBA代码改为以下代码即可。

代码区域：

Private Sub Workbook_BeforePrint(Cancel As Boolean)

On Error Resume Next

If ActiveSheet.Name = "汇总表" Then

Exit Sub

Else

MsgBox "该工作表已设置打印权限，禁止打印。请打印“汇总表”！"

Cancel = True

End If

End Sub

这时打印工作簿中其他分表时，会有提示框提示禁止打印。打印“汇总表”没有影响。

今天的分享到此结束，最后的存储文件环节非常重要，需要将包含VBA代码的Excel工作簿另存为“*.xls”或“*.xlsm”格式，否则VBA代码将失效。