Command Button Password

[Tech2]

How can I execute this Module when the user clicks the 'Command Button' ?

The Command Button will become active when the user enters the password and follow the link included in the Control.

Private Sub Password()
Answer = InputBox("Enter Password")
If Answer = ("$") Then
ThisDocument.CommandButton12.Enabled = True
Else
ThisDocument.CommandButton12.Enabled = False
End If


End Sub
Private Sub ActiveDocument_Activate()
ThisDocument.CommandButton12.Enabled = False
Password
End Sub

Thanks

[gmayor]

Why not to use the button to prompt for the macro and only allow the code associated with the button to run if the password is entered?

Private Sub CommandButton12_Click()
Const sPassword As String = "password"
Dim sAnswer As String

    sAnswer = InputBox("Enter Password")
    If Not sAnswer = (sPassword) Then
        MsgBox "This function is not available without the correct password."
        GoTo lbl_Exit
    End If
    'Do stuff e.g
    MsgBox "Button code runs"
lbl_Exit:
    Exit Sub
End Sub

[Tech2]

Thanks GM,

When I run the Macro it keeps prompting with the password. It doesn't go to the HyperLink?

[gmayor]

There is no mention of hyperlinks in your post. You asked about password protection. The code I posted just prompts for a password. It doesn't do anything else. You need to replace the lines

'Do stuff e.g
MsgBox "Button code runs"

with the code that the button is supposed to run.

[Tech2]

Thanks Bud!

It works Great! Sorry about the post. I'll be more specific in the future.