Clase UserAccessList (Excel VBA)

Colección de objetos UserAccess que representan el acceso del usuario para los rangos protegidos. Para usar una variable de clase UserAccessList, primero debe ser instanciado, por ejemplo

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

Add

Agrega una lista de acceso de usuarios.

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

Estos son los argumentos con nombre :

Name (String) - Nombre de la lista de acceso de usuarios.

AllowEdit (Boolean) - True permite a los usuarios que figuran en la lista de acceso modificar los rangos modificables de una hoja de cálculo protegida.

Count

Devuelve un valor Long que representa el número de objetos de la colección.

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

DeleteAll

Quita todos los usuarios que tienen acceso a un rango protegido de una hoja de cálculo.

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

Item

Devuelve un solo objeto de una colección.

Para obtener más información sobre cómo devolver un solo miembro de una colección, vea devolver un objeto de una colección.

Item (Index)

Index: Nombre o número de índice del objeto.

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