Private Sub Workbook_BeforeClose(Cancel As Boolean)
   Open "\\fsru-rega\PTO\001-STEEL STRUCTURE\98-reserve\TL.log" For Append As #1
    Print #1, Application.UserName, Now, Environ("ComputerName"), ThisWorkbook.Path, ThisWorkbook.Name, "close"
    Close #1
End Sub

Private Sub Workbook_BeforeSave(ByVal SaveAsUI As Boolean, Cancel As Boolean)
   Open "\\fsru-rega\PTO\001-STEEL STRUCTURE\98-reserve\TL.log" For Append As #1
    Print #1, Application.UserName, Now, Environ("ComputerName"), ThisWorkbook.Path, ThisWorkbook.Name, "save"
    Close #1
End Sub

Private Sub Workbook_Open()

'papka yolini korsatamiz
    Open "\\fsru-rega\PTO\001-STEEL STRUCTURE\98-reserve\TL.log" For Append As #1
    Print #1, Application.UserName, Now, Environ("ComputerName"), ThisWorkbook.Path, ThisWorkbook.Name, "open"
    Close #1
End Sub