Open Log

[jub6]

Hi,

I have a workbook in a shared drive.I would like a log in a hidden sheet to tell me who has opened it the last 7 days.

Thanks in advance
J

 

[bertie]

Place this in the ThisWorkbook module.

NB Application.UserName will be dependant on how your IT dept have set up the computers.

Edit the sheet name for your hidden sheet.

[COLOR=darkblue]Private[/COLOR] [COLOR=darkblue]Sub[/COLOR] Workbook_Open()
   [COLOR=darkblue]Dim[/COLOR] lr [COLOR=darkblue]As[/COLOR] [COLOR=darkblue]Long[/COLOR]
 
   [COLOR=darkblue]With[/COLOR] Sheets("[COLOR=red]Sheet1")[/COLOR]
      lr = .Range("A" & .Rows.Count).End(xlUp).Row + 1
      .Range("A" & lr).Value = Application.UserName
      .Range("B" & lr).Value = Now  [COLOR=green]'time stamp[/COLOR]
[COLOR=green]    '[/COLOR]
[COLOR=green]    'other log information goes here[/COLOR]
[COLOR=green]    '[/COLOR]
   [COLOR=darkblue]End[/COLOR] [COLOR=darkblue]With[/COLOR]
[COLOR=darkblue]End[/COLOR] [COLOR=darkblue]Sub[/COLOR]