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”，即为密码！
