Classe UserAccessList (Excel VBA)

Collection d'objets UserAccess qui représente l'accès de l'utilisateur aux plages protégées. Pour utiliser une variable de classe UserAccessList, elle doit d'abord être instanciée, par exemple

Dim ual as UserAccessList
Set ual = ActiveSheet.Protection.AllowEditRanges(1).Users

Add

Cette méthode ajoute une liste d'accès des utilisateurs.

Add (Name, AllowEdit)

Dim strName As String: strName = 
Dim usrac As UserAccess
Set usrac = ActiveSheet.Protection.AllowEditRanges(1).Users.Add(Name:=strName, AllowEdit:=True)

Arguments

Les arguments nommés :

Name (String) - Nom de la liste d'accès des utilisateurs.

AllowEdit (Boolean) - True permet aux utilisateurs figurant dans la liste d'accès de modifier les plages modifiables d'une feuille de calcul protégée.

Count

Cette propriété renvoie une valeur de type Long qui représente le nombre d’objets de la collection.

Dim lngCount As Long
lngCount = ActiveSheet.Protection.AllowEditRanges(1).Users.Count

DeleteAll

Cette méthode supprime tous les utilisateurs ayant accès à une plage protégée dans une feuille de calcul.

ActiveSheet.Protection.AllowEditRanges(1).Users.DeleteAll

Item

Cette méthode renvoie un seul objet d'une collection.

Pour plus d’informations sur le renvoi d’un seul membre d’une collection, voir renvoi d’un objet à partir d’une collection.

Item (Index)

Index: Nom ou numéro d'index de l'objet.

Dim usracItem As UserAccess
Set usracItem = ActiveSheet.Protection.AllowEditRanges(1).Users(Index:=1)