使用输入框作为密码框来选择工作表VBA EXCEL

Question

我想使用输入框输入密码以选择Excel中的特定工作表。

到目前为止是我的代码：

Sub DCAInputSelect()
    Dim myValue As Variant
    myValue = InputBox("Enter Password", "DCA Input Screen")
    Range("T6").Value = myValue
    Sheets("DCA INPUT").Select
End Sub

如果框内的输入是p3t3，我只想转到表“ DCA INPUT”

Answer 1

只需使用if语句来检查密码为p3t3。

Sub DCAInputSelect()
    Dim myValue As Variant
    myValue = InputBox("Enter Password", "DCA Input Screen")
    Range("T6").Value = myValue
    If myValue = "p3t3" Then Sheets("DCA INPUT").Select
End Sub

编辑

不是原始问题的一部分，但我前段时间也曾做过类似的事情，可以使用户3次尝试输入密码，这就是您的情况。

Sub DCAInputSelect()
   Dim myValue As Variant, i As Integer, f As Integer
   i = 1
   f = 1
   Do While i <> 2
       If f = 4 Then Exit Do
       myValue = InputBox("Enter Password, attempt no " & f & " of 3", "DCA Input Screen")
       Range("A1").Value = myValue
       If myValue = "p3t3" Then
           Sheets("DCA INPUT").Select
           i = 2
       Else
           f = f + 1
       End If
   Loop
End Sub