Método AllowEditRanges.Add (Excel)

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

Sintaxe

mais simples. 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 Range de objetos. 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 para o intervalo A1:A4 na planilha ativa, notifica o usuário, altera a senha desse intervalo especificado e, em seguida, notifica o usuário sobre essa 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.

  • Last updated on