Dokumentenschutz ohne Feldinhalte zu löschen

Ist es Ihnen auch schon passiert? Sie haben in einem Formular die Formularfelder ausgefüllt. Nun fällt Ihnen ein, Sie müssen dort im Text noch etwas ändern. Also Dokumentenschutz aufheben - ändern - und wieder einschalten. Und siehe da, alle Formualrfelder sind geleert. Also alles wieder neu eingeben.

Das geht auch anders. Mit VBA können Sie den Schutz aufheben und wieder einschalten, ohne dass die Inhalte der Formularfelder verloren gehen.

Im folgenden Code wird entsprechend dem aktuellen Zustand des Dokumentes der Dokumentenschutz ein- oder ausgeschaltet. Die Inhalte bleiben erhalten. Das bewirkt beim Befehl in Zeile 5 das True. Das betriftt den Prameter NoReset und verhindert das Zurücksetzen der Felder.

001
002
003
004
005
006
007
008
009
010
011

Sub Dokumentenschutz()
    'Dokumentenschutz wird ein- oder ausgeschaltet
    'Inhalte von Formularfelder bleiben erhalten
   If ActiveDocument.ProtectionType = wdNoProtection Then
      ActiveDocument.Protect wdAllowOnlyFormFields, True
   Else
      ActiveDocument.Unprotect
   End If

End Sub

Diese Prozedur können Sie als Button in eine Symbolleiste legen, das macht dann das Ein- und Auschalten noch einfacher.

zurück zur Übersicht Dokumentenschutz