Make a log of users

[dgrimm]

Is there a feature in excel or an easy macro that can be used to maintain a log of persons using a file and the date that they use it each time.

Thank you

Dave

 

[bertie]

Try this in the ThisWorkbook module.
NB Application.UserName is dependant on how user names have been installed on computers.

[COLOR=darkblue]Private[/COLOR] [COLOR=darkblue]Sub[/COLOR] Workbook_Open()
   [COLOR=darkblue]Dim[/COLOR] fNum [COLOR=darkblue]As[/COLOR] [COLOR=darkblue]Long[/COLOR]
 
   fNum = FreeFile
   [COLOR=darkblue]Open[/COLOR] "[COLOR=red]C:\myFile_Log.txt[/COLOR]" [COLOR=darkblue]For[/COLOR] [COLOR=darkblue]Append[/COLOR] [COLOR=darkblue]As[/COLOR] #fNum
   [COLOR=darkblue]Print[/COLOR] #fNum, "Opened: " & Application.UserName _
                        & vbTab & Now
   [COLOR=darkblue]Close[/COLOR] #fNum
[COLOR=darkblue]End[/COLOR] [COLOR=darkblue]Sub[/COLOR]

 

[VoG]

If you want a log of everything they did http://www.mrexcel.com/forum/showthread.php?t=381604

 

[dgrimm]

Bertie -

Quick question, the now that you have in your routine is it converted to a value by the print command or will it change to now each time this sheet is accessed??

Thanks
Dave

 

[bertie]

The Now() function is the computer system date/time stampat the time the code is executed.

You can change the format, i.e.,

Format(Now,"dd/mm/yyyy hh:mm:ss")