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.
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.
There are currently 1 users browsing this thread. (0 members and 1 guests)
Bookmarks