在EXCEL工作簿中，加载宏的实例应用（1）

1、在工作表中，点击菜单栏【开发工具】，在其工具栏内，点击【visual basic】!

2、会进入VBA编辑界面！双击左侧栏加载宏【new.xlam】中的【thisworkbook】！

3、在弹出的代码编辑窗口中的左下拉箭头中选择【app】,右下拉箭头中选择【WorkbookBeforePrint】！

4、在代码编辑窗口中输入一下代码：Private Sub app_WorkbookBe酆璁冻嘌forePrint(ByVa造婷用痃l Wb As Workbook, Cancel As Boolean)i = InputBox("请输入打印密码")If i = "112365" Then Cancel = FalseElse Cancel = True MsgBox "密码不正确不能打印！"End IfEnd Sub

5、点击保存后，关闭EXCEL工作簿！

6、重新打开任意EXCEL工作簿！点击【打印】按钮，都会弹出要求输入打印密码的对话框！

7、只有正确输入密码后，才可以打印！否则提示【密码不正确不能打印！】