PDA

View Full Version : Solved: Keep Track of a Workbook Review



IgnBan
03-18-2008, 04:56 AM
Is there a way to record the reviewing of a Workbook?
If I put an Excel workbook in a network public drive and share it so the intended report recipients can review it, how can I keep track who?s reading the workbook? How can I keep the user name log in, and time browsing the book, etc? I look at the share properties of a workbook, but I don?t thing will be useful for this, it only keeps track of cell changes, row etc, but in this case I just want to know who's reviewing the workbook.

Any help is in advance appreciated.:thumb

Simon Lloyd
03-18-2008, 05:36 AM
Have a seperate sheet in it for logging the users and use something like this in the thisworkbook module:

Private Sub Workbook_BeforeClose(Cancel As Boolean)
Sheets("Sheet1").Range("D" & Rows.Count).End(xlUp).Offset(1, 0).Value = Time
End Sub
Private Sub Workbook_Open()
Dim Rng As Range
Set Rng = Sheets("Sheet1").Range("A" & Rows.Count).End(xlUp)
With Rng.Offset(1, 0)
.Value = Environ("username")
.Offset(0, 1).Value = Date
.Offset(0, 2).Value = Time
End With
End Sub

IgnBan
03-18-2008, 07:00 AM
Exactly what I needed it.

Thanks Simon.