excel Pass in stars '*'

Alexxx12 · #1 (**permalink**) 01-10-05, 15:26

hi,

excel 2k
win 2k

I want a password in '*' in an imputbox. Is that possible and if so then how do I do it?

[code]
Dim pass As Variant
pass = InputBox("What is the pass? ", "Pass for Richard")
If pass = "123456" Then
MsgBox "Correct! You can pass."
Else
GoTo start_again
End If
[/code\

shades · #2 (**permalink**) 01-10-05, 16:06

Can't do it with InputBox. You need a UserForm:

Put two text boxes in user form (textbox 1 and textbox2).

Add 2 buttons: one for Log in, another for Cancel

Set the password textbox PaswordChar property to some characters (i.e. *) which will mask the user's password.

The Log in name is stored in Sheet1 column A and the password in Column B.
Hide Sheet1 so that user will not be able to see this.

Code:

Private Sub CommandButton1_Click()
If TextBox1 = "" Then GoTo LogErr
Set LogName = Sheet1.Range("A1:a65536").Find(TextBox1)

If Not LogName Is Nothing Then

    If Sheet1.Range("A1:a65536").Find(TextBox1).Offset(0, 1) = TextBox2 Then
        MsgBox "Welcome " & TextBox1
        'do something
        Me.Hide
        Exit Sub
    End If
End If
LogErr:
MsgBox "Log in error" & Chr(13), vbCritical, "Log in Failed"

End Sub

Private Sub CommandButton2_Click()
Me.Hide
End Sub

bhavesh78 · #3 (**permalink**) 01-10-05, 18:32

To set text to * in inputbox see the following link. Works absolutely fine. Just copy paste whole thing at start of ur code and replace inputbox by inputboxDK

http://www.tek-tips.com/faqs.cfm?fid=4617

~BS

shades · #4 (**permalink**) 01-10-05, 19:27

Learn something everyday! Thanks!

Internet Services

Web Development

Digital Marketing

Consumer Tech