怎样使用VBA禁止打印当前工作表

1、首先在开发工具中打开VBA编辑器

2、在单元格区域当中输入一些内容作为例子

3、在VBA编辑器中插入模块

4、在模块当中输入如下代码，然后运行Private Sub workbook_BeforePrint(Cancel As Boolean) Select Case ActiveSheet.Name Case "人事资料", "工资表" Cancel=True MsgBox "对不起,不允许打印 《" & ActiveSheet.Name & "》", vbOKOnly+48, "警告" End SelectEnd Sub

5、进入“人事资料”表，按组合键Ctrl+P打印当前表，程序立即阻止打印，并弹出警告框，如图所示