[VBA]inputbox 点取消时直接关闭inputbox,而不是直接运行ELSE
Subprotect()OnErrorResumeNextDimaAsSinglea=InputBox("请输入登陆密码","管理登陆")Ifa=1346#ThenShe...
Sub protect()
On Error Resume Next
Dim a As Single
a = InputBox("请输入登陆密码", "管理登陆")
If a = 1346# Then
Sheet3.Visible = xlSheetVisible
Sheet3.Activate
MsgBox "欢迎回来"
Else
MsgBox "密码错误"
End If
End Sub 展开
On Error Resume Next
Dim a As Single
a = InputBox("请输入登陆密码", "管理登陆")
If a = 1346# Then
Sheet3.Visible = xlSheetVisible
Sheet3.Activate
MsgBox "欢迎回来"
Else
MsgBox "密码错误"
End If
End Sub 展开
展开全部
Sub protect()
On Error Resume Next
Dim a As String
a = InputBox("请输入登陆密码", "管理登陆")
If a = "ABC" Then
Sheet3.Visible = xlSheetVisible
Sheet3.Activate
MsgBox "欢迎回来"
ElseIf StrPtr(a) <> 0 Then
MsgBox "密码错误"
Else
End
End If
End Sub
追问
点取消还是会返回密码错误
追答
我看了，是定义的数据类型的问题。
Sub protect()
On Error Resume Next
Dim a As String
a = InputBox("请输入登陆密码", "管理登陆")
If a = "ABC" Then
Sheet3.Visible = xlSheetVisible
Sheet3.Activate
MsgBox "欢迎回来"
ElseIf StrPtr(a) <> 0 Then
MsgBox "密码错误"
Else
End
End If
End Sub
本回答被提问者采纳
已赞过
已踩过<
评论
收起
你对这个回答的评价是？
推荐律师服务：
若未解决您的问题，请您详细描述您的问题，通过百度律临进行免费专业咨询
