1 '很简单的配置密码验证提示 2 3 Dim add As String 4 add = Trim(InputBox("请输入配置密码", "报表配置")) 5 If add = "" Then 6 MsgBox "密码不能为空，请重新输入！", 64, "提示信息" 7 Exit Sub 8 ElseIf add = "123456" Then 9 Frm_Main.Show vbModal 10 '初始化配置 11 Call Config 12 Else 13 MsgBox "密码不正确，请重新输入！", 64, "提示信息" 14 End If