Método AllowEditRanges.Add (Excel)

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

Sintaxe

expressão. Add (Title, Range, Password)

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 Variant A senha do intervalo.

Valor de retorno

Um objeto AllowEditRange que representa o intervalo.

Exemplo

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

Sub UseChangePassword() 
 
 Dim wksOne As Worksheet 
 
 Set wksOne = Application.ActiveSheet 
 
 ' Protect the worksheet. 
 wksOne.Protect 
 
 ' Establish a range that can allow edits 
 ' on the protected worksheet. 
 wksOne.Protection.AllowEditRanges.Add _ 
 Title:="Classified", _ 
 Range:=Range("A1:A4"), _ 
 Password:="secret" 
 
 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.