password as ********

  • Thread starter Thread starter K1KKKA
  • Start date Start date
K

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
 
You have other replies to your other posts.
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
Click to expand...
 
Back
Top