rav_x06
10-16-2007, 12:23 PM
Hi, I have a button on a sheet on that button this code:
On Error Resume Next
Password = InputBox("Type password", "Password Entry", vbOKCancel)
If Password = "password2" Then
Sheet8.Visible = xlSheetVisible
Sheets("Sales person 2").Select
Else
Sheet8.Visible = xlSheetHidden
If Password <> "password" Or Password = "" Then
MsgBox ("Entered password was incorrect or was not entered")
End If
End If
but when the user enters the password comes as the letters I want to chnage that to the * so the password entry would be hidden.
Thanks
On Error Resume Next
Password = InputBox("Type password", "Password Entry", vbOKCancel)
If Password = "password2" Then
Sheet8.Visible = xlSheetVisible
Sheets("Sales person 2").Select
Else
Sheet8.Visible = xlSheetHidden
If Password <> "password" Or Password = "" Then
MsgBox ("Entered password was incorrect or was not entered")
End If
End If
but when the user enters the password comes as the letters I want to chnage that to the * so the password entry would be hidden.
Thanks