- Код: Выделить всё
Sub time()
ActiveWorkbook.RefreshAll
ActiveWorkbook.Save
Application.OnTime Now + TimeValue("00:01:00"), "time"
End Sub
но вот проблема вывыливается окно с текстом "Заменить содержимое ячее в [111.xlsm]Лист5"
Как бы обойти это окно - оно ведь не дает данным обновиться и пересохранить файл
