Masking the character in input box

[Bakar]

Hi Masters
I have an input box for password
When i am entering the pw its showing the character ex "1234"
I want to mask the "1234" to "****"
Here is the macro
Const pWord As String = "1234"


Sub UnHide()
Sheet1.Range("b3").Select
Selection.ClearContents
If InputBox("Please enter password to open DATA BASE!", "SQ Sweate
SMV", _
"Enter Password") = pWord Then
Sheet5.Visible = xlSheetVisible
Sheet5.Activate

End If

End Sub
Please help

Baka

 

[Cimjet]

Hi Masters

I have an input box for password

When i am entering the pw its showing the character ex "1234"

I want to mask the "1234" to "****"

Here is the macro

Const pWord As String = "1234"





Sub UnHide()

Sheet1.Range("b3").Select

Selection.ClearContents

If InputBox("Please enter password to open DATA BASE!", "SQ Sweater

SMV", _

"Enter Password") = pWord Then

Sheet5.Visible = xlSheetVisible

Sheet5.Activate



End If



End Sub

Please help



Bakar

Hi
I don't think you can do it with an Inputbox.
I use a Textbox on a userform and in the Properties for the Textbox, you have "Password Char", you can type an asterisk or anything else you like too see.