Clase UserAccess - el acceso del usuario correspondiente a un rango protegido (Excel VBA)

La clase UserAccess representa el acceso del usuario correspondiente a un rango protegido. Para usar una variable de clase UserAccess, primero debe ser instanciado, por ejemplo

Dim usrac as UserAccess
Set usrac = ActiveSheet.Protection.AllowEditRanges(1).Users(Index:=1)

For Each

A continuación, se muestra un ejemplo de cómo procesar los elementos UserAccess en una colección.

Dim usracUser As UserAccess
For Each usracUser In ActiveSheet.Protection.AllowEditRanges(1).Users
	
Next usracUser

AllowEdit

Devuelve o establece un valor de tipo Boolean que indica si el usuario dispone de acceso al rango especificado de una hoja de cálculo protegida.

ActiveSheet.Protection.AllowEditRanges(1).Users(1).AllowEdit = True

Delete

Elimina el objeto.

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

Name

Devuelve o establece un valor de tipo String que representa el nombre del objeto.

Dim strName As String
strName = ActiveSheet.Protection.AllowEditRanges(1).Users(1).Name