Hallo zusammen,

ich benötige ein MAKRO, das in einem Word-Vorlagedokument folgendes Ausführen soll:

Word - Vorlagedatei ist geschützt mit "BEARBEITUNG einschränken" 

Über einen Button soll  folgendes ausgeführt werden:

1. Schutz aufheben

2. Die Tastenkombination "STRG+ALT+UMSCHA+S"

3. Dokumentenschutz aktivieren

-----

Private Sub CommandButton1_Click()
If ActiveDocument.ProtectionType <> wdNoProtection Then
 ActiveDocument.Unprotect Password:=""
 End If

DIE TASTENKOMBINATION
 If ActiveDocument.ProtectionType = wdNoProtection Then
 ActiveDocument.Protect Type:=wdAllowOnlyFormFields, NoReset:=True, Password:=""
 End If
End Sub

---

Vielen Dank.