Safely Relocking Forms

Many people use Word to create forms that are then used by others to input information. I am not talking about your average, run-of-the-mill forms that are printed out and reproduced on a copier. I am talking about using forms with Word's special form fields to create templates that are used as the basis for data-collection documents that are individually saved with the data in place.

By design, these forms are protected. This can be both good and bad. It is good because it stops a user from changing information they shouldn't. It is bad because it stops you from changing any information you may want to. What happens is that when a user creates a document based on a forms template, the information they put into the form fields is saved in a new document. If you reload the saved document, unlock the form to add a new field or make some other change, and then relock the form prior to saving it, the information the user added to the form is automatically eliminated by Word and all the form fields are set back to their defaults.

Believe it or not, this is a feature of Word. Some would question that characterization, but it is how the forms feature was designed by the powers-that-be. The only way to overcome this problem is through the use of a macro. The natural place to save the macro is in the template on which your forms are based. You will probably want the macro to be available through a custom toolbar button or a custom menu command. (Adding macros to toolbars and menus is covered in other issues of WordTips.)

Remember that the problem manifests itself only when relocking a form; unlocking them causes no data loss. Thus, you only need to use a special macro to relock your form and you can use the regular unlock tool in Word to unprotect your form prior to your changes. The following macro will safely relock your unlocked forms:

Sub SafeFormLock()
    If ActiveDocument.ProtectionType = wdNoProtection Then
        ActiveDocument.Protect _
          Password = "" _
          Type:=wdAllowOnlyFormFields, _
          NoReset:=True
    End If
End Sub

The reason for the If...Then check is that VBA will generate an error if you use the protection method on the active document and it was already protected. Notice, as well, that this macro doesn't set the protection password. If you want to use a password, you will need to supply it in the macro.

WordTips is your source for cost-effective Microsoft Word training. (Microsoft Word is the most popular word processing software in the world.) This tip (1570) applies to Microsoft Word 97, 2000, 2002, and 2003. You can find a version of this tip for the ribbon interface of Word (Word 2007 and later) here: Safely Relocking Forms.