Método AllowEditRanges.Add (Excel)

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

Sintaxe

expressão. Adicionar (Título, Intervalo, Palavra-passe)

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 de intervalo . O intervalo permitido para edição.
Password	Opcional	Variant	A senha do intervalo.

Valor de retorno

Um objeto AllowEditRange que representa o intervalo.

Exemplo

Este exemplo permite edições ao intervalo A1:A4 na folha de cálculo ativa, notifica o utilizador, altera a palavra-passe deste intervalo especificado e, em seguida, notifica o utilizador desta 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.