Macro que al cerrar o guardar no se puedan editar los datos ya ingresados pero si nuevos datos

Para que las celdas se protejan la hoja debe estar protegida. Cambia en la macro "abc" por el password que desees.

Ante de ejecutar la macro, te debes asegurar que todas las celdas de todas las hojas, estén desbloqueadas (Menú: Formato, Formato de celda, Proteger, Desactiva casilla de Bloqueada)

Pon la siguiente macro en los eventos de Thisworkbook, cuando cierres o guardes el archivo se bloquearán las celdas.

Private Sub Workbook_BeforeClose(Cancel As Boolean)
'Por.Dante Amor
    For Each h In Sheets
        h.Unprotect "abc"
        h.Cells.SpecialCells(xlCellTypeConstants, 23).Locked = True
        h.Protect "abc", False, True, False, True, True, _
            True, True, True, True, True, True, True, True, True
        h.EnableSelection = xlNoRestrictions
    Next
    ActiveWorkbook.Save
End Sub
'
Private Sub Workbook_BeforeSave(ByVal SaveAsUI As Boolean, Cancel As Boolean)
'Por.Dante Amor
    For Each h In Sheets
        h.Unprotect "abc"
        h.Cells.SpecialCells(xlCellTypeConstants, 23).Locked = True
        h.Protect "abc", False, True, False, True, True, _
            True, True, True, True, True, True, True, True, True
        h.EnableSelection = xlNoRestrictions
    Next
    ActiveWorkbook.Save
End Sub

Instrucciones para poner la macro en los eventos ThisWorkbook

1. Abre tu libro de excel
2. Para abrir Vba-macros y poder pegar la macro, Presiona Alt + F11
3. Del lado izquierdo dice: VBAProject, abajo dale doble click a ThisWorkbook
4. Del lado derecho copia la macro

Saludos. Dante Amor

¡Gracias! sos un capo! me re sirvió!!!

¿Y para que me haga exactamente eso que me pusiste pero además me oculte la hoja que tiene datos? Si es que la llego a necesitar para anexar datos le doy mostrar nomas.

La macro funciona con la hoja oculta.

Para ocultar la hoja agrega esto en las macros, después del "next"

h.Visible = False

Para mostrar la hoja, como dices solamente le das mostrar.

Me tira error

¿

Así tiene que quedar?

Private Sub Workbook_BeforeClose(Cancel As Boolean)
'Por.Dante Amor
For Each h In Sheets
h.Unprotect "abc"
h.Cells.SpecialCells(xlCellTypeConstants, 23).Locked = True
h.Protect "abc", False, True, False, True, True, _
True, True, True, True, True, True, True, True, True
h.EnableSelection = xlNoRestrictions
Next
h.Visible = False
ActiveWorkbook.Save
End Sub
'
Private Sub Workbook_BeforeSave(ByVal SaveAsUI As Boolean, Cancel As Boolean)
'Por.Dante Amor
For Each h In Sheets
h.Unprotect "abc"
h.Cells.SpecialCells(xlCellTypeConstants, 23).Locked = True
h.Protect "abc", False, True, False, True, True, _
True, True, True, True, True, True, True, True, True
h.EnableSelection = xlNoRestrictions
Next
h.Visible = False
ActiveWorkbook.Save
End Sub

Disculpa, cambia esta línea

h.Visible = False

Por esta

Sheets("Hoja2").Visible = False

Cambia "Hoja2" por el nombre de la hoja que quieras ocultar, debes dejar una hoja visible, no puedes ocultar todas.

Si son varias hojas pon varias líneas con el nombre de la hoja:

Sheets("Hoja2").Visible = False

Sheets("Hoja3").Visible = False

¡Gracias! Buenísimo! Cualquier cosa te escribo ja ja

Pero a medida que voy haciendo la de los días y voy agregando hojas, ¿la macro se va actualizando?

No se si se entiende lo que digo.

Osea, si pongo que se oculte hasta la hoja 3 (después de escrita) y agrego más hojas, ¿la macro se actualiza y me sigue ocultando la cantidad de hojas que vaya agregando?

Además el tema es que yo creo hojas nuevas para que todos los días puedan cargar los datos y el nombre esta por defecto.

Cuando ellos cargan le cambian el nombre y ahí yo no sabría el nombre de la hoja hasta que cada uno agarre para cargar

Así quedarían las macros, elimina todas las anterior y pon estas, en la última macro dice: "Hojax" cambia este nombre por el nombre de la hoja que quieres que permanezca visible, todas las demás hojas del libro se ocultarán.

Private Sub Workbook_BeforeClose(Cancel As Boolean)
'Por.Dante Amor
    ProtegerOcultar
    ActiveWorkbook.Save
End Sub
'
Private Sub Workbook_BeforeSave(ByVal SaveAsUI As Boolean, Cancel As Boolean)
'Por.Dante Amor
    ProtegerOcultar
End Sub
'
Sub ProtegerOcultar()
'Por.Dante Amor
    Set h1 = Sheets("Hojax")
    For Each h In Sheets
        If h.Name <> h1.Name Then
            h.Unprotect "abc"
            h.Cells.SpecialCells(xlCellTypeConstants, 23).Locked = True
            h.Protect "abc", False, True, False, True, True, _
            True, True, True, True, True, True, True, True, True
            h.EnableSelection = xlNoRestrictions
            h.Visible = False
        End If
    Next
End Sub

Por favor, podrías crear una pregunta nueva para tratar el tema de ocultar las hojas, ya que el tema era proteger celdas, pero ahora se extendió a ocultar hojas, al final de la descripción de la pegunta escribe que va dirigida a Dante Amor.

Si te funciona la macro, entonces en la pregunta publicaré la última macro, si tienes dudas, continuamos en la nueva pregunta.

vos sabes que me sirvió mucho la macro pero me quedan como bloqueadas las hojas y quedan como pesado el archivo y se cuelga.

Pongo la primer macro que me diste y cuando la abren de nuevo no les deja escribir en ninguna celda. Están todas bloqueadas no solamente las que tienen datos.

Quiero aclarar que las celdas tienen bordes, ¿afecta en algo? Por ahí lo toma como dato en la celda