Bloqeuo de celdas activas de forma automática

Acá los macros
En un modulo pones esto:
Sub proteccion()
Dim n As Long
' contar elementos
n = Application.WorksheetFunction.CountA(Sheets(1).Range("A:A")) + 1
'desbloquea hoja
ActiveSheet.Unprotect Password:="1234"
'desbloquea celda sgte
Range("A" & n).Select: Selection.Locked = False
Range("C" & n).Select: Selection.Locked = False
Range("E" & n).Select: Selection.Locked = False
' bloquea hoja con password
ActiveSheet.Protect Password:="1234", DrawingObjects:=True, Contents:=True, Scenarios:=True
End Sub
Sub bloquea_ingresados()
Dim n As Long
n = Application.WorksheetFunction.CountA(Sheets(1).Range("A:A"))
'desbloquea hoja
ActiveSheet.Unprotect Password:="1234"
'bloquea celda editada
Sheets(1).Range("A" & n).Select: Selection.Locked = True
Sheets(1).Range("C" & n).Select: Selection.Locked = True
Sheets(1).Range("E" & n).Select: Selection.Locked = True
ActiveSheet.Protect Password:="1234", DrawingObjects:=True, Contents:=True, Scenarios:=True
End SubHola
y en el objeto ThisWorkbook pones esto:
Private Sub Workbook_BeforeSave(ByVal SaveAsUI As Boolean, Cancel As Boolean)
bloquea_ingresados
End Sub
Private Sub Workbook_Open()
proteccion
End Sub
Consideraciones:
Estas macros están realizadas sobre el supuesto que tus datos están en la hoja 1 del libro si deseas aplicarlo sobre otra hoja, debes modificar el indice de la hoja en cada linea
Sheets(1)
Donde 1 es el numero de la hoja.
El password utilizado es 1234 tu debes cambiarlo y "no olvidarlo".
Operatividad:
Cuando abres el libro el macro desbloquea la celda siguiente a la última con datos, quedando esta disponible para edición. Luego si el usuario "graba" la hoja, estas celdas ( editadas) se bloquean nuevamente, no pudiendo el usuario hacer ingreso de otros datos a menos que cierre y habrá otra vez el libro.
Eso es todo
No olvides CERRAR la pregunta