在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 = FalseElse MsgBox "Sorry,wrong password,please input again!" GoTo 100End IfEnd Sub

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

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

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