Info /Frage nach Ablauf von einer bestimmten Zeit
08.11.2004 11:13:21
einer
ich benötige wieder einmal Eure Hilfe.
Beim Benutzen dieser beiden Makros, wird die Meldung auch nach dem Schließen der Datei angezeigt, wie kann man das umgehen?
Danke
Peter D
Sub Start_Timer()
Application.OnTime Now + TimeValue("00:10:00"), "Ask_Save"
End Sub
Sub Ask_Save()
Dim Qe
Qe = MsgBox("Kann die Tabelle 'Deutsche Sätze' jetzt geschlosssen werden?", vbQuestion + vbYesNoCancel, "Eine höfliche Frage")
If Qe = vbNo Then
Exit Sub
End If
If Qe = vbCancel Then
Exit Sub
End If
If Qe = vbYes Then
Windows("Deutsche Sätze.xls").Activate
Sheets("Start").Select
ActiveWorkbook.Save
ActiveWorkbook.Close
Start_Timer
End If
End Sub