input box format
 

This is probably a simply question, but I'll feel like a dullard later. I
have an input box that I want to format the text as *** (standard password )
Heres what I have:

Dim ans As String

ans = InputBox("Enter password")
ans = UCase(ans)
If ans < "PASSWORD" Then
MsgBox "Incorrect, try again"
Exit Sub
ELSE
etc ect

Thanks

input box format
 

You can't use VBA's inputbox() for this.

But you could design a small userform that can.

Dan wrote:

This is probably a simply question, but I'll feel like a dullard later. I
have an input box that I want to format the text as *** (standard password )
Heres what I have:

Dim ans As String

ans = InputBox("Enter password")
ans = UCase(ans)
If ans < "PASSWORD" Then
MsgBox "Incorrect, try again"
Exit Sub
ELSE
etc ect

Thanks

--

Dave Peterson

input box format
 

See
http://www.xcelfiles.com/API_09.html
for a solution. Question is simple enough, but the solution is pretty
complicated, so don't feel bad about it.

HTH. Best wishes Harald

"Dan" skrev i melding
...
This is probably a simply question, but I'll feel like a dullard later. I
have an input box that I want to format the text as *** (standard
password )
Heres what I have:

Dim ans As String

ans = InputBox("Enter password")
ans = UCase(ans)
If ans < "PASSWORD" Then
MsgBox "Incorrect, try again"
Exit Sub
ELSE
etc ect

Thanks

input box format
 

If I did that, would I use a textbox on the userform and set the
passwordchar property of the textbox to "*"




"Dave Peterson" wrote in message
...
You can't use VBA's inputbox() for this.

But you could design a small userform that can.

Dan wrote:

This is probably a simply question, but I'll feel like a dullard later.
I
have an input box that I want to format the text as *** (standard
password )
Heres what I have:

Dim ans As String

ans = InputBox("Enter password")
ans = UCase(ans)
If ans < "PASSWORD" Then
MsgBox "Incorrect, try again"
Exit Sub
ELSE
etc ect

Thanks

--

Dave Peterson