Objet d’autorisation (Office)

  • Article

La propriété Permission de l’objet Document dans Microsoft Word, un objet Workbook dans Microsoft Excel et un objet Presentation dans Microsoft PowerPoint renvoie un objet Permission .

Remarques

Utilisez l'objet Permission pour limiter les autorisations d'accès au document actif et pour renvoyer ou définir des paramètres d'autorisation spécifiques.

L’objet Permission donne accès à une collection d’objets UserPermission. Utilisez l'objet UserPermission pour associer des ensembles de droits à des utilisateurs individuels. Tandis que certaines autorisations accordées via l'interface utilisateur (telles que msoPermissionPrint) s'appliquent à tous les utilisateurs, vous pouvez utiliser l'objet UserPermission pour les attribuer individuellement avec des dates d'expiration également individuelles.

Microsoft Office Information Rights Management 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. Utilisez la méthode ApplyPolicy pour appliquer une stratégie d'autorisation d'accès et les propriétés PermissionFromPolicy, PolicyName et PolicyDescription pour renvoyer les informations de stratégie.

Le modèle objet Permission est disponible, que l’accès au document actif soit restreint ou non. La propriété Permission des objets Document, Workbook et Presentation ne renvoie pas Nothing lorsque le document actif n’a pas d’autorisations restreintes. Utilisez la propriété Enabled pour déterminer si un document a des autorisations restreintes.

L'utilisation de l'objet Permission génère une erreur lorsque le client Windows Rights Management n'est pas installé.

Exemple

Cet exemple montre comment renvoyer des informations sur les paramètres d'autorisation concernant le 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 
 strIRMInfo = strIRMInfo & " View in trusted browser: " & _ 
 irmPermission.EnableTrustedBrowser & vbCrLf & _ 
 " Document author: " & irmPermission.DocumentAuthor & vbCrLf & _ 
 " Users with permissions: " & irmPermission.Count & vbCrLf & _ 
 " Cache licenses: " & 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." & vbCrLf & _ 
 " Default policy name: " & irmPermission.PolicyName & vbCrLf & _ 
 " Default policy description: " & irmPermission.PolicyDescription 
 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.