VBA-Beispiel 082
mail schreiben
mail schreiben

alle 15 Minuten automatisch erinnern

Nach dem öffnen einer Exeldatei soll automatisch alle 15 Minuten eine Meldung erscheinen, die den Anwender auffordert, die Datei zu schließen. Zur Demonstration erscheint der Hinweis hier alle 5 Sekunden.
'Eintrag in "DieseArbeitsmappe":
Private Sub Workbook_Open()
  Start = True
  Call Aufforderung
End Sub

Sub Workbook_BeforeClose(Cancel As Boolean)
 'nach dem Schließen der Datei die Prozedur nicht mehr aufrufen
  Application.OnTime EarliestTime:=Startzeit, Procedure:="Aufforderung", Schedule:=False
End Sub



'Eintrag in einem Modul:
Public Start As Boolean
Public Startzeit As Date

Sub Aufforderung()

If Start = True Then
  Start = False
Else
  MsgBox "Datei bitte schließen", , "es ist: " & Time
End If

'Hinweis alle 5 Sekunden
Application.OnTime Now + TimeSerial(0, 0, 5), "Aufforderung"
Startzeit = Now + TimeSerial(0, 0, 5)

'Hinweis alle 15 Minuten
'Application.OnTime Now + TimeSerial(0, 15, 0), "Aufforderung"
'Startzeit = Now + TimeSerial(0, 15, 0)
End Sub

Download:   vba082.zip