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