Método AllowEditRanges.Add (Excel)

Artigo
04/07/2023

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

Sintaxe

expressão. Adicionar (Título, Intervalo, Senha)

Expressão Uma variável que representa um objeto AllowEditRanges .

Parâmetros

Nome	Obrigatório/Opcional	Tipo de dados	Descrição
Title	Obrigatório	String	O título do intervalo.
Range	Obrigatório	Range	Objeto Range . O intervalo permitido para edição.
Password	Opcional	Variantes	A senha do intervalo.

Valor de retorno

Um objeto AllowEditRange que representa o intervalo.

Exemplo

Este exemplo permite que as edições alcancem A1:A4 na planilha ativa, notifica o usuário, altera a senha para esse intervalo especificado e notifica o usuário dessa alteração.

Sub UseChangePassword() 
 
 Dim wksOne As Worksheet 
 
 Set wksOne = Application.ActiveSheet 

 ' Establish a range that can allow edits 
 ' on the protected worksheet. 
 wksOne.Protection.AllowEditRanges.Add _ 
 Title:="Classified", _ 
 Range:=Range("A1:A4"), _ 
 Password:="secret" 

 ' Protect the worksheet. 
 wksOne.Protect 
 
 MsgBox "Cells A1 to A4 can be edited on the protected worksheet." 
 
 ' Change the password. 
 wksOne.Protection.AllowEditRanges(1).ChangePassword _ 
 Password:="moresecret" 
 
 MsgBox "The password for these cells has been changed." 
 
End Sub

Suporte e comentários

Tem dúvidas ou quer enviar comentários sobre o VBA para Office ou sobre esta documentação? Confira Suporte e comentários sobre o VBA para Office a fim de obter orientação sobre as maneiras pelas quais você pode receber suporte e fornecer comentários.

Compartilhar via