Proteger y Desproteger celdas de manera automatica en Excel

[WingzemonX]

Me han pedido que haga milagros en Excel, y no estoy muy seguro del alcance que tieen este programa. Sé que se pueden hacer grandes cosas, pero no creo que pueda tanto como programar tu desde cero. Pero bueno, la pregunta esta:

¿Se puede de alguna forma proteger o desproteger una celda dependiendo del valor de otra?

Mas especificamente quier hascer esto:

Tengo mi hoja:

Código:

A1: 0

A3: BLOQUEADA
A4: BLOQUEADA 
A5: BLOQUEADA
A6: BLOQUEADA
A7: BLOQUEADA

Las celdas de A3 a A7 estan bloqueadas, de tal forma que el usuario no puede ni escribir en ellas, ni siquiera seleccionarlas, ¿correcto? Y A1 tiene un valor, por lista desplegable puedes elegir del 0 al 5. Al selección 0, las cinco celdas estan bloqueadas. Lo que quiero es que al seleccionar otras opciones, pase esto:

SELECCIONA 1

Código:

A1: 1

A3: DESBLOQUEADA
A4: BLOQUEADA 
A5: BLOQUEADA
A6: BLOQUEADA
A7: BLOQUEADA

Se desbloquee la primera celda y el usuario pueda escribir.

SELECCIONA 2

Código:

A1: 2

A3: DESBLOQUEADA
A4: DESBLOQUEADA
A5: BLOQUEADA
A6: BLOQUEADA
A7: BLOQUEADA

Se desbloquen las dos primeras.

SELECCIONA 3

Código:

A1: 3

A3: DESBLOQUEADA
A4: DESBLOQUEADA
A5: DESBLOQUEADA
A6: BLOQUEADA
A7: BLOQUEADA

Se desbloqueen las tres primeras, y asi sucesivamente.

A lo mejor es imposible, y me las tendre que arreglar de otras formas. Pero si hay alguna forma de hacerlo, quisiera averiguarlo. He buscado mucho en internet no me aparece nada como lo que quiero, o tal vez no lo busco con las palabras adecuadas.

[mrocf]

Hola! WingzemonX

1º) Haz clic con el botón derecho de tu ratón en la solapa de la hoja en la que te interesa conseguir el efecto, y selecciona Ver código.

2º) En la ventana que se te abrirá, copia y pega lo siguiente:

Código PHP:

  Private Sub Worksheet_Change(ByVal Target As Range) 
If Target.Address <> "$A$1" Then Exit Sub 
With ActiveSheet 
  .Unprotect: .EnableSelection = xlUnlockedCells 
  [a3:a7].Locked = False: [a3].Offset(Target).Resize(5 - Target).Locked = True 
  .Protect DrawingObjects:=True, Contents:=True, Scenarios:=True 
End With 
End Sub  
   

3º) Cierra todas las ventanas del ambiente Visual Basic for Application (VBA) en el que te encuentras y retorna al Excel

4º) Haz un par de pruebas y confirma, por favor, si es lo que estabas buscando.

Saludos, Cacho.

[JoaoM]

Se mantiene toda la hoja bloqueadas y no hay como escribir en la A1

[mrocf]

Joao
Si te está pasando lo que describes, entonces te sugiero que destines un par de segundos a pensar: ¿Por qué será que la celda A1 está bloqueada?...

Dicho de otro modo: ¿Qué será lo que te falta leer para que entiendas cómo funciona el bloqueo de celdas del Excel?

Saludos, Cacho.

[JoaoM]

Bueno, disculpame meterme en el tema que no es mio, pero me interesan estas tareas y interrugantes.

Pues segun lo leido, la celda A1 deveria no bloquearse para poder meter 1, 2, 3, 4 o 5.

Sopone, desbloqueo en el icono de la barra Desproteger Hoja, entonces puedo escribir en la celda A1, 2, al presionar Enter se bloquea todas las celdas de la hoja, ¿porque? no lo se, no soy expeto en excel y por eso pregunté pero, si algo dije que ofendiera, no fue mi intension.

Lo cierto es que aplique el codigo en la Hoja1 y pasa lo referido anteriormente