Microsoft KB Archive/120350

{|
 * width="100%"|

WD6x: Error: "ToolsProtectDocument Command Is Not Available"

 * }

Q120350

-

The information in this article applies to:


 * Microsoft Word for the Macintosh, versions 6.0, 6.0.1

-

SYMPTOMS
The following WordBasic error message may occur when you run a macro that protects a document for forms:

The ToolsProtectDocument command is not available because the document is already protected.

CAUSE
You recorded the macro that protects your document. When you record the Protect Document command, Word for the Macintosh creates a macro that contains two ToolsProtectDocument statements. When the second instance of the statement is run, the above error occurs because the document is already protected.

In addition, if you continue to record TAB or ENTER keystrokes to move between form fields after you protect the document, Word places an "Unrecognized_Statement336" statement in the macro in place of each keystroke. For example, Word creates the following macro when you turn on the macro recorder, protect the document, press TAB or ENTER three times to move between form fields, and then unprotect the document:

  Sub MAIN ToolsProtectDocument .DocumentPassword = "", .NoReset = 0, .Type = 2 ToolsProtectDocument .DocumentPassword = "", .NoReset = 0, .Type = 2 Unrecognized_Statement336 Unrecognized_Statement336 Unrecognized_Statement336 ToolsUnprotectDocument End Sub NOTE: This problem does not occur in Word for Windows because Word for Windows stops the macro recorder automatically whenever you record the ToolsProtectDocument statement.

WORKAROUND
WARNING: ANY USE BY YOU OF THE CODE PROVIDED IN THIS ARTICLE IS AT YOUR OWN RISK. Microsoft provides this macro code "as is" without warranty of any kind, either express or implied, including but not limited to the implied warranties of merchantability and/or fitness for a particular purpose.

Edit the macro to remove the duplicate ToolsProtectDocument command and replace the "Unrecognized_Statement336" statements with the appropriate WordBasic statements. For example, modify the macro to resemble the following:

  Sub MAIN ToolsProtectDocument .DocumentPassword = "", .NoReset = 0, .Type = 2 Insert Chr$(9) Insert Chr$(9) Insert Chr$(9) ToolsUnprotectDocument End Sub