User Form With Multiple Passwords

[Chandresh]

HI Team,

I have using the below code which is working fine as I have only one password "123" (Macro 1) while login into excel using user form.

However if I use multiple password with the help of OR then the macro doesn't work (Macro 2) could you please help to resolve this issue.

Macro 1 ) Working Fine with One password

Private Sub CommandButton1_Click()
If UserForm1.TextBox2.Value = "123" Then
Worksheets("Sheet1").Cells(1, 1).Value = TextBox2.Text
Unload Me
MsgBox ("Welcome !!!")
Else
Unload Me
MsgBox ("Invalid password")
UserForm1.Show
End If
End Sub

Macro 2 ) Not working with multiple passwords

Private Sub CommandButton1_Click()
If UserForm1.TextBox2.Value = "1111" Or "2222" Or "3333" Or "4444" Or "5555" Or "6666" Or "7777" Or "8888" Or "9999" Then
Worksheets("Sheet1").Cells(1, 1).Value = TextBox2.Text
Unload Me
MsgBox ("Welcome !!!")
Else
Unload Me
MsgBox ("Invalid password")
UserForm1.Show
End If
End Sub

 

[dmt32]

Hi,
You have to test each value against the textbox value

e.g.

If UserForm1.TextBox2.Value = "1111" Or UserForm1.TextBox2.Value = "2222" Or UserForm1.TextBox2.Value = "3333" Then

But this creates lengthy code - you can as one approach, put all the values in an array & test Textbox value against this

Private Sub CommandButton1_Click()
    Dim m           As Variant
    m = Application.Match(Me.TextBox2.Value, Array("1111", "2222", "3333", "4444", "5555", _
                                                    "6666", "7777", "8888", "9999"), 0)
    If Not IsError(m) Then
        Worksheets("Sheet1").Cells(1, 1).Value = Me.TextBox2.Text
        Unload Me
        
        MsgBox ("Welcome !!!")
        
    Else
        
        MsgBox ("Invalid password")
        Me.TextBox2.SetFocus
    End If
End Sub

Note I have replaced the Userform name with Me keyword where "Me" is your userform.

Dave

 

[Chandresh]

Thanks you very much for your help

 

[dmt32]

Thanks you very much for your help

You are welcome - glad suggestion helped

You may want to have a look at this article here: Excel Userform Login - Online PC Learning

which shows how to create a Userform for multi users

Dave