Compartilhar via

Propriedade Permission.RequestPermissionURL (Office)

  • Artigo

Obtém ou define a URL do arquivo ou do site para visitar ou o endereço de email a ser contatado para usuários que precisam de permissões adicionais no documento ativo. Leitura/gravação.

Sintaxe

expressão. RequestPermissionURL

Expressão Uma variável que representa um objeto Permission .

Comentários

A configuração RequestPermissionURL corresponde à opção Usuários podem solicitar permissões adicionais na interface do usuário de permissões. Use a propriedade RequestPermissionURL para especificar um arquivo, um site ou um contato de email do qual os usuários podem solicitar ou aprender a solicitar permissões adicionais no documento ativo; por exemplo:

  • Um endereço Web: https://companyserver/request_permissions.asp

  • Um arquivo: \\companyserver\share\requesting_permissions.txt

  • Um endereço de email: mailto:permissionsmgr@example.com?Subject=Request%20permissions

Exemplo

O exemplo a seguir exibe informações sobre as definições de permissões do documento ativo, inclusive a configuração 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

Confira também

Suporte e comentários

Tem dúvidas ou quer enviar comentários sobre o VBA para Office ou sobre esta documentação? Confira Suporte e comentários sobre o VBA para Office a fim de obter orientação sobre as maneiras pelas quais você pode receber suporte e fornecer comentários.