Clase AllowEditRange (Excel VBA)

La clase AllowEditRange representa las celdas que se pueden modificar en una hoja de cálculo protegida.

Set

Para usar una variable de clase AllowEditRange, primero debe ser instanciado, por ejemplo

Dim aer as AllowEditRange
Set aer = ActiveSheet.Protection.AllowEditRanges(Index:=1)

Los siguientes procedimientos se pueden usar para establecer variables de clase AllowEditRange : AllowEditRanges.Item, AllowEditRanges.Add y Protection.AllowEditRanges

For Each

A continuación, se muestra un ejemplo de cómo procesar los elementos AllowEditRange en una colección.

Dim aer As AllowEditRange
For Each aer In ActiveSheet.Protection.AllowEditRanges
	
Next aer

ChangePassword

Cambia la contraseña correspondiente a un rango que se puede modificar en una hoja de cálculo protegida.

Sintaxis : expression.ChangePassword (Password)

Password: Nueva contraseña.

Dim strPassword As String: strPassword = 
ActiveSheet.Protection.AllowEditRanges(1).ChangePassword Password:=strPassword

Delete

Elimina el objeto.

ActiveSheet.Protection.AllowEditRanges(1).Delete

Range

ActiveSheet.Protection.AllowEditRanges(1).Range =

Title

Devuelve o establece el título del rango de celdas que se pueden modificar en una hoja protegida.

ActiveSheet.Protection.AllowEditRanges(1).Title =

Unprotect

Elimina la protección de una hoja o de un libro.

Si olvida la contraseña, no puede desproteger la hoja de cálculo o el libro.

Sintaxis : expression.Unprotect (Password)

Password: Cadena que denota la contraseña que se usa para desproteger el rango de celdas (se distingue entre mayúsculas y minúsculas).

ActiveSheet.Protection.AllowEditRanges(1).Unprotect

Users

Devuelve un objeto UserAccessList para el rango protegido de una hoja de cálculo.

Dim ualUsers As UserAccessList
Set ualUsers = ActiveSheet.Protection.AllowEditRanges(1).Users

AllowEditRanges.Add

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

Sintaxis : expression.Add (Title, Range, Password)

Dim strTitle As String: strTitle = 
Dim aer As AllowEditRange
Set aer = ActiveSheet.Protection.AllowEditRanges.Add(Title:=strTitle, Range:=)

Arguments

Estos son los argumentos con nombre :

Title (String) - Título del rango.

Range (Range) - Objeto Range .

Los siguientes argumentos son opcionales

Password (String) - Contraseña correspondiente al rango.

AllowEditRanges.Count

Devuelve un valor Long que representa el número de objetos de la colección.

Dim lngCount As Long
lngCount = ActiveSheet.Protection.AllowEditRanges.Count

AllowEditRanges.Item

Devuelve un solo objeto de una colección.

Sintaxis : expression.Item (Index)

Index: Nombre o número de índice del objeto.

Dim aerItem As AllowEditRange
Set aerItem = ActiveSheet.Protection.AllowEditRanges(Index:=1)