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
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.