Microsoft Word 中的 Document 对象的 Permission 属性、Microsoft Excel 中的 Workbook 对象和 PowerPoint Microsoft 的 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 支持和反馈，获取有关如何接收支持和提供反馈的指南。