How to have multiple passwords for a userform button

[chin67326]

Looking at the below site:

1.

http://www.mrexcel.com/forum/excel-q...nd-button.html

Private Sub CommandButton1_Click()
    Dim pword As String
        pword = InputBox("Please enter the password", "Password Required")
        
        If pword <> "bigdog" Then
            MsgBox "Yo...You aren't allowed to do that!", vbCritical + vbOKOnly, "Get Outta here!"
            Exit Sub
        Else
            MsgBox "proceed"
            '   Your code here
        End If
End Sub

I want to know how can one have multiple password options for the button. For example, "bigdog" as well as "shoes" as well as "deskchair". I tried commas and Or but I get an error

Also:

2.

Looking at the below code:

Private Sub CommandButton1_Click()
If TextBox1.Value = "yoyo3" Then
Unload Me
UserForm2.Show
End If
If TextBox1.Value <> "yoyo3" Then
MsgBox "Sorry wrong password"
TextBox1.Value = ""
Exit Sub
End If
End Sub

How can one have more than one password? For example, "yoyo3" as well as "curtainthread" as well as "mountaintree"

Thanks!

[john55]

something similar

 If TextBox1.Text = "34" Or "12" Then
 Sheet2.Visible = xlSheetVisible
 Else
 Sheet2.Visible = xlSheetVeryHidden
 End If

Private Sub UserForm_Initialize()
        TextBox1.PasswordChar = "*"

[chin67326]

Thanks john55 but I tried it and got the below:

Run-time error '13':

Type mismatch

[john55]

perhaps

Select Case TextBox1.Value
Case "aaa", "bbb", "ccc"
UserForm2.Show
Case Is <> "aaa", "bbb", "ccc"
MsgBox "wrong!"
End Select
End Sub

[HaHoBe]

Hi, chin67326,

code in ThisWorkbook:

Private Sub Workbook_Open()
UserForm1.Show
End Sub

Code behind UserForm1:

Private Sub cmdCancel_Click()
MsgBox "This workbook needs registration, Workbook will be closed"
ThisWorkbook.Close False
End Sub

Private Sub cmdOK_Click()
Select Case txtPassword.Text
  Case "yoyo3", "curtainthread", "mountaintree"
    Me.Hide
    UserForm2.Show
    Unload Me
  Case Else
    MsgBox "no admittance"
    ThisWorkbook.Close False
End Select
End Sub

Ciao,
Holger

[chin67326]

This worked john55; THANKS!

[john55]

glad to be of help!

[chin67326]

Thanks Holger!