Método Document.SetPasswordEncryptionOptions (Word)

Establece las opciones que Microsoft Word utiliza para cifrar los documentos con contraseñas.

Sintaxis

expresión. SetPasswordEncryptionOptions( _PasswordEncryptionProvider_ , _PasswordEncryptionAlgorithm_ , _PasswordEncryptionKeyLength_ , _PasswordEncryptionFileProperties_ )

expresión requerida. Variable que representa un objeto Document.

Parameters

Nombre	Obligatorio/opcional	Tipo de datos	Descripción
PasswordEncryptionProvider	Obligatorio	String	Nombre del proveedor del cifrado.
PasswordEncryptionAlgorithm	Obligatorio	String	Nombre del algoritmo de cifrado. Word admite los algoritmos cifrados por flujos.
PasswordEncryptionKeyLength	Obligatorio	Long	Longitud de la clave de cifrado. Debe ser un múltiplo de 8, a partir de 40.
PasswordEncryptionFileProperties	Opcional	Variant	True para que Word cifre las propiedades de archivo. Valor predeterminado es True.

Comentarios

Para mejorar la seguridad, no use algoritmos de Cifrado débil (XOR) (también denominado "OfficeXor") ni "Compatible con Office97/2000" (también denominado "OfficeStandard").

Ejemplo:

En este ejemplo se cambia el cifrado de la contraseña a un cifrado superior si el algoritmo utilizado es OfficeXor u OfficeStandard.

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

Consulte también

Objeto Document

Soporte técnico y comentarios

¿Tiene preguntas o comentarios sobre VBA para Office o esta documentación? Vea Soporte técnico y comentarios sobre VBA para Office para obtener ayuda sobre las formas en las que puede recibir soporte técnico y enviar comentarios.