Insert latest registration date Excel

Hello,

For date in A1 with manual recording, copy into the ThisWorkbook module:

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

For date in A1 with automatic recording, copy into the ThisWorkbook module:

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

Have a nice day.

Hi,

In the "Project - VBAProject" window, double-click on ThisWorkbook and paste the code that suits you on the right side (white area).

Do not paste the code in the Sheet module.

Have a good continuation.

Hello

the binder you are working on or another one or all of them in a folder?
--
Michel

OK, it's nice to reply, but I don't know anything about VBA.
Well, I'll try (for your information, I'm working on Excel 2010):
1) I go to cell A1 of my sheet
2) in the Developer tab I click on Visual Basic
3) in the small window at the top left "Project - VBAProject" I'm on my "Sheet1" where I'm working (I have several sheets in my workbook) - I click on it
4) a window opens with the name of my workbook and the name of my sheet, below there is a scroll bar "(General)", below in the free space I paste the text you gave me.

And after that, I don't know ...

If someone can help ...

OK, it's working perfectly, without abusing your services is there a possibility to change the date and time format?

Another question just in case, is it possible to have a function that would remove the protection from all the sheets in my workbook and would make the "formula bar and titles" (view tab) always reappear in all the sheets?

Thank you.

For the date, use the classic cell formatting as if there were no macro.
For the protection, you just need to disable it... or I don't understand what you want.

See you later.