I just learnt how to use the function as below to show the " last modified
date", but how can I keep record not changed next time?

For example, at the first time I inputed the data and save, it will show me
the time once I closed and opened it. But the second time, the time will show
me the latest modified time but not the time at the first modification. How
can I keep that not update next time?

'-----------------------------------------------------------------
Function DocProps(prop As String)
Dim LastDate As String
Dim wbProp As String

'-----------------------------------------------------------------
Application.Volatile
On Error GoTo err_value
wbProp = "last save time"
LastDate = ActiveWorkbook.BuiltinDocumentProperties(wbProp)
DocProps = ActiveWorkbook.BuiltinDocumentProperties _
(prop)
Exit Function
err_value:
DocProps = CVErr(xlErrValue)
End Function

Have a cell set as counter of number of saved times, when you save the
file you increase the counter by 1, then you can have a logic that
when the counter is greater than 1, you won't update the modified
time.


On 11$B7n(B10$BF|(B, $B2<8a(B1$B;~(B10$BJ,(B, Lee wrote:
I just learnt how to use the function as below to show the " last modified
date", but how can I keep record not changed next time?

For example, at the first time I inputed the data and save, it will show me
the time once I closed and opened it. But the second time, the time will show
me the latest modified time but not the time at the first modification. How
can I keep that not update next time?

'-----------------------------------------------------------------
Function DocProps(prop As String)
Dim LastDate As String
Dim wbProp As String

'-----------------------------------------------------------------
Application.Volatile
On Error GoTo err_value
wbProp = "last save time"
LastDate = ActiveWorkbook.BuiltinDocumentProperties(wbProp)
DocProps = ActiveWorkbook.BuiltinDocumentProperties _
(prop)
Exit Function
err_value:
DocProps = CVErr(xlErrValue)
End Fun

Thanks for your reply. but how to achieve it? i am the rookie for excel
marco, only know ctrl +P & V.

Thanks

"Edward" wrote:

Have a cell set as counter of number of saved times, when you save the
file you increase the counter by 1, then you can have a logic that
when the counter is greater than 1, you won't update the modified
time.


On 11月10日, 下�1時10分, Lee wrote:
I just learnt how to use the function as below to show the " last modified
date", but how can I keep record not changed next time?

For example, at the first time I inputed the data and save, it will show me
the time once I closed and opened it. But the second time, the time will show
me the latest modified time but not the time at the first modification. How
can I keep that not update next time?

'-----------------------------------------------------------------
Function DocProps(prop As String)
Dim LastDate As String
Dim wbProp As String

'-----------------------------------------------------------------
Application.Volatile
On Error GoTo err_value
wbProp = "last save time"
LastDate = ActiveWorkbook.BuiltinDocumentProperties(wbProp)
DocProps = ActiveWorkbook.BuiltinDocumentProperties _
(prop)
Exit Function
err_value:
DocProps = CVErr(xlErrValue)
End Fun