Document.PasswordEncryptionKeyLength (Word)

Retorna um Long que indica o comprimento da chave do algoritmo que o Microsoft Word usa ao criptografar documentos com senhas. Somente leitura.

Use o método SetPasswordEncryptionOptions para especificar o comprimento da chave que Word usa ao criptografar documentos com senhas.

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