password as ********
 

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

password as ********
 

see
http://groups-beta.google.com/group/...db7b7e395e84a7

On Jan 10, 1:56 pm, "K1KKKA" wrote:
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

password as ********
 

You have other replies to your other posts.

K1KKKA wrote:

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