vba: How long workbook was active

[samahiji]

Hi
I'm looking for a vba code to monitor the time spent since the workbook was opened.
I want to track the time from opening the sheet till it was closed and create a log for such event.

 

[nemmi69]

Place code in "ThisWorkbook

Private Sub Workbook_Open()
  Dim nLastUsedRowIndex As Integer
 
  nLastUsedRowIndex = Application.WorksheetFunction.CountA(Worksheets("Access Time").Range("A:A")) + 1
  Range("A" & nLastUsedRowIndex) = Now
End Sub

Private Sub Workbook_BeforeClose(Cancel As Boolean)
  Dim nLastUsedRowIndex As Integer
 
  nLastUsedRowIndex = Application.WorksheetFunction.CountA(Worksheets("Access Time").Range("B:B")) + 1
  Range("B" & nLastUsedRowIndex) = Now

  'Save the file and then exit the application
  ActiveWorkbook.Save
  Application.Quit
End Sub

This is for a worksheet called "Access Time".