通过

Office) (Permission.StoreLicenses 属性

  • 项目

获取或设置一个 布尔 值，该值指示是否应缓存用户查看活动文档的许可证，以便在用户无法连接到权限管理服务器时允许脱机查看。 读/写。

语法

表达式。StoreLicenses

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

备注

StoreLicenses 属性与权限用户界面中的“要求连线验证用户权限”选项相对应（其值是该选项的相反值）。 当 StoreLicenses 为 False 时，当内容通过使用 Microsoft Office 中提供的信息权限管理服务进行保护时，文档所有者以外的用户必须连接到权限管理服务器并获取许可证才能在每次打开文档时使用文档。

示例

下面的示例显示有关活动文档权限设置的信息，包括 StoreLicenses 设置。

 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 locally: " & 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 & " Custom permissions applied." 
 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 支持和反馈，获取有关如何接收支持和提供反馈的指南。