книга защиты паролем с 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

Изменить И на ИЛИ

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