通过

Office) (Permission.PermissionFromPolicy 属性

  • 项目

获取一个 Boolean 值，指示是否已对活动文档应用了权限策略。 此为只读属性。

语法

表达式。PermissionFromPolicy

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

备注

Microsoft Office 中的信息权限管理支持使用管理权限策略来列出用户和组及其文档权限。 PermissionFromPolicy 属性可返回一个 Boolean 值，指示在上次对活动文档启用权限时是否对该文档应用了权限策略。

当非文档所有者对文档进行检查时，即使该用户具有对象模型权限，PermissionFromPolicy 属性也始终返回 False。

示例

下面的示例将显示有关活动文档的权限策略信息。

 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 
 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 = "Permission are NOT restricted on this document." 
 End If 
 MsgBox strIRMInfo, vbInformation + vbOKOnly, "IRM Information" 
 Set irmPermission = Nothing

另请参阅

支持和反馈

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