Prompting for a pass word?

[Todd_M]

Hi-
I have a number of user forms in a project.Theres a few of them that I only want the user to access using a pass word. Im assuming the pass word box is a userform asking for the correct pass word and entering it into a textbox. What code would I use to confirm the correct pass word "HELLO" thats put in the textbox by the user when he/she clicks a commandbutton?

 

[Barrie Davidson]

On 2002-03-02 10:32, Todd_M wrote:
Hi-
I have a number of user forms in a project.Theres a few of them that I only want the user to access using a pass word. Im assuming the pass word box is a userform asking for the correct pass word and entering it into a textbox. What code would I use to confirm the correct pass word "HELLO" thats put in the textbox by the user when he/she clicks a commandbutton?

Todd, would something like this work for you?

password = InputBox("Enter Password (case sensitive)")
If password = "HELLO" Then
    Todd_UserForm.Show
End If

Regards,

 

[Mudface]

If you want it specifically from the UserForm, then it would just be (case-insensitive): -

Private Sub CommandButton1_Click()

If Upper(TextBox1.Text) = "HELLO" Then
' Your code
Else:
MsgBox "Incorrect password"
' Your code, either end the process or just use exit sub to keep the form in place
End If

End Sub

Change the above to reflect the names of your command button and textbox.

 

[Todd_M]

Thankyou, it was perfect

 

[gplhl]

Don't forget to password protect your VB project that contains the code in, otherwise it is possible for someone to look at your code and see what the password is )

 

[Mudface]

Good point. You could also set the PasswordChar property of the textbox to *, so it only shows asterisks when you type in the password (right-click on your textbox in design mode, select Properties and scroll down to PasswordChar and change it from blank to *).
This message was edited by Mudface on 2002-03-02 12:12