Useful to have as a button or invoke overtime to alert when you have forgotten to save
firstname.lastname@example.org wrote this over 5 years ago and it was last updated over 5 years ago.
I use the below function and submodule in Excel VBA and have a button on my ribbon I click. This will just display when my workbook was last saved (date with time) and the hours, minutes and seconds ago.
I have some code that gets run on Workbook.Save events and so when I close I get an alert saying the workbook has not been saved. Rather than switch off the alert I have this button I click to verify that I have in fact saved it recently.
Function LastSavedTimeStamp() LastSavedTimeStamp = ActiveWorkbook.BuiltinDocumentProperties("Last Save Time") End Function Sub ShowLastSavedTimeStamp() Dim hours As Integer: hours = DateDiff("h", LastSavedTimeStamp, Now()) Dim minutes As Integer: minutes = DateDiff("n", LastSavedTimeStamp, Now()) Dim seconds As Integer: seconds = DateDiff("s", LastSavedTimeStamp, Now()) MsgBox "This workbook was Last Saved at " & vbNewLine & LastSavedTimeStamp & " or " & hours & ":" & (minutes Mod 60) & ":" & (seconds Mod 60) & " ago" End Sub