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 支持和反馈，获取有关如何接收支持和提供反馈的指南。