Proteger y Desproteger celdas de manera automatica en Excel

[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.