Document.HasPassword (Word)

True, wenn zum Öffnen des angegebenen Dokuments ein Kennwort benötigt wird.

ActiveDocument.Password = "kittycat" 
If ActiveDocument.HasPassword = True Then _ 
 MsgBox "The password is set."