Objeto AllowEditRanges (Excel)

Colección de todos los objetos AllowEditRange que representan las celdas que se pueden editar en una hoja de cálculo protegida.

Comentarios

Utilice la propiedad AllowEditRanges del objeto Protection para devolver una colección AllowEditRanges .

Una vez devuelta una colección AllowEditRanges , puede usar el método Add para agregar un rango que se pueda editar en una hoja de cálculo protegida.

Ejemplo:

En este ejemplo, Microsoft Excel permite editar el rango A1:A4 en la hoja de cálculo activa y, a continuación, notifica al usuario el título y la dirección del 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

• Add

Propiedades

• Count
• Elemento

Vea también

• Referencia del modelo de objetos de Excel

Soporte técnico y comentarios

¿Tiene preguntas o comentarios sobre VBA para Office o esta documentación? Vea Soporte técnico y comentarios sobre VBA para Office para obtener ayuda sobre las formas en las que puede recibir soporte técnico y enviar comentarios.