Objet d’autorisation (Office)
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.