Zeitgebundene Abfrage

Hallo zusammen

Ich schreibe gerade in Excel ein Programm das grundsätzlich vollautomatisch ablaufen soll.
Dieses Excelsheet soll dann via scheduled Task regelmässig ausgeführt werden.

Damit ich aber das Excelsheet öffnen kann ohne das mir der gesamte Automatismus ausgelöst wird,
suche ich jetzt nache einer Möglichkeit für eine Zeitgebundene Abfrage.

Diese Abfrage soll als erstes nach dem Öffnen des Excelsheets erscheinen, und wenn z.B. nach 30 Sekunden
kein Button bestätigt wurde, soll der Automatismus loslegen.

Ich weiss nur nicht wie ich diesen "Countdown" realisieren kann.


Vielen Dank im Voraus für eure Hilfe.


Gruss,

Cyberops

Dim intControl as Integer
intControl = 0

Starte Countdown

Abfragen ob Button bestätigt wurde (wenn ja --> intControl = 1)

If intControl = 0 Then
     
     Führe alle Befehle für automatisierten Vorgang durch

Else
     End
End if

Sub Auto_open()

     Dim SH As Object
     Dim intControl As Integer
     Set SH = CreateObject("WScript.Shell")  
    
     intControl = SH.Popup("Automatischer Durchlauf nicht initialisieren --> OK drücken", 5, "Achtung", 48)  

     If intControl = 1 Then
          Userform laden
     Else
          Automatische Prozedur starten
     End If
End Sub