返回一个 String 类型的数值,表示 Microsoft Word 用密码加密文档时所用的算法。只读。
expression.PasswordEncryptionAlgorithm
expression 必需。该表达式返回“应用于”列表中的一个对象。
使用 SetPasswordEncryptionOptions 方法指定 Microsoft Word 用密码加密文档时所用的算法。
如果当前使用的密码加密算法是 Word 97 for Windows 以前版本所使用的加密算法“OfficeXor”,则本示例将重新设置密码加密选项。
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