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