Classe AllowEditRange (Excel VBA)

A classe AllowEditRange representa as células que podem ser editadas em uma planilha protegida.

Set

Para usar uma variável de classe AllowEditRange, ela primeiro precisa ser instanciada por exemplo

Dim aer as AllowEditRange
Set aer = ActiveSheet.Protection.AllowEditRanges(Index:=1)

Os procedimentos a seguir podem ser usados ​​para definir variáveis ​​do tipo AllowEditRange: AllowEditRanges.Item, AllowEditRanges.Add e Protection.AllowEditRanges

For Each

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

Dim aer As AllowEditRange
For Each aer In ActiveSheet.Protection.AllowEditRanges
	
Next aer

ChangePassword

Altera a senha de um intervalo que pode ser editado em uma planilha protegida.

Sintaxe : expression.ChangePassword (Password)

Password: A nova senha.

Dim strPassword As String: strPassword = 
ActiveSheet.Protection.AllowEditRanges(1).ChangePassword Password:=strPassword

Delete

Exclui o objeto.

ActiveSheet.Protection.AllowEditRanges(1).Delete

Range

Retorna um objeto Range que representa um subconjunto dos intervalos que podem ser editados em uma planilha protegida.

ActiveSheet.Protection.AllowEditRanges(1).Range =

Title

Retorna ou define o título do intervalo de células que pode ser editado em uma planilha protegida. String de leitura/gravação.

ActiveSheet.Protection.AllowEditRanges(1).Title =

Unprotect

Remove a proteção de uma planilha ou de uma pasta de trabalho. Esse método não terá efeito caso a planilha ou a pasta de trabalho não esteja protegida.

Se você esquecer a senha, não poderá desproteger a planilha ou pasta de trabalho. Convém guardar em lugar seguro uma lista de suas senhas e dos nomes dos documentos correspondentes.

Sintaxe : expression.Unprotect (Password)

Password: Uma sequência de caracteres que denota a senha (com distinção entre maiúsculas e minúsculas) a ser usada para desproteger o intervalo de células. Se o intervalo não estiver protegido com uma senha, este argumento será ignorado.

ActiveSheet.Protection.AllowEditRanges(1).Unprotect

Users

Retorna um objeto UserAccessList para o intervalo protegido em uma planilha.

Dim ualUsers As UserAccessList
Set ualUsers = ActiveSheet.Protection.AllowEditRanges(1).Users

AllowEditRanges.Add

Adiciona um intervalo que pode ser editado em uma planilha protegida. Retorna um objeto AllowEditRange .

Sintaxe : expression.Add (Title, Range, Password)

Dim strTitle As String: strTitle = 
Dim aer As AllowEditRange
Set aer = ActiveSheet.Protection.AllowEditRanges.Add(Title:=strTitle, Range:=)

Arguments

O seguinte argumento é opcional

Title (String) - O título do intervalo.

Range (Range) - Objeto Range . O intervalo permitido para edição.

The following argument is optional

Password (String) - A senha do intervalo.

AllowEditRanges.Count

Retorna um valor Long que representa o número de objetos na coleção.

Dim lngCount As Long
lngCount = ActiveSheet.Protection.AllowEditRanges.Count

AllowEditRanges.Item

Retorna um único objeto de uma coleção.

Sintaxe : expression.Item (Index)

Index: O nome ou número de índice do objeto.

Dim aerItem As AllowEditRange
Set aerItem = ActiveSheet.Protection.AllowEditRanges(Index:=1)