H o l a:
Primero, tienes que quitar el bloqueo a toda las celdas.
Segundo, tienes que proteger la hoja.
Tercero, cada que modifiques la celda B8 o G8 las otras celdas se bloquearán.
Si escribes algo en B8 la celda C8 se desbloquea
Si borras la celda B8 la celda C8 se bloquea
Cambia en la macro el password "abc" para proteger la hoja.
Pon la macro en los eventos de tu hoja.
Private Sub Worksheet_Change(ByVal Target As Range)
'Por.Dante Amor
If Target.Count > 1 Then Exit Sub
If Target.Address(False, False) = "B8" Then
ActiveSheet.Unprotect "abc"
If Target = "" Then
Range("C8").Locked = True
Else
Range("C8").Locked = False
End If
ActiveSheet.Protect "abc"
End If
If Target.Address(False, False) = "G8" Then
ActiveSheet.Unprotect "abc"
If Target = "" Then
Range("F8,H8").Locked = True
Else
Range("F8,H8").Locked = False
End If
ActiveSheet.Protect "abc"
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)
- Del lado derecho copia la macro