Macro para bloquear celdas después de escribir

Que tal,
Necesito por favor me pudieran ayudar en que necesito una macro con la cual al escribir en una celda esta automáticamente pase a bloqueada para no modificar su contenido después de desplazarme a otra obviamente, el rango en que necesito realizar esto es de a1:z1000.
De antemano se que para que funcione debo de tener todas las celdas bloqueadas y de la misma manera proteger la hoja con contraseña.
Espero que con esta explicación me pudieran ayudar. Saludos.

1 respuesta

1
Respuesta de
Hola lordaxe, mira estando en tu hoja primero desprotege todas las celdas y después pulsas Alt+F11 y se abrirá el editor de VBA en el lado izquierdo verás el árbol de objetos de que se compone tu libro, si estas trabajando en la Hoja1 (por ejemplo) haces doble click sobre ella y se abrirá un modulo en blanco en el lado derecho, en ese módulo pegas este código:
Private Sub Worksheet_Change(ByVal Target As Range)
If Intersect(Target, Range("A1:Z1000")) Is Nothing Then
Exit Sub
Else
If Target.Value <> "" Then
Target.Select
ActiveSheet.Unprotect "excel"
Selection.Locked = True
End If
ActiveSheet.Protect "excel", DrawingObjects:=True, Contents:=True, Scenarios:=True
ActiveSheet.EnableSelection = xlUnlockedCells
End If
End Sub
Guardas el archivo y ya lo tienes, puedes probarlo, escribiendo en cualquier celda desde la A1 hasta la Z1000 la celda se quedará bloqueada, pero podrás escribir en otras celdas. La contraseña la cambias esta en negrita y te he puesto excel.
Si te ha servido finalizas y puntúas la respuesta.
Saludos
Julio
Añade un comentario a esta respuesta
Añade tu respuesta
Haz clic para o
Escribe tu mensaje