Realiza los siguientes pasos
- Selecciona todas las celdas de tu hoja. Entra al menú Inicio, formato, Formato de celdas, Proteger, y desmarca la casilla "Bloqueada", presiona Aceptar
- Ahora selecciona las columnas G, H, I. Entra al menú Inicio, formato, Formato de celdas, Proteger, y Marca la casilla "Bloqueada", presiona Aceptar.
- Protege la hoja, entra al menú Revisar, Proteger hoja, escribe la contraseña, Aceptar, vuelve a escribir la contraseña, Aceptar.
- Pon la siguiente macro en los eventos de tu hoja
Private Sub Worksheet_Change(ByVal Target As Range)
'Por.Dante Amor
If Not Intersect(Target, Range("F:F")) Is Nothing Then
If Target.Count > 1 Then Exit Sub
pass = "abc"
Select Case Target.Value
Case "X" 'si el valor es X se bloquean
ActiveSheet.Unprotect pass
Range("G" & Target.Row & ":I" & Target.Row).Locked = True
ActiveSheet.Protect pass
Case "Y" 'si el valor es Y se desbloquear
ActiveSheet.Unprotect pass
Range("G" & Target.Row & ":I" & Target.Row).Locked = False
ActiveSheet.Protect pass
End Select
End If
End Sub
Sigue las Instrucciones para poner la macro en los eventos de worksheet
- Abre tu libro de excel
- Para abrir Vba-macros y poder pegar la macro, Presiona Alt + F11
- Del lado izquierdo dice: VBAProject, abajo dale doble click a worksheet(tu hoja)
- En el panel del lado derecho copia la macro
- Cambia en la macro "abc" por el password que le hayas puesto a tu hoja
- Cambia en la macro "X" y "Y" por el texto que bloquea y desbloquea celdas.
Listo, las columnas G, H, I están bloqueadas, si por ejemplo en la celda F14 escribes Y, las celdas G14, H14 I14 se desbloquean. Si vuelves a escribir X en la celda F14, las celdas se vuelven a bloquear.
.
.