MS Excel

Zkus toto VBA, neni mojí tvorbou ale ukláda soubor po nekolika vterinach co si nastavis a mohlo by to aktualizovat i to co potrebujes ale nejsem si jistej..

ThisWorkbook
Private Sub Workbook_BeforeClose(Cancel As Boolean)
Call StopTick
ThisWorkbook.Save
End Sub

Private Sub Workbook_Open()
Call StartTick
End Sub

Module1
Dim Cas As Date

Sub TimerTick()
Application.ScreenUpdating = False
ThisWorkbook.Save
Application.ScreenUpdating = True
Call StartTick
End Sub

Sub StopTick()
ThisWorkbook.Save
On Error Resume Next
Application.OnTime EarliestTime:=Cas, Procedure:="TimerTick", Schedule:=False
End Sub

Sub StartTick()
Cas = Now() + TimeValue("00:00:03")
Application.OnTime EarliestTime:=Cas, Procedure:="TimerTick", Schedule:=True
End Subcitovat