Modified Date

  • Thread starter Thread starter DME
  • Start date Start date
D

DME

Is there a formula or a way to input the last date a file was modified into
a cell? I have a spreadsheet that many users will be accessing but will not
be able to change. I want them to be able to see the last time the
information was updated. I could manually type in the date, but I know I
may forget sometime, so I want a cell that show the last modified date
automatically. Is this possible or am I crazy?

thanks for your help.
 
Hi
use the following UDF (only on workbook level):


Function DocProps(prop As String)
application.volatile
On Error GoTo err_value
DocProps = ActiveWorkbook.BuiltinDocumentProperties _
(prop)
Exit Function
err_value:
DocProps = CVErr(xlErrValue)
End Function


and enter in a cell
=DOCPROPS("last save time")
(format cell as date)
 
it is possible and your not crazy.
in the workbook before save event put this:

Private Sub Workbook_BeforeSave(ByVal SaveAsUI As Boolean,
Cancel As Boolean)
Sheets("Sheet1").Range("A1").FormulaR1C1 = Now()
Sheets("sheet1").Range("A2").FormulaR1C1 =
Application.UserName
End Sub

This will tell you the last time the wb was saved and who
did it. use what ever sheet and range you wish.
 
Hi
this line
Sheets("Sheet1").Range("A1").FormulaR1C1 = Now()

should throw an error. You probably meant:
Sheets("Sheet1").Range("A1").FormulaR1C1 = "=Now()"
though this will update the value with each re-calculation
 
Why would it throw an error?

The parens are unnecessary, but otherwise it should work with the VBA
Now function.
 
hi again
change now() to Date.
-----Original Message-----
it is possible and your not crazy.
in the workbook before save event put this:

Private Sub Workbook_BeforeSave(ByVal SaveAsUI As Boolean,
Cancel As Boolean)
Sheets("Sheet1").Range("A1").FormulaR1C1 = Now()
Sheets("sheet1").Range("A2").FormulaR1C1 =
Application.UserName
End Sub

This will tell you the last time the wb was saved and who
did it. use what ever sheet and range you wish.
file
was modified into
.
Click to expand...
 
OK, I am stupid. I copied and pasted the info you gave me into VBA (I think
that is what I was suppose to do?) and then enter =DOCPROPS in Cell A1. It
gives me a #Name? value. Tell Mr. Idiot here what I did wrong.

Thanks.
 
I think I will just type it in. I copied and pasted the entrire function
you gave me below into VBA under (this Workbook). It appears to accept it
and recognize it as a function. But when I enter =DOCPROPS I still get the
#name? . What could I possily be doing wrong.

I hate being pest, but I read the website you gave the link to and I still
am unable to master this little task.
 
Hi
this is the wrong place. Create a new module in this project and insert the
code there (as described in the link I provided...)
 
Frank,

Thanks for all your help. It WORKED! I can't tell you how many times I
come here and I read the help you provide to myself and the many other users
that just need a little guidance. Your patience and knowledge are very
valuable to us all.

Thanks Again!
 
Back
Top