P
Paul Moles
Ron de Bruin provided code to enter the last saved date.
Sub Auto_Open()
aa = ActiveWorkbook.BuiltinDocumentProperties("Last Save
Time")
UserName = Environ$("UserName")
ThisWorkbook.Sheets("sheet1").Range("a1").Value = aa
ThisWorkbook.Sheets("sheet1").Range("a2").Value = UserName
End Sub
Is there any way to modify this code or where it is stored
to reflect the date last modified, rather than date last
saved?
Unfortunately running the code means the file has been
updated changing the last modified date prompting user to
save changes on exit. When the actual data contained
within the file may have only been viewed and not amended.
Alternatively is there some other way I might get the Date
last modified into a cell to avoid versioning problems,
with frequently viewed but less frequently modified files.
Many Thanks
Paul Moles
Sub Auto_Open()
aa = ActiveWorkbook.BuiltinDocumentProperties("Last Save
Time")
UserName = Environ$("UserName")
ThisWorkbook.Sheets("sheet1").Range("a1").Value = aa
ThisWorkbook.Sheets("sheet1").Range("a2").Value = UserName
End Sub
Is there any way to modify this code or where it is stored
to reflect the date last modified, rather than date last
saved?
Unfortunately running the code means the file has been
updated changing the last modified date prompting user to
save changes on exit. When the actual data contained
within the file may have only been viewed and not amended.
Alternatively is there some other way I might get the Date
last modified into a cell to avoid versioning problems,
with frequently viewed but less frequently modified files.
Many Thanks
Paul Moles