通过

Permission.ApplyPolicy 方法 (Office)

  • 项目

对活动文档应用指定的权限策略。

语法

表达式。ApplyPolicy (FileName)

表达 一个代表 Permission 对象的变量。

参数

名称 必需/可选 数据类型 说明
FileName 必需 字符串 权限策略模板文件的路径和文件名。

备注

Microsoft Office 信息权限管理支持使用管理权限策略来列出用户和组及其文档权限。 ApplyPolicy 方法对活动文档应用权限策略。

示例

以下示例对活动文档启用权限并应用管理权限策略。

 Dim irmPermission As Office.Permission 
 Set irmPermission = ActiveWorkbook.Permission 
 Dim strIRMInfo As String 
 Select Case irmPermission.Enabled 
 Case True 
 strIRMInfo = "Permissions are already restricted on this document." 
 Case False 
 With irmPermission 
 .Enabled = True 
 .ApplyPolicy ("\\server\share\permissionpolicy.xml") 
 End With 
 strIRMInfo = "Permissions are now restricted on this document " & _ 
 vbCrLf & _ 
 " and the permission policy has been applied." 
 End Select 
 MsgBox strIRMInfo, vbInformation + vbOKOnly, "IRM Information" 
 Set irmPermission = Nothing

另请参阅

支持和反馈

有关于 Office VBA 或本文档的疑问或反馈？ 请参阅 Office VBA 支持和反馈，获取有关如何接收支持和提供反馈的指南。