Classe UserAccessList (Excel VBA)
Uma coleção de objetos UserAccess que representa o acesso do usuário para intervalos protegidos. Para usar uma variável de classe UserAccessList, ela primeiro precisa ser instanciada por exemplo
Dim ual as UserAccessList
Set ual = ActiveSheet.Protection.AllowEditRanges(1).Users
Add
Adiciona uma lista de acesso de usuário.
Dim strName As String: strName =
Dim usrac As UserAccess
Set usrac = ActiveSheet.Protection.AllowEditRanges(1).Users.Add(Name:=strName, AllowEdit:=True)
Arguments
O seguinte argumento é opcional
Name (String) - O nome da lista de acesso de usuário.
AllowEdit (Boolean) - True permite que os usuários da lista de acesso alterem os intervalos editáveis em uma planilha protegida.
Count
Retorna um valor Long que representa o número de objetos na coleção.
Dim lngCount As Long
lngCount = ActiveSheet.Protection.AllowEditRanges(1).Users.Count
DeleteAll
Remove todos os usuários que têm acesso a um intervalo protegido em uma planilha.
ActiveSheet.Protection.AllowEditRanges(1).Users.DeleteAll
Item
Retorna um único objeto de uma coleção.
Para obter mais informações sobre como retornar um único membro de uma coleção, consulte retornando um objeto de uma coleção.
Item (Index)
Index: O nome ou número de índice do objeto.
Dim usracItem As UserAccess
Set usracItem = ActiveSheet.Protection.AllowEditRanges(1).Users(Index:=1)