通过

Permission.RequestPermissionURL 属性 (Office)

  • 项目

获取或设置要访问的文件或网站 URL，或者需要对活动文档具有其他权限的用户要联系的电子邮件地址。 读/写。

语法

表达式。RequestPermissionURL

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

备注

RequestPermissionURL 设置对应于权限用户界面中的“用户可以从请求其他权限”选项。 使用 RequestPermissionURL 属性可以指定文件、网站或电子邮件联系人，用户可以从中请求或了解如何请求活动文档的其他权限;例如：

  • 网址： https://companyserver/request_permissions.asp

  • 文件： \\companyserver\share\requesting_permissions.txt

  • 电子邮件地址： mailto:permissionsmgr@example.com?Subject=Request%20permissions

示例

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

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