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?

 

[dk]

Here's some code which should do what you need. It assumes that the textbox is called TextBox1 and the button is called CommandButton1. You might want to change the PasswordChar property of the password so you only see ******* when typing the password.

HTH,
D

Private Sub CommandButton1_Click()
Dim intRetry As Integer

If Me.TextBox1.Text<> "HELLO" Then
    intRetry = MsgBox("Do you want to try again?", vbYesNo, "Incorrect Password")
    If intRetry = vbNo Then
        ThisWorkbook.Close False
    Else
        Me.TextBox1.Text = ""
        Me.TextBox1.SetFocus
    End If
End If

End Sub

This message was edited by dk on 2002-03-02 13:03