Compartilhar via

Propriedade AllowEditRanges.Item (Excel)

  • Artigo

Retorna um único objeto de uma coleção.

Sintaxe

expressão. Item (Índice)

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

Parâmetros

Nome Obrigatório/Opcional Tipo de dados Descrição
Índice Obrigatório Variantes O nome ou número de índice do objeto.

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" 
 
 MsgBox "Cells A1 to A4 can be edited on the protected worksheet." 
 
 ' Change the password. 
 wksOne.Protection.AllowEditRanges.Item(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.