设置 Microsoft Word 使用密码加密文档的选项
expression.SetPasswordEncryptionOptions(PasswordEncryptionProvider, PasswordEncryptionAlgorithm, PasswordEncryptionKeyLength, PasswordEncryptionFileProperties)
expression 必需。该表达式返回“应用于”列表中的一个对象。
PasswordEncryptionProvider String 类型,必需。加密提供程序的名称。
PasswordEncryptionAlgorithm String 类型,必需。加密算法的名称,Word 支持线性加密算法。
PasswordEncryptionKeyLength Long 类型,必需。密钥的长度,必须是 8 的倍数,从 40 开始。
PasswordEncryptionFileProperties Variant 类型,可选。如果为 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