View Single Post
  #4   Report Post  
Posted to microsoft.public.excel.programming
Bob Phillips[_6_] Bob Phillips[_6_] is offline
external usenet poster
 
Posts: 11,272
Default Last Saved Date and Time

Good thought Andi, that should work.

Kim,

This is the code that Andi refers to

Private Sub Workbook_BeforeSave(ByVal SaveAsUI As Boolean, Cancel As
Boolean)
Application.Calculate
End Sub


'This is workbook event code.
'To input this code, right click on the Excel icon on the worksheet
'(or next to the File menu if you maximise your workbooks),
'select View Code from the menu, and paste the code

--

HTH

RP
(remove nothere from the email address if mailing direct)


"Andibevan" wrote in message
...
Could you not also put calculate in the beforesave event? If you ordered

it
correctly you could actually get it to calculate after it had saved the
file?

"Bob Phillips" wrote in message
...
This is because saving a file does not trigger a worksheet calculation,

and
it doesn't update when there is some calculation triggered by other

changes,
so your function doesn't update. You can force a recalc with

Ctrl-Calc-F9,
or you can add Application.Volatile to the function so that it gets
recalculated on an F9 or when some other change occurs that does trigger

a
recalc.

--

HTH

RP
(remove nothere from the email address if mailing direct)


"Kim" wrote in message
...
I created a function in Excel to display the "Last Saved Date and

Time"
in
a
cell. The code is as follows:

<
Function LastSaved( )
LastSaved = ActiveWorkbook.BuiltinDocumentProperties.Item(12)
End Function


After saving the modified file, the cell displays the "Last Saved Date

and
Time". I tried to modify the file another time and saved it. The cell

however
does not change to the new date and time. But this was reflected under

the
File - Properties - Statistics.

How can I update the cell to continuous display the right date and

time
whenever the "Save" button is clicked ?