Método AllowEditRanges.Add (Excel)

Agrega un rango que se puede modificar en una hoja de cálculo protegida. Devuelve un objeto AllowEditRange .

Sintaxis

expresión. Agregar (título, intervalo, contraseña)

Expresión Variable que representa un objeto AllowEditRanges .

Parameters

Nombre	Obligatorio/opcional	Tipo de datos	Descripción
Title	Obligatorio	String	Título del intervalo.
Range	Obligatorio	Range	Objeto Range . Rango que está permitido modificar.
Password	Opcional	Variant	Contraseña correspondiente al rango.

Valor devuelto

Objeto AllowEditRange que representa el intervalo.

Ejemplo:

En este ejemplo se permite editar el rango A1:A4 en la hoja de cálculo activa, se notifica al usuario, se cambia la contraseña de este intervalo especificado y, a continuación, se notifica al usuario este cambio.

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

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.