inputbox函数返回结果判断

xhrys

想用inputbox做一个密码输入以达到简单隐藏某个工作表的目的，下面是自己写的，有着很大的缺陷，当没有输入密码点取消或点确定的时候，返回的结果都是“您选择了取消”，这是错误的。怎么改正为:当不输入任何字符时，点击取消，提示选择了取消，点击确定，提示要输入密码？

1. Private Sub Worksheet_SelectionChange(ByVal Target As Range)
   
2. If Target.Address = "$F$1" Then
   
3.    t = InputBox("请输入密码以获得查看权限", "销售中心")
   
4.    If t = "销售" Then
   
5.        ThisWorkbook.Worksheets("解析说明").Activate
   
6.        ThisWorkbook.Worksheets("解析说明").Visible = xlSheetVisible
   
7.    ElseIf t <> "" Then
   
8.        MsgBox "密码错误，请输重新输入密码！"
   
9.    Else
   
10.        MsgBox "您选择了取消！"
    
11.    End If
    
12. End If
    
13. End Sub
    

复制代码

qcw811206

用这个函数application.inputbox ，比你那个好
你研究一下

danio112

Private Sub Worksheet_SelectionChange(ByVal Target As Range)
If Target.Address = "$F$1" Then
   t = application.InputBox("请输入密码以获得查看权限", "销售中心")
   If t = "销售" Then
       ThisWorkbook.Worksheets("解析说明").Activate
       ThisWorkbook.Worksheets("解析说明").Visible = xlSheetVisible
   ElseIf t <> "" Then
       MsgBox "密码错误，请输重新输入密码！"
   ElseIf t=false then
       MsgBox "您选择了取消！"
   End If
End If
End Sub