Partager via


Propriété Workbook.UserStatus (Excel)

Cette propriété renvoie un tableau à deux dimensions partant de 1 et qui fournit des informations sur chaque utilisateur ayant ouvert le classeur en tant que liste partagée. Variant en lecture seule.

Syntaxe

expression. UserStatus

Expression Variable qui représente un objet Workbook .

Remarques

Le premier élément de la seconde dimension correspond au nom de l'utilisateur, le deuxième élément correspond à la date et à l'heure de la dernière ouverture du classeur par l'utilisateur, et le troisième élément est un nombre indiquant le type de liste (1 pour un accès exclusif et 2 pour un accès partagé).

La propriété UserStatus ne renvoie aucune information sur les utilisateurs qui ont ouvert le classeur spécifié en lecture seule.

Exemple

Cet exemple montre comment créer un classeur et y insérer des informations relatives à tous les utilisateurs qui ont ouvert le classeur actif en tant que liste partagée.

users = ActiveWorkbook.UserStatus 
With Workbooks.Add.Sheets(1) 
 For row = 1 To UBound(users, 1) 
 .Cells(row, 1) = users(row, 1) 
 .Cells(row, 2) = users(row, 2) 
 Select Case users(row, 3) 
 Case 1 
 .Cells(row, 3).Value = "Exclusive" 
 Case 2 
 .Cells(row, 3).Value = "Shared" 
 End Select 
 Next 
End With

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.