![Merlin99](./pictures/avatars/5b79c6f43998e.jpg)
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
![1](./plugins/templates/wall_2C/images/smileys/1.gif)
![1](./plugins/templates/wall_2C/images/smileys/1.gif)
Private Sub Workbook_BeforeClose(Cancel As Boolean)
Call StopTick
ThisWorkbook.Save
End Sub
Private Sub Workbook_Open()
Call StartTick
End Sub
![1](./plugins/templates/wall_2C/images/smileys/1.gif)
![1](./plugins/templates/wall_2C/images/smileys/1.gif)
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