Want to know formula regarding excel

[Ashar raja]

Hi Experts,
I am working in a consultancy firm where I am dealing with different types of clients at the same time. I am using excel 2016. My concern is there any type of formula or any other function which helps me to check when I open and close the excel file includes all specifically day, date, and time of opening and closing of excel sheet as well as computer name in different cells?
Note: I want to calculate the working time which I gave to the client.


Thanks,

 

[rpaulson]

Put this on "ThisWorkbook" module

Private Sub Workbook_Open()
 With Worksheets("Sheet1")
r = .Cells(Rows.Count, "A").End(xlUp).Row + 1
.Cells(r, "A") = Now
.Cells(r, "B") = Environ$("computername")
End With
End Sub

Private Sub Workbook_BeforeClose(Cancel As Boolean)
 With Worksheets("Sheet1")
  r = .Cells(Rows.Count, "C").End(xlUp).Row + 1
    .Cells(r, "C") = Now
    End With
End Sub