Bloqueo de celdas condicional

Hola Claudio,

Puedes probar este codigo depositandolo en el modulo de la hoja en cuestion.
Acuerdate de desbloquear todas las celdas q quieres q esten desbloqueadas
cuando la hoja este protegida.

Saludos,
KL

'-Inicio Codigo-
Private Sub Worksheet_Change(ByVal Target As Range)
Dim rng As Range
Dim pass As String

pass = "claudio" '<= aqui va tu contrasena.

ActiveSheet.Unprotect pass
Set rng = Intersect(Target, Range("A1"))
If rng Is Nothing Then Exit Sub
Range("B1").Locked = IsEmpty(rng)
ActiveSheet.Protect pass
End Sub
'-Fin Codigo-

"Claudio" wrote in message
news:

En una hoja protegida quiero hacer que algunas celdas se vayan
desbloqueando
de acuerdo a que otra celda este vacia o no.
Aclarando un poco: Si una celda (por ejemplo A1) esta vacia, otra celda
(por
ejemplo B1) permanezca bloqueada cuando la hoja este protegida. Pero si en
la
celda del ejemplo A1 ingreso un valor, quiero que la celda B1 se
desbloquee