I have this macro used as a password input box. My
question is how did I mask the user entry (*******)


Sub Macro9()
Dim V1 As Variant


V1 = Application.InputBox(prompt:="Enter Password",
Type:=1 + 2)
If V1 = False Then
MsgBox "You didn't enter a number"
Else
Worksheets("SHEET1").Range("A14").Value = V1
End If

End Sub

jose,

You can't do this with an Input Box.
Create a Userform with a TextBox and set the PasswordChar
property of the textbox to an asterisk.

John

jose wrote:

I have this macro used as a password input box. My
question is how did I mask the user entry (*******)

Sub Macro9()
Dim V1 As Variant

V1 = Application.InputBox(prompt:="Enter Password",
Type:=1 + 2)
If V1 = False Then
MsgBox "You didn't enter a number"
Else
Worksheets("SHEET1").Range("A14").Value = V1
End If

End Sub

I don't know what else to do with somebody help me with the code.


*** Sent via Developersdex http://www.developersdex.com ***
Don't just participate in USENET...get rewarded for it!