Private Sub Workbook_BeforeClose(Cancel As Boolean)
Application.EnableEvents = False
Application.DisplayAlerts = False
Application.ScreenUpdating = False
Dim wb
ThisWorkbook.Sheets("WAR").Visible = -1
For Each wb In ThisWorkbook.Sheets
If wb.name <> "WAR" Then wb.Visible = 2
Next wb
Application.EnableEvents = true
Application.DisplayAlerts = true
Application.ScreenUpdating = true
End Sub

Private Sub Workbook_BeforeSave(ByVal SaveAsUI As Boolean, Cancel As Boolean)
Application.EnableEvents = False
Application.DisplayAlerts = False
Application.ScreenUpdating = False
Dim wb
ThisWorkbook.Sheets("WAR").Visible = -1
For Each wb In ThisWorkbook.Sheets
If wb.name <> "WAR" Then wb.Visible = 2
Next wb
ThisWorkbook.Save
ThisWorkbook.All_On
Cancel = True
Application.EnableEvents = true
Application.DisplayAlerts = true
Application.ScreenUpdating = true
Workbook_Open
End Sub

Public Sub Workbook_Open()
Application.EnableEvents = False
Application.DisplayAlerts = False
Application.ScreenUpdating = False
Dim sh
For Each sh In ThisWorkbook.Sheets
sh.Visible = -1
Next sh
ThisWorkbook.Sheets("WAR").Visible = 2
Application.EnableEvents = true
Application.DisplayAlerts = true
Application.ScreenUpdating = true
End Sub

Private Sub Workbook_BeforeClose(Cancel As Boolean)
    'ищем последнюю занятую строчку в логах
    lastrow = Worksheets("Лог").Range("A60000").End(xlUp).Row
    'заносим дату-время выхода из файла
    If lastrow > 1 Then Worksheets("Лог").Cells(lastrow, 3) = Now
     
    'скрываем все листы, кроме листа WAR
    Worksheets("WAR").Visible = True
    For Each sh In ActiveWorkbook.Worksheets
        If sh.Name = "WAR" Then
            sh.Visible = True
        Else
            sh.Visible = xlSheetVeryHidden
        End If
    Next sh
     
    'сохраняемся перед выходом
    ActiveWorkbook.Save
End Sub

Private Sub Workbook_Open()
    'ищем последнюю занятую строчку в логах
    lastrow = Worksheets("Лог").Range("A60000").End(xlUp).Row
    'заносим имя пользователя и дату-время входа в файл
    Worksheets("Лог").Cells(lastrow + 1, 1) = Environ("USERNAME")
    Worksheets("Лог").Cells(lastrow + 1, 2) = Now
     
    'отображаем все листы
    For Each sh In ActiveWorkbook.Worksheets
        sh.Visible = True
    Next sh
    'скрываем листы WAR и ЛОГ
    Worksheets("WAR").Visible = xlSheetVeryHidden
    Worksheets("Лог").Visible = xlSheetVeryHidden
     
End Sub

Dim DT As Date
Const Period = "00:05:00"

Sub App_Close()
  If Now - DT > TimeValue(Period) * 2 Then
     DT = Now + TimeValue(Period)
     Application.OnTime DT, "Thisworkbook.App_Close", DT + TimeValue("00:05:00"), Schedule:=True
  Else
    ActiveWorkbook.Close SaveChanges:=True
  End If
End Sub

Private Sub Workbook_BeforeClose(Cancel As Boolean)

    lastrow = Worksheets("log").Range("A60000").End(xlUp).Row
    
    If lastrow > 1 Then Worksheets("log").Cells(lastrow, 3) = Now
    
  
    Worksheets("WAR").Visible = True
    For Each Sh In ActiveWorkbook.Worksheets
        If Sh.Name = "WAR" Then
            Sh.Visible = True
        Else
            Sh.Visible = xlSheetVeryHidden
        End If
    Next Sh
    

    ActiveWorkbook.Save
End Sub

Private Sub Workbook_Open()
    
    lastrow = Worksheets("log").Range("A60000").End(xlUp).Row
    
    Worksheets("log").Cells(lastrow + 1, 1) = Environ("USERNAME")
    Worksheets("log").Cells(lastrow + 1, 2) = Now
    
    
    For Each Sh In ActiveWorkbook.Worksheets
        Sh.Visible = True
    Next Sh
    
    Worksheets("WAR").Visible = xlSheetVeryHidden
    Worksheets("log").Visible = xlSheetVeryHidden
    
    
   

   DT = Now + TimeValue(Period)
   Application.OnTime DT, "Thisworkbook.App_Close", DT + TimeValue("00:05:00"), Schedule:=True
End Sub

Private Sub Workbook_SheetSelectionChange(ByVal Sh As Object, ByVal Target As Range)
DT = Now - 1

    
End Sub