Word Passwort per VBA setzen

Sub PasswortSetzen()

‚ Makro PasswortSetzen
‚ Makro setzt das Passwort, welches unten entsprechend eingetragen ist.

With ActiveDocument
.ReadOnlyRecommended = True
.Password = ""
.WritePassword = "MeinPasswort"
.RemovePersonalInformation = True
‚ U.a. wird der Author gelöscht
.RemoveDateAndTime = True
‚ Author setzen
.BuiltInDocumentProperties(3) = "Ich bin der neue Author"
End With

With Options
.WarnBeforeSavingPrintingSendingMarkup = False
.StoreRSIDOnSave = True
.ShowMarkupOpenSave = True
End With
End Sub

Werbeanzeigen