¿Cómo bloquear un rango de celdas dependiendo del valor de un botón de opción?
Necesito realizar la siguiente validación:
En la Celda B3 se quiere que al seleccionar "Enabled" se pueda agregar datos en las celdas B4 a B7 y si selecciona "Disabled" no debe dejar insertar datos.
1 respuesta
Respuesta de Dante Amor
1
H o l a:
Envíame tu archivo para ver el tipo de botón de opción que tienes y adaptarle la macro.
Mi correo [email protected]
En el asunto del correo escribe tu nombre de usuario “Janeth Mac” y el título de esta pregunta.
Hola, ya te envié el documento.
¡Muchas Gracias!
Saludos!!
H o l a:
Para bloquear y desbloquear las celdas se tiene que cambiar el formato de las celdas a Desbloqueada; y la hoja tiene que estar protegida. Para que se haga en automático se tiene que hacer con una macro:
Te anexo las macros:
Sub BloquearCeldas1() 'Por.Dante Amor Bloquea "D3", "B4:B7" End Sub Sub BloquearCeldas2() 'Por.Dante Amor Bloquea "D8", "B9:B12" End Sub Sub BloquearCeldas3() 'Por.Dante Amor Bloquea "D13", "B14:B17" End Sub ' Sub Bloquea(celda, rango) 'Por.Dante Amor ActiveSheet.Unprotect "abc" Select Case Range(celda) Case 1: Range(rango).Locked = False Case 2: Range(rango).Locked = True End Select ActiveSheet.Protect "abc" End Sub
