Document.HasPassword (Word)

True se uma senha é necessária para abrir o documento especificado. Boolean somente leitura.

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