Partager via

Propriété Permission.RequestPermissionURL (Office)

  • Article

Obtient ou définit l’URL du fichier ou du site web à visiter ou l’adresse e-mail à contacter pour les utilisateurs qui ont besoin d’autorisations supplémentaires sur le document actif. Lecture-écriture.

Syntaxe

expression. RequestPermissionURL

Expression Variable qui représente un objet Permission .

Remarques

Le paramètre RequestPermissionURL correspond à l’option Les utilisateurs peuvent demander des autorisations supplémentaires dans l’interface utilisateur des autorisations. Utilisez la propriété RequestPermissionURL pour spécifier un fichier, un site web ou un contact de messagerie à partir duquel les utilisateurs peuvent demander ou apprendre à demander des autorisations supplémentaires sur le document actif. par exemple :

  • Une adresse web : https://companyserver/request_permissions.asp

  • Un fichier : \\companyserver\share\requesting_permissions.txt

  • Une adresse e-mail : mailto:permissionsmgr@example.com?Subject=Request%20permissions

Exemple

Cet exemple montre comment afficher des informations sur les paramètres d'autorisation du document actif, notamment le paramètre 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

Voir aussi

Assistance et commentaires

Avez-vous des questions ou des commentaires sur Office VBA ou sur cette documentation ? Consultez la rubrique concernant l’assistance pour Office VBA et l’envoi de commentaires afin d’obtenir des instructions pour recevoir une assistance et envoyer vos commentaires.