Задержка макроса auto_open с возможностью отмены

В настоящее время я разрабатываю макрос, который в конечном итоге я буду использовать для ежедневного импорта данных из Интернета, который активируется при открытии файла excel. Данные имеют значение только после определенного времени суток, и я буду использовать планировщик задач для автоматического открытия файла после этого времени.

Единственная проблема заключается в том, что я не хочу, чтобы макрос запускался, когда я открываю файл вручную, и поэтому я задаюсь вопросом, можно ли поставить таймер задержки на макрос, с добавленной возможностью остановить выполнение макроса в течение этого периода. Или, если есть какие-либо другие возможные решения этой проблемы.

Приветствие всем

Когда вы открываете книгу, у вас может быть msgbox.

  • Если вы нажмете «Отмена», код не будет запущен.
  • Если вы нажмете OK, код будет запущен.
  • Если вы ничего не сделаете в течение 5 секунд (планировщик задач), код будет запущен.

Private Sub Workbook_Open() Dim msg As String, runcode As Long msg = "Click cancel to abort or the code will execute in 5 seconds!" runcode = CreateObject("Wscript.Shell").Popup(msg, 5, "What to do:", vbOKCancel) If runcode = 2 Then End 'call import data macro End Sub 
Давайте будем гением компьютера.