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

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

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

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

4、在代码编辑窗口中输入一下代码：

Private Sub app_WorkbookBeforePrint(ByVal Wb As Workbook, Cancel As Boolean)

i = InputBox("请输入打印密码")

If i = "112365" Then

  Cancel = False

Else

  Cancel = True

  MsgBox "密码不正确不能打印！"

End If

End Sub

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

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

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