Propriété Permission.StoreLicenses (Office)

Article
04/07/2023

Renvoie une valeur de type Boolean qui indique si la licence d'un utilisateur permettant d'afficher le document actif doit être mise en cache pour autoriser l'affichage hors connexion lorsque l'utilisateur ne peut pas se connecter au serveur de gestion de droits. En lecture/écriture

Syntaxe

expression. StoreLicenses

Expression Variable qui représente un objet Permission .

Remarques

La propriété StoreLicenses correspond à (et sa valeur est le contraire de) l’option Exiger une connexion pour vérifier l’autorisation d’un utilisateur de l’interface utilisateur des autorisations. Lorsque StoreLicenses a la valeur False, les utilisateurs autres que le propriétaire du document doivent se connecter au serveur de gestion des droits et acquérir la licence pour travailler avec le document chaque fois qu’ils l’ouvrent, lorsque le contenu est protégé à l’aide du service Gestion des droits relatifs à l’information fourni dans Microsoft Office.

Exemple

Cet exemple montre comment afficher des informations sur les paramètres d'autorisation du document actif, notamment le paramètre StoreLicenses.

 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 & " Custom 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

Membres de l’objet d’autorisation

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.

Partager via