how can I assign a password to a command button

I am trying to crearte a command button that asks me for a question when I
click on it. If I enter the correct password, then it should run.

Hi Help,

Try something like:

'=============>>
Private Sub CommandButton1_Click()
Dim Res As Variant

Res = InputBox("Enter password")

If Res <> "drowssap" Then
MsgBox "Password not recognised"
Exit Sub
End If

'Your button code

End Sub
'<<=============


---
Regards,
Norman


"Help!" <[email protected]> wrote in message
news:[email protected]...
>I am trying to crearte a command button that asks me for a question when I
> click on it. If I enter the correct password, then it should run.

This actually doesn't apply a password per se, but it does require the
correct word or phrase before processing:

Private Sub CommandButton1_Click()

Dim strPassword As String

strPassword = InputBox("Enter the password for this " & _
"command button.")

If strPassword = "Password" Then
'Do something here
Else
MsgBox "You did not enter the correct password for " & _
"this command button."
End If

End Sub

--
Kevin Backmann


"Help!" wrote:

> I am trying to crearte a command button that asks me for a question when I
> click on it. If I enter the correct password, then it should run.