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