Propriété Permission.RequestPermissionURL (Office)
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.