Malpaso said:
Is there a way to have a cell read the last date/time the spreadsheet was changed?
Right click on the Excel workbook icon just to the left of the File menu option, near the upper left corner of your screen. Choose the View Code option, and paste this in:
Private Sub Workbook_BeforeSave(ByVal SaveAsUI As Boolean, Cancel As Boolean)
Sheet1.[A1] = "File was last saved " & Now
End Sub
Got that from here. I tried it and it works. You can change "Sheet1.[A1]" for the sheet cell location you want the info to be displayed in.
You can also use a macro to display the cell properties (I kinda like this one myself):
Sub LastModified_LastSavedBy()
'Keyboard Shortcut: Ctrl+Shift+L
'put last modified date/time in current cell
'put who last saved the file in next cell down
On Error GoTo err_Sub
ActiveCell.Value = "Last Modified: " & _
ActiveWorkbook.BuiltinDocumentProperties("Last save time").Value
ActiveCell.Offset(1, 0).Value = "Last Saved by: " & _
ActiveWorkbook.BuiltinDocumentProperties("Last author").Value
exit_Sub:
On Error Resume Next
Exit Sub
err_Sub:
Debug.Print "Error: " & Err.Number & " - (" & _
Err.Description & _
") - Sub: LastModified_LastSavedBy - " & _
"Module: Module2 - " & Now()
GoTo exit_Sub
End Sub