Creating an "Approved" command button

macropod · #6 09-02-2014, 07:48 PM

If you're using formfields, the document will already require Forms protection. In that case, you could use another text formfield for both the 'button' and the approval text.

For example, if you insert such a formfield and make its default text:
Click Here to Approve
you could attach an on-entry macro to it, coded as follows:

Code:

Sub Approval()
With ActiveDocument.FormFields("Text1")
  .Result = "Approved by " & Environ("Username") & " on " & Format(Now(), "DDDD, D MMMM YYYY @ hh:mm")
  .Enabled = False
End With
End Sub

where the formfield's internal bookmark name is 'Text1'.

Do note that, as coded, only the approval formfield is locked.

Similar Threads
Thread	Thread Starter	Forum	Replies	Last Post
Having trouble with "Same as Previous" button for formatting headers	Roy Patience	Word	3	05-24-2014 03:17 PM
"Problem sending the command" on only one .xlsm file, Office XP/Win 7 64bit	skeith5	Excel	0	01-24-2012 02:24 PM
Launch macro sub after hitting "create pdf" button in word	webharvest	Word VBA	1	06-29-2011 04:56 PM
"Back" Button - to behave like web browser (Not using last slide viewed).	emmiewoo	PowerPoint	0	03-29-2011 06:54 AM
"Send and Receive all Folders" button missing (but only with one account)	incognitus	Outlook	0	10-12-2010 10:42 PM