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 vbModal10         ‘初始化配置11         Call Config12     Else13         MsgBox "密码不正确，请重新输入！", 64, "提示信息"14     End If