Partager via


Propriété Permission.PermissionFromPolicy (Office)

Obtient une valeur booléenne qui indique si une stratégie d’autorisation a été appliquée au document actif. En lecture seule.

Syntaxe

expression. PermissionFromPolicy

Expression Variable qui représente un objet Permission .

Remarques

La gestion des droits relatifs à l’information dans Microsoft Office prend en charge l’utilisation de stratégies d’autorisation d’administration qui répertorient les utilisateurs et les groupes et leurs autorisations de document. La propriété PermissionFromPolicy renvoie une valeur Boolean qui indique si une stratégie d’autorisation était appliquée au document actif la dernière fois que des autorisations étaient activées sur celui-ci.

La propriété PermissionFromPolicy renvoie toujours la valeur False lorsqu'elle est vérifiée par un utilisateur non-propriétaire du document, même détenteur d'autorisations sur le modèle objet.

Exemple

Cet exemple montre comment afficher les informations de stratégie d'autorisation relatives au document actif.

 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 
 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." & vbCrLf & _ 
 " Default policy name: " & irmPermission.PolicyName & vbCrLf & _ 
 " Default policy description: " & irmPermission.PolicyDescription 
 End If 
 Else 
 strIRMInfo = "Permission 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.