Re: Hiding password characters

[Gregm66]

Re: Hiding password characters

Hi everyone,

I am using code to produce a password box on opening a workbook, so far so good it works fine my only problem is that it shows the password it does not hide the chatacters using an astrix " * " please see code below any help to just add some code to my exsisting code would be greatly appreciated. Thanks everyone in advance...

Sub Auto_Open()


    Dim pword As String
    
    pword = InputBox("John Doe")
    If pword <> "John Doe 0000" Then ' This is the word that needs to hidden by using " * " instead of showing the word...
  ActiveWorkbook.Close SaveChanges:=False
  
Else
MsgBox "Welcome back Greg.... DataBase is now ready to use"
End If
End Sub

 

[Gregm66]

Re: Hiding password characters

Thanks to all that have looked at my post.... i have solved my problem by creating a userform instead..
thanks all...