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.