Office) (权限对象

Microsoft Word 中 Document 对象的 Permission 属性、Microsoft Excel 中的 Workbook 对象和 Microsoft PowerPoint 中的 Presentation 对象返回 Permission 对象。

备注

使用 权限 对象来限制对活动文档的权限，并返回或设置特定权限设置。

Permission 对象授予对 UserPermission 对象的集合的访问权限。 使用 UserPermission 对象各个用户相关联的特定权限集。 虽然某些通过用户界面（如 msoPermissionPrint）授予的权限应用于所有用户，但是可使用 UserPermission 对象按照每个用户的到期日期分配这些权限。

Microsoft Office 信息权限管理支持使用管理权限策略来列出用户和组及其文档权限。 使用 ApplyPolicy 方法应用的权限策略，以及 PermissionFromPolicy 、 PolicyName 和 PolicyDescription 属性返回策略信息。

权限 对象模型都可用是否权限是否受到限制在活动文档上。 当活动文档没有受限权限时，Document、Workbook 和 Presentation 对象的 Permission 属性不会返回 Nothing。 使用 Enabled 属性可确定文档是否具有受限权限。

如果未安装 Windows Rights Management 客户端，则使用 Permission 对象会引发错误。

示例

下面的示例返回有关活动文档权限设置的信息。

Dim irmPermission As Office.Permission 
 Dim strIRMInfo As String 
 Set irmPermission = ActiveWorkbook.Permission 
 If irmPermission.Enabled Then 
 strIRMInfo = "Permissions are restricted on this document." & vbCrLf 
 strIRMInfo = strIRMInfo & " View in trusted browser: " & _ 
 irmPermission.EnableTrustedBrowser & vbCrLf & _ 
 " Document author: " & irmPermission.DocumentAuthor & vbCrLf & _ 
 " Users with permissions: " & irmPermission.Count & vbCrLf & _ 
 " Cache licenses: " & irmPermission.StoreLicenses & vbCrLf & _ 
 " Request permission URL: " & irmPermission.RequestPermissionURL & vbCrLf 
 If irmPermission.PermissionFromPolicy Then 
 strIRMInfo = strIRMInfo & " Permissions applied from policy:" & vbCrLf & _ 
 " Policy name: " & irmPermission.PolicyName & vbCrLf & _ 
 " Policy description: " & irmPermission.PolicyDescription 
 Else 
 strIRMInfo = strIRMInfo & " Default permissions applied." & vbCrLf & _ 
 " Default policy name: " & irmPermission.PolicyName & vbCrLf & _ 
 " Default policy description: " & irmPermission.PolicyDescription 
 End If 
 Else 
 strIRMInfo = "Permissions are NOT restricted on this document." 
 End If 
 MsgBox strIRMInfo, vbInformation + vbOKOnly, "IRM Information" 
 Set irmPermission = Nothing

另请参阅

• 权限对象成员
• 对象模型引用

支持和反馈

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