返回 String 类型值,该值指定 Microsoft PowerPoint 通过密码加密文档时所使用加密算法的供应商名称。只读。
expression.PasswordEncryptionProvider
expression 必选。该表达式返回“应用于”列表中的对象之一。
使用 SetPasswordEncryptionOptions 方法以指定 PowerPoint 通过密码加密文档所使用的算法。
本示例中,如果使用的密码加密算法不是 Microsoft RSA SChannel Cryptographic Provider,将设置密码加密选项。
Sub PasswordSettings()
With ActivePresentation
If .PasswordEncryptionProvider <> "Microsoft RSA SChannel Cryptographic Provider" Then
.SetPasswordEncryptionOptions _
PasswordEncryptionProvider:="Microsoft RSA SChannel Cryptographic Provider", _
PasswordEncryptionAlgorithm:="RC4", _
PasswordEncryptionKeyLength:=56, _
PasswordEncryptionFileProperties:=True
End If
End With
End Sub