MS Excel 2003 - inserting an editors name into a cell

[Guest]

How do I insert a user's name automatically into a specific cell when they
open a worksheet, make some changes and then save it. I need to record the
last person to make changes to the spreadsheet. There name needs to be
automatically inserted into a specific cell of my choosing so that when
someone else looks at the spreadsheet either in read-only mode or without
making any changes to it they can see who last edited it.

 

[Zone]

I put this in a regular module. You could also use it in the workbook
module as an on open event.

Sub Auto_open()
[a1] = ThisWorkbook.BuiltinDocumentProperties("Author")
End Sub

 

[Paul Lautman]

How do I insert a user's name automatically into a specific cell when
they open a worksheet, make some changes and then save it. I need to
record the last person to make changes to the spreadsheet. There name
needs to be automatically inserted into a specific cell of my
choosing so that when someone else looks at the spreadsheet either in
read-only mode or without making any changes to it they can see who
last edited it.

Have you thought of using Tools->Track changes to get all their (note not
there!!!) changes listed?

 

[Andy Pope]

To get the last saved by name I think you would need,

[a1]= ThisWorkbook.BuiltinDocumentProperties("Last Author")

Cheers
Andy

I put this in a regular module. You could also use it in the workbook
module as an on open event.

Sub Auto_open()
[a1] = ThisWorkbook.BuiltinDocumentProperties("Author")
End Sub