Option Explicit

Private Sub Workbook_Open()
 

    Call ini_timer
 
End Sub

Option Explicit

Public Declare Function SetTimer Lib "user32" _
                                 (ByVal hwnd As Long, _
                                  ByVal nIDEvent As Long, _
                                  ByVal uElapse As Long, _
                                  ByVal lpTimerFunc As Long) As Long

Public Declare Function KillTimer Lib "user32" _
                                  (ByVal hwnd As Long, _
                                   ByVal nIDEvent As Long) As Long

Private lngTimerID As Long

 


Sub TimerProc(ByVal hwnd As Long, _
              ByVal uMsg As Long, _
              ByVal idEvent As Long, _
              ByVal dwTime As Long)
 
    Call deini_timer
 

    ThisWorkbook.Close SaveChanges:=True

End Sub

Public Sub deini_timer()
    lngTimerID = KillTimer(Application.hwnd, lngTimerID)
    If lngTimerID =  0  Then
        ' MsgBox "не убился таймер!"
    End If


End Sub
Public Sub ini_timer()
    lngTimerID = SetTimer(Application.hwnd, CLng( 1 ), CLng( 20000 ), AddressOf TimerProc)
    If lngTimerID =  0  Then
        ' MsgBox "Таймер не создался!"
        Exit Sub
    End If
End Sub