Document.PasswordEncryptionProvider (Word)

Retorna uma cadeia de caracteres especificando o nome do provedor de criptografia de algoritmo que o Microsoft Word usa ao criptografar documentos com senhas. Somente leitura.

Use o método SetPasswordEncryptionOptions para especificar o nome do provedor de criptografia de algoritmo que Word usa ao criptografar documentos com senhas.

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