Bloque de celdas automático

Amigo, necesito lograr que si en la celda A1 dice "Valor unitario" la celda b3 se bloquee, pero si la celda A1=""; que se quede desblqueada gracias

1 Respuesta

Respuesta
1
Lo que debería hacer es:
a) En e1 por ejemplo poner lo siguiente =celda("PROTEGER", B3)
B) Proteger la hoja
C) En el evento change de la hoja :
Private Sub Worksheet_SelectionChange(ByVal Target As Range)
If Range("a1") = "Valor Unitario" And Range("e1") = 0 Then '0 esta desprotegida
    Sheets("Hoja3").Unprotect "123"
    Range("b3").Locked = True
    ActiveSheet.Protect DrawingObjects:=True, Contents:=True, Scenarios:=True
Else
    Sheets("Hoja3").Unprotect "123"
    Range("b3").Locked = False
    ActiveSheet.Protect DrawingObjects:=True, Contents:=True, Scenarios:=True
End If
End Sub
Espero que te halla sido de ayuda, y quedo a las ordenes.
Saludos, y no te olvides de finalizar y evaluar la respuesta.
Muchas gracias por tu colaboración, pero me aparece el famoso error 1004
No se puede asignar la propiedad locked de la clase Range
Espero tu respuesta
Que rraro, revisa bien el código por que lo acabo de probar y no me dio errores, de todas formas si quieres te lo mando por mail con mucho gusto
O soy más malo de lo que pensé en VBA o mi pc está mal configurado, por que sigue sin funcionar, aparece el mismo error.
Agradecería si me lo mandaras a (xxxxxx)
Y que pena por las molestias
Gracias
No es que uno sea malo, a veces cometemos errores que son tan sencillos que no los vemos aunque estén delante de nuestros ojos (por lo menos a mi me ocurre así) y no te apenes que para esto estamos; para apernder todos de todos (porque gracias a uds. uno también aprende, todos los días se aprende algo nuevo).
Ya te envíe el mail con el ejemplo.
Suerte, y no dudes en preguntar.
Te agradezco mucho tu ayuda, y tienes razón el problema era muy sencillo, estaba haciendo todo eso en la Hoja 1...
Pero bueno ya quedó muy bien
Te doy un calificación de 5 estrellas muchas gracias

Añade tu respuesta

Haz clic para o

Más respuestas relacionadas