Objeto AllowEditRanges (Excel)

Uma coleção de todos os objetos AllowEditRange que representam as células que podem ser editadas em uma planilha protegida.

Comentários

Use a propriedade AllowEditRanges do objeto Protection para retornar uma coleção AllowEditRanges .

Depois que uma coleção AllowEditRanges for retornada, você poderá usar o método Add para adicionar um intervalo que pode ser editado em uma planilha protegida.

Exemplo

Neste exemplo, o Microsoft Excel permite que as edições alcancem A1:A4 na planilha ativa e, em seguida, notifica o usuário do título e do endereço do intervalo especificado.

Sub UseAllowEditRanges() 
 
 Dim wksOne As Worksheet 
 Dim wksPassword As String 
 
 Set wksOne = Application.ActiveSheet 
 
 ' Unprotect worksheet. 
 wksOne.Unprotect 
 
 wksPassword = InputBox ("Enter password for the worksheet") 
 
 ' Establish a range that can allow edits 
 ' on the protected worksheet. 
 wksOne.Protection.AllowEditRanges.Add _ 
 Title:="Classified", _ 
 Range:=Range("A1:A4"), _ 
 Password:=wksPassword 
 
 ' Notify the user 
 ' the title and address of the range. 
 With wksOne.Protection.AllowEditRanges.Item(1) 
 MsgBox "Title of range: " & .Title 
 MsgBox "Address of range: " & .Range.Address 
 End With 
 
End Sub

Métodos

Propriedades

Confira também

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.