VBA Code to log users name and date

[Malcolm torishi]

i Have a excel spread sheet that is saved in Sharepoint. What I would like to do a black sheet within my spread sheet is have a running list of people’s name and date you opened up the file . Is there a VBA Code that can do this

 

[ParamRay]

This goes in the code module for ThisWorkbook:

Private Sub Workbook_Open()
  Dim wksUserLog As Worksheet
  Dim lngNextRow As Long
  
  On Error Resume Next
  Set wksUserLog = ThisWorkbook.Worksheets("User Log")
  
  On Error GoTo ExitProc
  If wksUserLog Is Nothing Then
    Set wksUserLog = ThisWorkbook.Worksheets.Add
    wksUserLog.Name = "User Log"
    wksUserLog.Range("A1:B1").Value = Array("Username", "Datetime")
  End If
  
  With wksUserLog
    lngNextRow = .Cells(.Rows.Count, "A").End(xlUp).Row + 1
    .Cells(lngNextRow, "A").Value = Environ("Username")
    .Cells(lngNextRow, "B").Value = Now()
    .Columns("A:B").AutoFit
  End With
  
ExitProc:
End Sub

 

[Malcolm torishi]

Thank you