一般情况下,为了保护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代码将失效。