Macro para proteger varios rangos de celdas a partir del valor de una celda

Necesito un código, en donde a partir de el valor de una celda (A1) = "si o no", "me proteja/desproteja " (permitir si o no borrar datos) de varios rangos de celdas (B1:B4) y (C1:C7), pero ademas esto lo haga dentro de la misma hoja con varios rangos a partir de otra celda, ej. (H1) = "si o no", proteja/desproteja el rango (E1:E4) y (D1:D7), y (G1) = "si o no", proteja/desproteja el rango (I1:I4) y (J1:J7), sin que se entre en conflicto, la hoja inicialmente esta bloqueada, salvo las celdas permitidas, Osea de acuerdo al valor que tome un celda permita borrar o no un rango de celda, pero para viarias celdas que tomen ciertos valores y que permitan borrar o no varios rangos.

NO SE SI SE PODRÁ.

2 respuestas

Respuesta
3

Te dejo el link donde puedes descargar un archivo configurado para hacer lo que mencionas, puedes revisar el código y modificarlo a tus necesidades futuras

Igualmente dejo el código para quien encuentre útil esta pregunta.

Private Sub Worksheet_Change(ByVal Target As Range)
''Creada por FSerrano en 131106 para Adrian626 en TodoExpertos.com
''configura la protección de las celdas de acuerdo a los valores ingresados
If Target.Address(0, 0) = "A1" Then RANGO = "B1:B4,C1:C7"
If Target.Address(0, 0) = "H1" Then RANGO = "E1:E4,D1:D7"
If Target.Address(0, 0) = "G1" Then RANGO = "I1:I4,J1:J7"
If IsEmpty(RANGO) Then Exit Sub
ActiveSheet.Unprotect
If UCase(Target.Value) = "SI" Then
 ActiveSheet.Range(RANGO).Locked = False
ElseIf UCase(Target.Value) = "NO" Then
 ActiveSheet.Range(RANGO).Locked = True
End If
ActiveSheet.Protect
End Sub

Saludos

Si has logrado una solución, no olvides finalizar y puntuar la pregunta

Respuesta

Si esta configurado la opción option explicit, es decir se debe declarar la variable RANGO, como te sale error habría que verificar y quitar esta opción.

Añade tu respuesta

Haz clic para o

Más respuestas relacionadas

Como bloquear un rango de celdas dependiendo del valor de otra y aplicarlo a para los valores que se registren en una columna?

Suponiendo que tengo en las celdas de la comuna "E" únicamente puede aceptar los valores de "SI" y "NO", en caso de que el valor registrado en la celda "E1" sea "SI" me permita escribir valores en las siguientes 5 celdas a la derecha ("F1, G1, H1,...
1 respuesta

Como ocultar filas a través del valor de una celda

¿Tengo una tabla en la cual donde necesito que: cuando a1 sea igual a 0 oculte el rango a1:c3; y de igual forma si a4 fuera igual a 0, oculte el rango b4:c7. Para ello necesito que se ejecute la macro automáticamente, sin necesidad de incrporarle un...
1 respuesta

Copiar color de celda según contenido (variante)

En la misma Hoja tengo una base de datos ( Buscar V) donde en unas determinadas celdas aparecen las provincias según la comunidad autónoma que has seleccionado en "B4" En la columna "B" tengo validación a dichas celdas por lo que me aparece un...
3 respuestas

Macros para no poder cambiar datos de un rango y si se intenta cambiar regresar al valor predeterminado

Tengo un rango en la columna A A10:A100 y en cada fila hay numero del 1 al 100 de igual forma... La hoja esta bloqueada pero solo esa columna no lo esta (por que así lo necesito) Lo que me hace falta es que ese rango en sus celdas que tienen los...
1 respuesta

Bloquear varias celdas de acuerdo an contenido de otra

Tengo la hoja bloqueada esepto las celdas Q4, K16, K17, K18, Ahora bien si la celda Q4 tiene un valor de FINALIZAR quiero bloquear las celdas K16, K17, K18 y la propia celda Q4 de manera que ya no se pueda hacer ninguna modificacion La contraceña de...
1 respuesta

Ayuda con macro mpara ocultar columnas

Me gustaría que me ayuden a crear una macro para lo siguiente: En la la Fila 1 las celdas tienen una fórmula que dependiendo de los datos de otra fila me muestra valores de 0 ó 1; o que quiero es una macro que revise los datos de la fila 1 y si...
1 respuesta

Macro borrar datos de hoja sin borrar formato

Tengo una macro con la que me ayudaron, trabaja muy bien la cual busca datos en un libro y los anota en una hoja llamada buscador, pero a esta hoja no puedo darle formato ya que se elimina al usarlo, es decir por ejemplo si le pongo un fondo a la...
1 respuesta

¿Cómo sumar el 50% de los valores escogidos más uno que sean los más altos?

Me explico con un ejemplo : Tengo 5 números en las celdas: A1 = 5 B1=8 C1=2 D1=4 E1=3 Entonces quiero seleccionar las 5 celdas y que haga la suma del 50% del total de celdas (5 celdas) más uno, en este ej. 3 celdas, y que esas 3 celdas sean en...
1 respuesta

Bloquear celdas a través de fórmula

Necesito bloquear una celda desde una fórmula, es decir si el valor de la celda A1 es 0, quisiera que el usuario no pudiese digitar en la celda B1; pero si el valor es 1, debe digitar un valor o en su defecto colocar un texto.
1 respuesta

Que TextBox de un formulario tome el valor de una celda cuyo valor está constantemente cambiando.

Tengo el siguiente código: Private Sub TextBox5_Change() TextBox1.Value = Sheets("Tablero".Range("B4").Value End Sub Mi idea es que al inicializarse el Formulario FrmBalance, el TextBox1, tome el valor de la celda "B4" de la hoja "Tablero". El...
3 respuestas