Document.PasswordEncryptionFileProperties (Word)

True se o Microsoft Word criptografa as propriedades de arquivo para documentos protegidos por senha. Boolean somente leitura.

Use o método SetPasswordEncryptionOptions para especificar se o Word criptografa as propriedades de arquivo para documentos protegidos por senha.

Sub PasswordSettings() 
 With ActiveDocument 
 If .PasswordEncryptionFileProperties = False Then 
 .SetPasswordEncryptionOptions _ 
 PasswordEncryptionProvider:="Microsoft RSA SChannel Cryptographic Provider", _ 
 PasswordEncryptionAlgorithm:="RC4", _ 
 PasswordEncryptionKeyLength:=56, _ 
 PasswordEncryptionFileProperties:=True 
 End If 
 End With 
End Sub