vba - コマンドボタンを非表示にして、作成したボタンを介してドキュメントを印刷する

Question

これはここでの私の最初の投稿です。できるだけ明確にしようとします:)

ユーザーが入力する Microsoft Word フォームを作成しています。このフォームは保護されており、ドキュメントの残りの部分に入力できるのはフォームのみです。パスワードは「mypass」で保護されています。

アクティブなドキュメントを印刷するボタンをドキュメントに付けたいと思います。私がしたことは、ここで述べたように、印刷ボタンを「描画」テキストボックス (挿入 | テキストボックス) に作成することです。

この [印刷] ボタンは非表示にして、印刷時にドキュメントに表示されないようにする必要があります。

コードは次のとおりです。

Private Sub CommandButton1_Click()

If ActiveDocument.ProtectionType <> wdNoProtection Then
ActiveDocument.Unprotect Password:="mypass"
End If

With ActiveDocument
    .Shapes(1).Visible = msoFalse
    .PrintOut Copies:=1
    .Shapes(1).Visible = msoTrue
End With

ActiveDocument.Protect Type:=wdAllowOnlyFormFields, Password:="mypass"

End Sub

保護モードで印刷ボタンをクリックしても何も起こりません。保護モードをオフにすると、次のエラーが表示されます。

実行時にエラー 4641。

ToolsProtectDocument ステートメントは現在無効になっています

要約する：

保護モードが有効になっていると、作成した [印刷] ボタンが機能しません。保護モードが無効になっていると、ToolsProtectDocument ステートメントが現在無効になっているというエラーが表示されます。

印刷されたフォームに印刷ボタンが表示されることなく、フォーム自体から入力して印刷できるプロテクトフォームが必要です。

誰も手がかりを持っていますか？