hi,
in one of our files we do this:

rivate Sub Workbook_Open()

Sheets("TTD").Range("IQ2").End(xlDown).Offset(1,
0).FormulaR1C1 = Now()
Sheets("TTD").Range("IQ1").End(xlDown).Offset(1, 0).Copy
Sheets("TTD").Range("IQ1").End(xlDown).Offset(1,
0).PasteSpecial Paste:=xlValues
Sheets("TTD).Range("IQ1").End(xlDown).Offset(0,
1).FormulaR1C1 = Application.UserName
Sheets("TTD).Range("A1").select
Worksheets("Main").Activate
End Sub

Opps. three of the above lines wrapped. all lines should
start with sheets or worksheets
We have a similar sub Workbook close that list time out.
problems occur with this when the WB is opened by more
than 1 person at a time and is difficult to analyse.
We are thinking about setting up a seperate file and have
the code log the time in and out in that file so each
possible user can have their own time in and out. no
decision on that yet. no developement either.

-----Original Message-----
I have a worksheet password protected for opening, how
can I track who
accesses this file?
.