Свойство Permission.RequestPermissionURL (Office)

Статья
04/07/2023

Возвращает или задает URL-адрес файла или веб-сайта, который нужно посетить, или адрес электронной почты, с которыми нужно связаться, для пользователей, которым требуются дополнительные разрешения на активный документ. Для чтения и записи.

Синтаксис

expression. 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 и обратная связь.

Поделиться через