Saltar al contenido

Bloquear/desbloquear celdas con condición

Featured Replies

publicado
  • Autor

Hola a todos

Bueno no he tenido respuesta alguna, se que estan muy ocupados así que toco idearmelas y di solucuión a mi problen dejo el código por si a alguien se le ofrece. Tal y como esta incluida la preposición ('), si no la aplíco me da error.

Podríamos dar tema cerrado

Saludos

Fernando

Private Sub Worksheet_Change(ByVal Target As Range) 
Rango a evaluar
If Intersect(Target, Range("F3:K3")) Is Nothing Then
Exit Sub
Else
'If Target.Value <> "" Then (sin apostrofe me da error)
Target.Select
ActiveSheet.Unprotect ""
Selection.Locked = True
Celda Condicionadora
If UCase(Range("L" & Target.Row).Value) = "REGISTRO NO EXISTE" Then
Celdas a desbloquear
Range("F3:K3").Select
Selection.Locked = False
Else
Celdas a bloquear
Range("F3:K3").Select
Selection.Locked = True
End If
End If[/CODE]

  • 2 weeks later...
publicado
  • Autor

Hola @[uSER=1]Sergio[/uSER], solo por reconfirmar que este tema esta solucionado. Mil gracias

Archivado

Este tema está ahora archivado y está cerrado a más respuestas.