'很简单的配置密码验证提示 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
2022-09-18 07:44:51
'很简单的配置密码验证提示 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