Showing the date last modified upon opening workbook?

[nixxrite]

Hi All,

I've currently got an Excel sheet linked up to a DB that refreshes every 15 or so minutes. unfortunately for the users they can't tell if the data has been refreshed just by looking at the sheet.

I'm trying to find a way of displaying the last modified date and time (maybe in a specific cell) upon opening the book. I've found information on how to show the date and time when printing a sheet but wondered if anyone knew how to display in the workbook itself?

Thanks

Nick

[patel45]

Can you share this information ?

[nixxrite]

Can you share this information ?

Not publicly. Sorry.

[event21]

Hi -

How about

ActiveWorkbook.BuiltinDocumentProperties(12)

Regards,
Event

[patel45]

Very good start in forum, you are here only to take and not to give

[nixxrite]

Very good start in forum, you are here only to take and not to give

That's a very unfair comment.

I may have misunderstood your question about sharing the information but I'm not in a legal position to be able to share the data of the sheet.

I'm asking for idea's about how to achieve this, if this forum isn't the place to ask questions and get help why bother signing up?

[nixxrite]

Very good start in forum, you are here only to take and not to give

I'll assume you wanted me to share the code for printing the last modified date?

If so, in the workbook:

Private Sub Workbook_BeforeSave(ByVal SaveAsUI As Boolean, Cancel As Boolean)
For Each Sheet In ThisWorkbook.Sheets
Sheet.PageSetup.LeftFooter = "Last saved: " & Format(Date, "dd-mm-yy") & " " & Time
Next Sheet
End Sub

This will show the last date time the doc was saved on a printed sheet.

I'm trying to get it to pull this date time into a worksheet.

[patel45]

Private Sub Workbook_BeforeSave(ByVal SaveAsUI As Boolean, Cancel As Boolean)
For Each Sheet In ThisWorkbook.Sheets
  Sheet.range("L1").value = "Last saved: " & Format(Date, "dd-mm-yy") & " " & Time
' Sheet.range("L1").value = now() ' alternative
Next Sheet
End Sub

[nixxrite]

Thanks for the replies. I managed to get there with Event's

Private Sub Worksheet_SelectionChange(ByVal Target As Range)
On Error Resume Next
Worksheets(1).Activate
Cells(1, 1).Value = ActiveWorkbook.BuiltinDocumentProperties(12).Value
End Sub

I'm still testing the sheet to see if the data is transferred.