Insertar última fecha de registro en Excel

Hola,

Para la fecha en A1 con registro manual, copia en el módulo ThisWorkbook:

Private Sub Workbook_BeforeClose(Cancel As Boolean)
Range("A1") = Now
End Sub

Para la fecha en A1 con registro automático, copia en el módulo ThisWorkbook:

Private Sub Workbook_BeforeClose(Cancel As Boolean)
Range("A1") = Now
ActiveWorkbook.Save
End Sub

Que tengas un buen día.

Re,

En la ventana "Proyecto - VBAProject" haces doble clic en ThisWorkbook y pegas el código que te convenga en la parte derecha (blanca).

No se debe pegar el código en el módulo de Hoja.

Buen continuado.

Hola

¿el libro de trabajo en el que estás trabajando o uno diferente o todos los que están en una carpeta?
--
Miguel

OK, es amable de responder, pero no sé nada sobre VBA.
Bueno, intentaré (para info, trabajo en Excel 2010):
1) me coloco en la celda A1 de mi hoja
2) en la pestaña de desarrollador hago clic en Visual Basic
3) en la pequeña ventana en la parte superior izquierda "Proyecto - VBAProject" estoy en mi "hoja1" en la que trabajo (tengo varias hojas en mi libro) - hago clic en ella
4) se abre una ventana con el nombre de mi libro y el nombre de mi hoja, debajo de la barra de desplazamiento "(General)", debajo en el espacio libre copio el texto que me diste.

Y después no sé ...

Si alguien puede ayudarme ...

OK, funciona perfectamente. ¿Hay posibilidad de cambiar el formato de la fecha y la hora?

Otra pregunta, ¿es posible tener una función que quite la protección de todas las hojas de mi libro, y que haga reaparecer "la barra de fórmulas y los títulos" (pestaña de vista) en todas las hojas?

Gracias.

Para la fecha, utilizas el formato clásico de la celda como si no hubiera macro.
Para la protección, basta con que la desactives... o entonces no entiendo lo que deseas.

Hasta luego.