'很简单的配置密码验证提示

     Dim add As String

     add = Trim(InputBox("请输入配置密码", "报表配置"))

     If add = "" Then

         MsgBox "密码不能为空，请重新输入！", , "提示信息"

         Exit Sub

     ElseIf add = "" Then

         Frm_Main.Show vbModal

         '初始化配置

         Call Config

     Else

         MsgBox "密码不正确，请重新输入！", , "提示信息"

     End If