Список проголосовавших за комментарий "<br/> Два варианта автосохранения файла Excel используя VBA.<br/> <br/> Вариант 1:<br/> Модуль ЭтаКнига:Private Sub Workbook_Open() Call save20 End Sub Модуль Модуле1:Sub save20() thisWorkbook.Save Application.OnTime Now + TimeValue(«00:00:20»), «save20» End Sub<br/> <br/> Вариант 2:<br/> Module1 :Public TimerFlag As BooleanPublic MyEarliestTime As Variant Sub Timer_Tick() If TimerFlag Then ThisWorkbook.Save MyEarliestTime = Now + TimeValue(«00:00:20») Application.OnTime EarliestTime:=MyEarliestTime, Procedure:=«Timer_Tick» End IfEnd Sub Модуль ЭтаКнига:Private Sub Workbook_Open() TimerFlag = True Call Timer_TickEnd Sub Private Sub Workbook_BeforeClose(Cancel As Boolean) TimerFlag = False Application.OnTime EarliestTime:=MyEarliestTime, Procedure:=«Timer_Tick», Schedule:=False ThisWorkbook.SaveEnd Sub<br/> Сам пробовал вариант 2, он немного глючит при закрытии Excel. Вариант 1, не пробовал.<br/> <a class="imgpreview" href="/uploads/2022/images/08/82/75/2022/10/24/8afa57.png"><img src="/uploads/2022/images/08/82/75/2022/10/24/73891b.webp"/></a><br/> <br/> <br/> "