VBA.Mania

Dim CloseTime As Date

Sub TimeSetting()
    CloseTime = Now + TimeValue("00:00:15")
    On Error Resume Next
    Application.OnTime EarliestTime:=CloseTime, _
      Procedure:="SavedAndClose", Schedule:=True
End Sub

Sub TimeStop()
    On Error Resume Next
    Application.OnTime EarliestTime:=CloseTime, _
      Procedure:="SavedAndClose", Schedule:=False
End Sub

Sub SavedAndClose()
    ActiveWorkbook.Close Savechanges:=True
End Sub

Private Sub Workbook_BeforeClose(Cancel As Boolean)
    Call TimeStop
End Sub

Private Sub Workbook_Open()
    Call TimeSetting
End Sub

Private Sub Workbook_SheetChange(ByVal Sh As Object, ByVal Target As Range)
   Call TimeStop
   Call TimeSetting
End Sub

Cześc,

Pewnie temat stary, ale jestem nowy zatem wybaczcie.

Pracuję na exelu, ktory zbiera informacje, na temat historii towarów, które zjeżdżają do naszej firmy.

Rejestr dostaw , zużycia, złomu itp.

Wiadomo jak ja mam włączony plik - koledzy z innego działu mają go odczytu i na odwót. Wiadomo, najlepiej odchodząc od kompa wyłączyc plik, ale wiadomo jak jest.

Szukam makra co po kilku minutach bezczynności samo zapisze i wyłączy plik...ewentualnie kilka sekund przed msg box zayta czy np wylaczyc czy nie...