如何通过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代码将失效。

知识改变命运,科技成就未来。如果您有什么好的建议或意见,请在下方留言告诉我们,感谢您的支持。

  • 发表于:
  • 原文链接https://kuaibao.qq.com/s/20200601A0JJ1700?refer=cp_1026
  • 腾讯「云+社区」是腾讯内容开放平台帐号(企鹅号)传播渠道之一,根据《腾讯内容开放平台服务协议》转载发布内容。
  • 如有侵权,请联系 yunjia_community@tencent.com 删除。

扫码关注云+社区

领取腾讯云代金券