Logging who has opened excel document

[cpatten]

Good evening,

I have a excel file that is shared with staff in my business and I need to log who is opening the file. I don't need to know what they do just who has opened it and when.

Is this doable?

Thanks,

Chris

 

[Candyman8019]

for sure. Create a new sheet...it can be hidden if you choose. Then add something like this to the 'ThisWorkbook' module:

In this example, my new sheet was Sheet5.

Private Sub Workbook_Open()
Dim lrow As Long
lrow = Sheet5.Cells.Find("*", searchorder:=xlByRows, searchdirection:=xlPrevious).Row + 1
    Sheet5.Range("A" & x).Value = Now()
    Sheet5.Range("B" & x).Value = Environ("Username")
End Sub

 

[cpatten]

for sure. Create a new sheet...it can be hidden if you choose. Then add something like this to the 'ThisWorkbook' module:

In this example, my new sheet was Sheet5.

Private Sub Workbook_Open()
Dim lrow As Long
lrow = Sheet5.Cells.Find("*", searchorder:=xlByRows, searchdirection:=xlPrevious).Row + 1
    Sheet5.Range("A" & x).Value = Now()
    Sheet5.Range("B" & x).Value = Environ("Username")
End Sub

Hi Joe,

Thank you for this. I have copied this across but keep getting a runtime error '1004'

 

[Candyman8019]

did you change 'Sheet5' to whatever your sheet number is?

 

[cpatten]

did you change 'Sheet5' to whatever your sheet number is?


View attachment 113591

Hi, yep - it is sheet 6 for me. The error is on the following part:

Sheet6.Range("A" & x).Value = Now()

 

[Candyman8019]

Sorry...typo on my part. Try this:

Private Sub Workbook_Open()
Dim lrow As Long
lrow = Sheet6.Cells.Find("*", searchorder:=xlByRows, searchdirection:=xlPrevious).Row + 1
    Sheet6.Range("A" & lrow).Value = Now()
    Sheet6.Range("B" & lrow).Value = Environ("Username")
End Sub