Forums Últimos mensajes - Powered by IBM
 
Tags Palabras claves

Desbloqueo de celdas

24/04/2010 - 21:49 por bart | Informe spam
Ayuda Hacer una pregunta
En una hoja EXCEL tengo bloqueadas desde la col/fila N62 hasta la col/fila
R250.Desde la col/fila K62 hasta la col/fila K250, son celdas desbloqueadas.
Si a la celda K62, le entro un valor que empiece por el caracter "C" y el 2º
caracter es "0" se tendrían que desbloquear las celdas N62 HASTA la R62.Si el
valor entrado es distinto a <>C0 tienen que seguir bloquedas las celdas N62
hasta la R62, y así sucesivamente hasta la N250 A R250.Sabe alquien darme una
solución. Estoy trabajando en Excel 2003 y no se mucho de VBA. GRacias de
antemano.
email Siga el debateRespuesta 6 respuestasRespuesta Tengo una respuesta
DRAGON AGE™: INQUISITION – Matadragones
 

Leer las respuestas

#1 Benito Merino
25/04/2010 - 22:25 | Informe spam
On 24 abr, 21:49, bart wrote:
En una hoja EXCEL tengo bloqueadas desde la col/fila N62 hasta la col/fila
R250.Desde la col/fila K62 hasta la col/fila K250, son celdas desbloqueadas.
Si a la celda K62, le entro un valor que empiece por el caracter "C" y el 2º
caracter es "0" se tendrían que desbloquear las celdas N62 HASTA la R62.Si el
valor entrado es distinto a <>C0 tienen que seguir bloquedas las celdas N62
hasta la R62, y así sucesivamente hasta la N250 A R250.Sabe alquien darme una
solución. Estoy trabajando en Excel 2003 y no se mucho de VBA. GRacias de
antemano.



Hola.

Tendremos que hacer un evento, como el que sigue:

Private Sub Worksheet_SelectionChange(ByVal Target As Range)
If Target.Column = 8 And (Target.Row >= 62 Or Target.Row <= 250) And
Target.Value = "C0" Then
ActiveSheet.Unprotect
Target.Resize(1, 11).Locked = False
ActiveSheet.Protect
End If
End Sub

Saludos,

Benito Merino
Barcelona

Preguntas similares

 

Busqueda sugerida :