Bloquear una casilla o no dependiendo del valor de otr

Te envío un ejemplo de código, espero te sirva, pégalo en el editor VBA (Alt + F11)
Option Explicit
Public Const MSGTITULO As String = "Ejemplo de Aplicativo"
Public Const MSGERROR As String = "Hay un error"
Public Const ToPwd = "clave" 'Esta es la clave
Dim Mensaje As Variant 'Variable definida
Public Sub Bloqueo()
On Error GoTo Errores
If Range("A1") = "dital" Then
    Range("B1:B2").Select
    ActiveSheet.Unprotect ToPwd 'Desproteje hoja
    Selection.Locked = True  'Bloquear celda seleccionada
    Selection.FormulaHidden = False 'Ocultar la fórmula en la celda bloqueada: True, para sí; False, para no
    ActiveSheet.Protect ToPwd, DrawingObjects:=True, Contents:=True, Scenarios:=True 'bloquea la hoja
    Range("A1").Select 'selecciona la celda
End If
If Range("A1") = "Analogico" Then 'condición
    Range("B2").Select
    ActiveSheet.Unprotect ToPwd 'Desproteje hoja
    Selection.Locked = False 'Bloquear celda seleccionada
    Selection.FormulaHidden = False
    'Validación
    With Selection.Validation
        .Delete
        .Add Type:=xlValidateWholeNumber, AlertStyle:=xlValidAlertStop, _
        Operator:=xlBetween, Formula1:="0", Formula2:="9999999" 'Solo acepta registros desde 0 hasta 9999999
        .IgnoreBlank = True 'ignore celdas vacias
        .InCellDropdown = True
        .InputTitle = ""
        .ErrorTitle = "Error de datos"
        .InputMessage = ""
        .ErrorMessage = "Sólo puede insertar datos numéricos"
        .ShowInput = True
        .ShowError = True 'Muestra error
    End With
  ActiveSheet.Protect ToPwd, DrawingObjects:=True, Contents:=True, Scenarios:=True 'bloquea la hoja
  Range("A1").Select 'celecciona la celda
  End If
Errores:
    'Mensaje = MsgBox(MSGERROR, vbCritical, MSGTITULO)
End Sub
Insertas un botón o un cuadro y le asignas la macro. La ejecutas. La instrucción debe hacer exactamente lo que deseas
Ahora, puedes usar tu creatividad para hacerlo funcional.
Me comentas.
Frishmar