Password as *******

[K1KKKA]

Am using the code below to stop general admin staff from accessing a
sheet with data,

but would like the password to be shown only as ******* is there VB
code for this????


Any help please


Sub Password()
Dim PassStr As String
PassStr = InputBox("Enter Password to Continue", "My
Password Prompt")


If PassStr = "Manager" Then
Sheets("Sun").Select
Range("A11").Select
Else
MsgBox "Wrong Password Entered"
End If

End Sub



Steve

 

[Dave Peterson]

Not using an inputbox.

But you could create your own userform that gets the password. You can use a
textbox with its .passwordchar set to asterisk.

If you've never created a userform, see Debra Dalgleish's site for some
get-started instructions:
http://contextures.com/xlUserForm01.html