在VBA中，加载宏的实例应用（2）

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

2、在VBA界面左侧栏中选择加载宏【new.xlam】中的【thisworkbook】!

3、在加载宏【new.xlam】左边下拉箭头菜单中选择【app】,右边的下拉箭头菜单中选择【workbookopen】!

4、在加载宏【new.xlam】代码编辑窗口输入以下代码：

Private Sub app_WorkbookOpen(ByVal Wb As Workbook)

100:

i = InputBox("Please input the password")

If i = "112365" Then

  MsgBox "Thanks for your visit!"

  Application.EnableEvents = False

Else

  MsgBox "Sorry,wrong password,please input again!"

  GoTo 100

End If

End Sub

5、点击【保存】按钮，并关闭退出工作簿！

6、这是当我们打开任意一个EXCEL工作簿时，都会跳出输入密码对话框，只有密码输入正确后才能进入！

7、提示以下，代码中的“112365”，即为密码！