Como Boquear una celda o un rango

Adaptando los rangos de este código hace lo que pides
Private Sub Worksheet_Change(ByVal Target As Range)
' casilla que deves seleccionar para ejecutar la macro
datos = "F13"
If Not Application.Intersect(Target, Range(datos)) Is Nothing Then
'casillas que libera para escribir en ellas
 Range("C10:D10").Select
     ActiveSheet.Unprotect
    Selection.Locked = False
    Selection.FormulaHidden = False
    ActiveSheet.Protect DrawingObjects:=True, Contents:=True, Scenarios:=True
    Range("F13").Select
 If [f13] = "" Then
ActiveSheet.Unprotect
    'Cuando casilla f13 no tiene nada te bloquea las demas casillas
    Range("C10:D10").Select
    Selection.Locked = True
    Selection.FormulaHidden = False
    Range("F13").Select
    ActiveSheet.Protect DrawingObjects:=True, Contents:=True, Scenarios:=True
End If
End If
End Sub
[email protected]
Creo que es lo que pides si no es eso o no te aclaras pásame un archivo y te la adapto

Hola no tengo idea de usar macro, quería ver si había alguna forma sin usar macro, que me bloque todas las celdas menos las que dejo libre para que ingrese parámetros, el archivo es medio pesado para pasar por e-mail, dado que soy bien es de excel tiene colores, porque hice que de acuerdo a <> avisios de mensaje según <> parametrpos de comparación ponga <> colores en los mensaje
Si tienes alguna forma que no sea usando macro, o si no alguna tutorial de como usar macro en forma simple( te aclaro que quise intentar usar macro y vi que lo relaciona con VB6, en este ultimo si se programar)
Igualmente garcías por tu respuesta

No es complicado
Pulsas alt+f11 y entraras en visual basic a la izquierda te aparece vbaproject
y debajo todas las hojas que tenga el libro pinchas 2 veces en la hoja que quieres proteger y pegas el código que te pase solo has de variar las casillas que yo puse por las que tu quieras dejar desbloqueadas cuando introduzcas un valor en la ceda f13 (que puede ser la que tu quieras) desbloqueas las celdas que tu asignes y cuando borres el valor de f13 te bloquea las celdas
en cuanto a si se puede hacer sin macros no conozco la manera.
Si te aclaras a pegar el código y no te aclaras con las casillas o rangos que quieres proteger di los que son y te la adapto

Hola gracias por tu respuesta pero resulta que las celdas que deben quedar desbloquadas son vs, dado que en esta celdas se ingresan parámetros que si no son ingrasadpos el sistema no podría hacer los cálculos correspondintes
las celdas son el rectángulo compresndido entre u11 y aa14
aquí el usuario debe ingresar mensaje de error y parámetros para controlar cantidades
¿Luego otro incoviniente es que esat planilla se repite 12 veces es una por mes y tengo un mes en cada hoja y los parámetros y mensaje son por mes
como haría paar que se ejecute en cada hoja?
Gracias por tu respuesta

Lo de los rangos en el código ya te digo los que tienes que modificar
En el que te paso ahora te puse los rangos que me dices solo falta cambiar la que quieres que se introduzca el dato para desprotegerla
en cuanto a los 12 meses con el código que te paso ahora se ejecuta en todas las hojas para ello lo has de introducir en thisworkbook
Private Sub Workbook_SheetChange(ByVal Sh As Object, ByVal Target As Range)
' casilla que deves seleccionar para ejecutar la macro
datos = "F13"
If Not Application.Intersect(Target, Range(datos)) Is Nothing Then
'casillas que libera para escribir en ellas
 MsgBox "hola"
 Range("U11:AA14").Select
     ActiveSheet.Unprotect
    Selection.Locked = False
    Selection.FormulaHidden = False
    ActiveSheet.Protect DrawingObjects:=True, Contents:=True, Scenarios:=True
    Range("F13").Select
 If [f13] = "" Then
ActiveSheet.Unprotect
    'Cuando casilla f13 no tiene nada te bloquea las demas casillas
    Range("U11:AA14").Select
    Selection.Locked = True
    Selection.FormulaHidden = False
    Range("F13").Select
    ActiveSheet.Protect DrawingObjects:=True, Contents:=True, Scenarios:=True
End If
End If
End Sub
Ya me cuentas si te vale