Maddokter,

I use:
Private Sub Workbook_Open()

Open ThisWorkbook.Path & "\usage.log" For Append As #1
Print #1, Application.UserName, Now
Close #1

End Sub


Now if you wanted this to be hidden then change the path and filename
to suit somewhere maybe a network drive or something where the user
wouldnt look.

HTH

Duncan