Classe AllowEditRange - as células que podem ser editadas em uma planilha protegida (Excel VBA)

A classe AllowEditRange representa as células que podem ser editadas em uma planilha protegida. 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)

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.

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.

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