macro for displaying last saved workbook

[excelNewbie22]

hi,
is there a good macro for displaying (preferable by formula udf) TIME (i.e 18:22:52) AND DATE
for last saved (last closed=saved) workbook?

 

[excelNewbie22]

found it, although, i need to re-enter the formula everytime to see the change

Function LastSavedTimeStamp() As Date
  LastSavedTimeStamp = ActiveWorkbook.BuiltinDocumentProperties("Last Save Time")
End Function

=LastSavedTimeStamp()

 

[Logit]

Here's a macro that might help. Lt me know if it works.

Sub DisplayLastSavedTime()
    Dim lastSavedTime As String
    
    ' Call the LastSaved UDF to get the last saved date and time
    lastSavedTime = LastSaved()
    
    ' Display the result in a message box
    MsgBox "The workbook was last saved on: " & lastSavedTime, vbInformation, "Last Saved Time"
    
    ' Alternatively, write the result to a specific cell (e.g., Sheet1 cell A1)
    ' ThisWorkbook.Sheets("Sheet1").Range("A1").Value = "Last Saved: " & lastSavedTime
End Sub

 

[excelNewbie22]

didn't worked for me

 

[Logit]

Did you include your Function "lastSavedTime" pasted below the macro ? NOTE: you will need to change the name of your Funtcion from LastSavedTimeStamp
to lastSavedTime

 

[excelNewbie22]

like this in screenshot?
if so, still getting an error, attached another pic

btw, why after pasting the picure here and posting it here, it disappearing? unless using the "upload image" button

 

[Logit]

Use the following macro. It has been test as working here.

Option Explicit


Sub DisplayLastSavedTime()
    Dim LastSavedStr As String
    ' Call the LastSaved UDF to get the last saved date and time
    LastSavedStr = GetLastSavedTime()
    
    ' Display the result in a message box
    MsgBox "The workbook was last saved on: " & LastSavedStr, vbInformation, "Last Saved Time"
    
    ' Alternatively, write the result to a specific cell (e.g., Sheet1 cell A1)
    ' ThisWorkbook.Sheets("Sheet1").Range("A1").Value = "Last Saved: " & LastSavedStr
End Sub

Function GetLastSavedTime() As String
    GetLastSavedTime = ActiveWorkbook.BuiltinDocumentProperties("Last Save Time")
End Function

 

[excelNewbie22]

very nice!
this macro save the need for formatting!
tnx logit!

 

[Logit]

Nice. Thanks.