使用 VBA 的密码保护工作簿无法正常工作

Question

我创建了一个只能由几个人访问的工作簿。 以下代码已放置在工作簿中。 有一个userform 和两个textboxes，一个用于用户名，一个用于密码。

然后，我对照我在 VBA 中创建的条目检查这些条目。但是，它适用于一个人，但不适用于另一个人。

RossName 和 Ross 密码允许我访问工作簿，但 GulsenName 和 GulsenPassword 不允许。它将返回"ELSE" 函数并显示MsgBox，所以是假的吗？我错过了什么？ 谢谢你的帮助。

Private Sub CommandButton2_Click()
    Dim enteredUserName  As String
    Dim GulsenName As String
    Dim RossName As String
    Dim enteredpassword As String
    Dim gulsenPassword As String
    Dim RossPassword As String

    RossName = "RossA"
    RossPassword = "Password1"
    GulsenName = "Gulsen"
    gulsenPassword = "Password2"

    enteredUserName = Me.TextBox1.Text
    enteredpassword = Me.TextBox2.Text

    If (enteredUserName = RossName Or enteredpassword = GulsenName) And (enteredpassword = RossPassword Or enteredpassword = gulsenPassword) Then
        Worksheets(1).Select
        Unload Me
    Else        
        MsgBox ("userName or Password incorrect, please try again")
    End If
End Sub

Answer 1

将 AND 更改为 OR

Private Sub CommandButton2_Click()

    Dim enteredUserName  As String
    Dim GulsenName As String
    Dim RossName As String
    Dim enteredpassword As String
    Dim gulsenPassword As String
    Dim RossPassword As String

    RossName = "RossA"
    RossPassword = "Password1"
    GulsenName = "Gulsen"
    gulsenPassword = "Password2"

    enteredUserName = Me.TextBox1.Text
    enteredpassword = Me.TextBox2.Text

    If (enteredUserName = RossName And enteredpassword = RossPassword) Or (enteredUserName = GulsenName And enteredpassword = gulsenPassword) Then
        Worksheets(1).Select
        Unload Me
    Else
        MsgBox ("userName or Password incorrect, please try again")
    End If
End Sub