Word VBA教程:SetPasswordEncryptionOptions方法

设置 Microsoft Word 使用密码加密文档的选项

expression.SetPasswordEncryptionOptions(PasswordEncryptionProvider, PasswordEncryptionAlgorithm, PasswordEncryptionKeyLength, PasswordEncryptionFileProperties)

expression   必需。该表达式返回“应用于”列表中的一个对象。

PasswordEncryptionProvider  String 类型,必需。加密提供程序的名称。

PasswordEncryptionAlgorithm  String 类型,必需。加密算法的名称,Word 支持线性加密算法。

PasswordEncryptionKeyLength  Long 类型,必需。密钥的长度,必须是 8 的倍数,从 40 开始。

PasswordEncryptionFileProperties  Variant 类型,可选。如果为 True,则 Word对文件属性加密。默认值为 True。

VBA示例

如果使用的密码加密算法是“OfficeXor”(这是 Microsoft Word 97 for Windows 以前的 Word 版本所用的密码算法),本示例设置密码加密选项。


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

Word VBA教程

Word VBA参考教程:目录1 Word VBA参考教程:目录2
Word VBA参考教程:目录3 Word VBA参考教程:目录4
Word VBA参考教程:目录5 Word VBA参考教程:目录6
Word VBA参考教程:目录7 Word VBA参考教程:目录8
Word VBA参考教程:目录9 Word VBA参考教程:目录10
版权所有 © 中山市飞娥软件工作室 证书:粤ICP备09170368号