changing the password letters to "*" in an input box.

[emilyloz]

Hi,

I'm currently using this code:

Private Sub Contractorsbtn_Click()

Const PW As String = "steel123"

    If InputBox("Enter password to continue", 2) = PW Then
        Contractors.Show
    Else: MsgBox "Wrong password"
    
    End If
End Sub

how do I change it so that instead of the actual password appearing, it shows up as, '*'

(I tried the ',2' based off of another post but it is not working.)

Thanks!

[HaHoBe]

Hi, emilyloz,

only by help of API itīs possible to hash the characters in an Inputbox while you may better utilize a UserForm with a textbox where you may choose the PasswordChar.

Ciao,
Holger

[emilyloz]

Thanks HaHoBe,

I created another tab on my user form, set the other tabs to 'visible = false' and I am now using this code:

Private Sub SubmitPassBTN_Click()
Const PW As String = "steel123"

If Passwordtb.Value = PW Then
    MultiPage1.Pages("Page2").Visible = True
    MultiPage1.Pages("Page3").Visible = True
    MultiPage1.Pages("Page1").Visible = False
Else
    MsgBox ("Wrong Password")
    Passwordtb.Value = ""
End If


End Sub