Document.PasswordEncryptionAlgorithm (Word)

Retorna uma cadeia de caracteres indicando o algoritmo que o Microsoft Word usa para criptografar documentos com senhas. Somente leitura.

Use o método SetPasswordEncryptionOptions para especificar o algoritmo que o Word usa para criptografar documentos com senhas.

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