Access id of last person to modify

[jwskr]

Is there a function (VB perhaps) to access the id of the last user to modify a spreadsheet? Thanks to the forum, I was able to get the last date modified. This will be helpful for printed copies of spreadsheets.

 

[xlbo]

Not sure whether last modified by is one of the file properties. You could use the before save event to keep a log of userids and date/time of workbook close. If you are on NT, then uID = environ("username&quot will give you the username and format(date,"dd/mm/yy hh:mm&quot should give you the time to the minute

Private Sub Workbook_BeforeSave(ByVal SaveAsUI As Boolean, Cancel As Boolean)
uID = environ("username&quot
mDT = format(date,"dd/mm/yy hh:mm&quot
with sheets("UserLog&quot
lRow = .range("A65536&quot.end(xlup).row
.range("A" & lRow).value = uID
.range("B" & lRow).value = mDT
end with
End Sub

This would go in teh workbook module

If you are not on NT, I can supply you with the API call to get the user id Rgds
~Geoff~