Nota:
El acceso a esta página requiere autorización. Puede intentar iniciar sesión o cambiar directorios.
El acceso a esta página requiere autorización. Puede intentar cambiar los directorios.
Agrega un rango que se puede modificar en una hoja de cálculo protegida. Devuelve un objeto AllowEditRange .
Sintaxis
más sencilla.Agregar (título, rango, contraseña)
expresión Variable que representa un objeto AllowEditRanges .
Parameters
| Nombre | Obligatorio/opcional | Tipo de datos | Descripción |
|---|---|---|---|
| Title | Obligatorio | String | El título del rango. |
| Rango | Obligatorio | Rango | Objeto de rango . Rango que está permitido modificar. |
| Password | Opcional | Variant | Contraseña correspondiente al rango. |
Valor devuelto
Un objeto AllowEditRange que representa el rango.
Ejemplo
Este ejemplo permite modificaciones en el rango A1:A4 de la hoja de cálculo activa, notifica al usuario, cambia la contraseña para este intervalo especificado y luego notifica al usuario sobre 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.