Datum van opslaan - voettekst

[verovsl]

Is het mogelijk om in plaats van de datum van vandaag, de datum van opslaan te vermelden in de voettekst ?

 

[RoCompy87]

Dat zul je met VBA moeten doen (of iedere keer handmatig aanpassen, maar dat is ook zoiets )

Private Sub Workbook_BeforeSave(ByVal SaveAsUI As Boolean, Cancel As Boolean)
Dim ws As Worksheet
For Each ws In Worksheets
ws.PageSetup.CenterFooter = Now
Next
End Sub

Succes! :thumb:

 

[Warme bakkertje]

Onderstaande geeft de datum weer waarop het bestand het laatst is opgeslagen

Sub tst()
Sheets("Blad1").PageSetup.CenterFooter = Format(ActiveWorkbook.BuiltinDocumentProperties(12), "dd/mm/yyyy")
End Sub