Dots, instead of characters in InputBox

[Gabor]

Hi Folks,

I have an InputBox popping up first when the user attempts to open a UserForm and it asks for a password to unlock the protected worksheet. Works fine.
Now, I'd like to have dots appearing in the InputBox, instead of the password itself.
This is because we are operating many occasions via NetMeeting so I just do not want all the people in the world and their dogs to see what that password actually is.

Arigato gozaimasu

Gabor

[jameslou]

Hello!
On the properties of your Input Box, put the dot character or whatever character you liked in the PasswordChar Property.

[mikerickson]

The inputBox does not have a password character property.

You might add a textbox (which has a passwordcharacer property) to the userform and hide all other controls on Initialize until the proper password is entered.

[jameslou]

The inputBox does not have a password character property.

You might add a textbox (which has a passwordcharacer property) to the userform and hide all other controls on Initialize until the proper password is entered.

mikerickson,

my bad, thanks for correcting, you were correct, i was thinking of the textbox and not of the input box.

[dominicb]

Good morning Gabor

Just for completeness of answer, Ivan F Moala shows here how to force an input box to return asterisks (*) instead of characters - but you could make it show any character you please.

However, this routine is not for the faint of heart, and you're probably better off using a UserForm.

http://www.xcelfiles.com/API_09.html

HTH

DominicB

[davesexcel]

Hi Folks,

I have an InputBox popping up first when the user attempts to open a UserForm and it asks for a password to unlock the protected worksheet. Works fine.
Now, I'd like to have dots appearing in the InputBox, instead of the password itself.
This is because we are operating many occasions via NetMeeting so I just do not want all the people in the world and their dogs to see what that password actually is.

Arigato gozaimasu

Gabor

it may be best to use a userform, with a textbox, then you will be able to set the textbox to password char in the properties window for the textbox, goto password char and enter *

then with the command button you could have

Private Sub CommandButton1_Click()
If TextBox1.Text = "yep" Then
Sheets("Sheet1").Unprotect
Else
MsgBox "nope you don't belong here!"
End If
Unload Me
End Sub

[Gabor]

All right, so there is no easy way out, gotta create another userform, to let the user in.
Actually I like the idea to hide/unhide all the other controls with a loop, as a feasible alternative to the second UF.
Thanks guys, I'm gonna get there now.

Private Sub HideAll()
For Each c In Me.Controls
  If c.Tag = "NoGo" Then GoTo 55
  c.HideSelection = False
55 Next
End Sub