MS Excel 2003 - inserting an editors name into a cell

T

TP GS 180506

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.
 
Z

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
 
P

Paul Lautman

TP said:
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.
Click to expand...

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

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
Click to expand...
 
Top