Classe UserAccess - o acesso do usuário a um intervalo protegido (Excel VBA)

A classe UserAccess representa o acesso do usuário a um intervalo protegido. Para usar uma variável de classe UserAccess, ela primeiro precisa ser instanciada por exemplo

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

For Each

Aqui está um exemplo de processamento dos itens UserAccess em uma coleção.

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

AllowEdit

Retorna ou define um valor Boolean que indica se o usuário terá acesso ao intervalo especificado em uma planilha protegida.

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

Delete

Exclui o objeto.

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

Name

Retorna ou define um valor String que representa o nome do objeto.

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