masking password when asking for it with *********

[Jeff12]

my code is below, I just need to understand how to mask the password entered as *******? just to stop other users seeing it next to me.

thanks in advance

Sub Openall()


Dim password As Variant
password = Application.InputBox("Enter Password", "Password Protected")


Select Case password
Case Is = False
'do nothing
Case Is = "Password"






Worksheets("1").Visible = True
Worksheets("2").Visible = True
Worksheets("3").Visible = True
Worksheets("4").Visible = True




Case Else
MsgBox "Incorrect Password"
End Select


End Sub

 

[Joe4]

Check out this link here: https://support.microsoft.com/en-us/kb/830258

 

[Jeff12]

Check out this link here: https://support.microsoft.com/en-us/kb/830258

thanks, is there any easy way I can do it within my code? my VBA is extremely basic and whilst i can follow those commands i dont have a clue how to link it back in to my macro.

 

[V_Malkoti]

When you've completed the steps from article that Joe shared, do this:

1. Create a public variable in your existing module by declaring it outside of all functions/subrouties at module level.

Public gUserPassword as String

2. Replace statement of call to InputBox

password = Application.InputBox("Enter Password", "Password Protected")

with statement to show userform you just created:

UserForm1.Show

3. Assign value to global variable in button click function of the userform dialog box created.

Private Sub CommandButton1_Click()
[COLOR=#0000FF]    gUserPassword = Me.TextBox1[/COLOR]
End Sub

 

[Jeff12]

When you've completed the steps from article that Joe shared, do this:

1. Create a public variable in your existing module by declaring it outside of all functions/subrouties at module level.

Public gUserPassword as String

2. Replace statement of call to InputBox

password = Application.InputBox("Enter Password", "Password Protected")

with statement to show userform you just created:

UserForm1.Show

3. Assign value to global variable in button click function of the userform dialog box created.

Private Sub CommandButton1_Click()
[COLOR=#0000FF]    gUserPassword = Me.TextBox1[/COLOR]
End Sub

cool thanks