Question

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

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

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

PasswordEncryptionProviderString 类型，必需。加密提供程序的名称。

PasswordEncryptionAlgorithmString 类型，必需。加密算法的名称，Word 支持线性加密算法。

PasswordEncryptionKeyLengthLong 类型，必需。密钥的长度，必须是 8 的倍数，从 40 开始。

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

示例

如果使用的密码加密算法是“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