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

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

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

4、在代码编辑窗口中输入一下代码：Private Sub app_WorkbookBeforePrint(ByVal Wb As Workbook, Cancel As Boolean)i = InputBox("请输入打印密码")If i = "112365" Then Cancel = FalseElse Cancel = True MsgBox "密码不正确不能打印！"End IfEnd Sub

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