Propriété Permission.DocumentAuthor (Office)

  • Article

Obtient ou définit le nom sous forme d’e-mail de l’auteur du document actif. Lecture-écriture.

Syntaxe

expression. DocumentAuthor

Expression Variable qui représente un objet Permission .

Remarques

La propriété DocumentAuthor renvoie ou définit l’auteur du document actif. L’auteur dispose toujours de droits de propriétaire qui n’expirent pas sur le document, que l’autorisation de propriétaire soit accordée explicitement (via un objet UserPermission ) ou non.

La propriété DocumentAuthor ne peut être modifiée qu'au profit d'un autre compte ayant été habilité via l'interface utilisateur des autorisations à ouvrir du contenu restreint sur l'ordinateur local. Dans la plupart des cas, les utilisateurs qui ont un seul compte Windows peuvent uniquement choisir entre leurs identités Windows et Passport.

Si les identités Windows et Passport de l’utilisateur utilisent la même adresse e-mail, utilisez le format passport:someone@example.com pour spécifier l’identité Passport comme propriété DocumentAuthor .

Exemple

Cet exemple montre comment afficher des informations sur les paramètres d'autorisations du document actif, notamment l'auteur de celui-ci.

 Dim irmPermission As Office.Permission 
 Dim strIRMInfo As String 
 Set irmPermission = ActiveWorkbook.Permission 
 If irmPermission.Enabled Then 
 strIRMInfo = "Permissions are enabled on this document." & vbCrLf 
 strIRMInfo = strIRMInfo & " View in trusted browser: " & _ 
 irmPermission.EnableTrustedBrowser & vbCrLf & _ 
 " Document author: " & irmPermission.DocumentAuthor & vbCrLf & _ 
 " Users with rights: " & 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 & " Default permissions applied." 
 End If 
 Else 
 strIRMInfo = "Permissions are NOT enabled 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.