Bloquear varias celdas dependiendo del contenido de otra
Como puedo hacer que dependiendo de lo que seleccione en una lista desplegable las celdas que necesito llenar queden desbloqueadas, y las que no ocupo queden bloqueadas, esto teniendo en cuanta que la hoja ya esta bloqueada y solo las celdas que están desbloqueadas son las que están abajo de los nombres de encabezados.
Comparto una imagen
1 respuesta
Como no queda claro dónde se encuentra el desplegable para decidir qué valor se seleccionó fijate si la siguiente respuesta y sus comentarios te ayuda ... sino aclara un poco más tu proceso.
Bloquear celdas SOLO cuando tenga valor (antes debe estar libre)
Sdos.
Elsa
http://aplicaexcel.galeon.com/macro.htm
Hola Elsa.
Muchas Gracias por contestar, ya he revisado la información que me envías y no he logrado que funcione, si sirve de algo te comparto el libro, la clave de desbloqueo es 1234.
La lista desplegable se encuentra en la columna "A" a partir del renglón 6
https://drive.google.com/file/d/1bD-3Wy813kQM8BfEBxsjbL11XGwe598P/view?usp=sharing
Muchas Gracias por tu ayuda.
Hola Elsa:
disculpa que te moleste pero ya me urge saber si es posible lo que necesito.
Muchas Gracias y nuevamente una disculpa
Ah, disculpa pero no vi tu mensaje anterior... ya lo descargo para revisarlo.
Sdos!
Mirando tu imagen, le agregué la instrucción para que te bloquee la celda gris en caso de ser Foraneo... lo mismo debieras hacer para el 3er criterio según la celda que necesitas bloquear.
Private Sub Worksheet_Change(ByVal Target As Range)
If Target.Column = 1 And Target.Count = 1 Then
'se desprotege la hoja
ActiveSheet.Unprotect Password = "1234"
If Target.Value = "LOCAL" Then
Range("D" & Target.Row).Locked = True
Range("F" & Target.Row).Locked = True
Range("G" & Target.Row).Locked = True
ElseIf Target.Value = "FORANEO" Then
Range("G" & Target.Row).Locked = True
ElseIf Target.Value = "EXTRANJERO" Then
'completar
End If
'se vuelve a proteger
ActiveSheet.Protect Password = "1234"
End If
End Sub
Sdos y disculpa la demora ... hubo una confusión entre libros.
Ajusta tu clave... creo que la tenías sin comillas.
¡Gracias! Muchas Gracias Elsa, y al contrario disculpa la insistencia, ¿crees qué podría hacerte otra consulta? O prefieres que realice una nueva pregunta al foro, la verdad siempre que me has ayudado es justo lo que necesito por eso el atrevimiento.
Saludos.
Si claro. Deja una nueva consulta en el tablón ... inicia el cuerpo del mensaje con el texto: Para Elsa.
Sdos!
