Excel - bloquear celdas

Hola buenas mi duda es la siguiente quisiera saber si existe alguna forma de bloquear el acceso a una celda dependiendo de si otra esta vacia o no....ejemplo: si A1 contiene algo que en la celda A2 no te deje escribir.

Este codigo bloquea la hoja (aqui esta sin contraseña) cuando A1 es "a". En todo caso, si antes de eso has quitado el bloqueo a todas las celdas, menos a la que quieres dejar bloqueada, al poner la letra a, protegera la hoja, pero en realidad solo quedaria bloqueada dicha celda cuyo formato dejate bloquedado.

Abraham

Private Sub worksheet_change(ByVal target As Range)

If Range("a1").Value = "a" Then
ActiveSheet.Protect DrawingObjects:=True, Contents:=True, Scenarios:=True
End If

End Sub

Lo que me dices me sirve mas o menos, pero el caso es el siguiente, yo ya tengo la hoja bloqueada y las celdas que me interesan desbloqueadas. Ahora si la celda a1 me contiene un valor distinto a vacio quisiera que la celda a2(desbloqueada) se bloquease... no se si puede ser...

Gracias

Suponiendo que todo esta bloqueado menos A1 y B1. entonces al poner "a" en A1 quiero que se bloquee B1:


Private Sub worksheet_change(ByVal target As Range)
If Range("a1").Value = "a" Then
ActiveSheet.Unprotect
Range("B1").Select
Selection.Locked = True
Selection.FormulaHidden = False
ActiveSheet.Protect DrawingObjects:=True, Contents:=True, Scenarios:=True
End If

End Sub

Abraham

y como pongo esa instruccion en excel ?