Partager via

Objet UserPermission (Office)

  • Article

Associe un ensemble d’autorisations sur le document actif à un utilisateur unique et à une date d’expiration facultative. Il représente un membre de la collection Permission du document actif.

Remarques

Utilisez la méthode Add de l'objet Permission pour accorder à un nouvel utilisateur des autorisations spécifiques sur le document actif, avec une date d'expiration facultative. Utilisez la méthode Remove de l'objet UserPermission pour supprimer un utilisateur et les autorisations de l'utilisateur.

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.

Exemple

L’exemple suivant détermine si le document actif dispose d’autorisations restreintes, puis répertorie les utilisateurs et les autorisations qui leur sont attribuées en retournant les propriétés UserId, Permission et ExpirationDate de chaque UserPermission dans la collection Permission du document.

 Dim irmPermission As Office.Permission 
 Dim irmUserPerm As Office.UserPermission 
 Dim strIRMInfo As String 
 Set irmPermission = ActiveWorkbook.Permission 
 If irmPermission.Enabled Then 
 For Each irmUserPerm In irmPermission 
 strIRMInfo = strIRMInfo & irmUserPerm.UserId & vbCrLf & _ 
 " - Permissions: " & irmUserPerm.Permission & vbCrLf & _ 
 " - Expiration Date: " & irmUserPerm.ExpirationDate & vbCrLf 
 Next 
 MsgBox strIRMInfo, _ 
 vbInformation + vbOKOnly, "IRM Information" 
 Else 
 MsgBox "This document is not restricted.", _ 
 vbInformation + vbOKOnly, "IRM Information" 
 End If 
 Set irmUserPerm = Nothing 
 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.