Hilfe, Zeitmakro
10.11.2004 06:38:45
peter d
ich habe in einer Tabelle folgendes Makro eingebaut, zur Erinnerung an Kollegen, die vergessen diese Tabelle zu schließen.
Das funktioniert auch ganz gut, nur wenn die Tabelle geschlossen ist, erfolgt die Meldung zum Schließen trotzdem.
Meine Frage wie kann mann das Makro beim Schließen der Datei stoppen?
Es sind immer noch andere Exceldateien offen.
Danke
Peter D
Sub Start_Timer()
Application.OnTime Now + TimeValue("01:00:00"), "Ask_Save"
End Sub
Sub Ask_Save()
Dim Qe
Application.Run "Demo_Ton"
Qe = MsgBox("Kann die Tabelle 'Sätze Bestände' jetzt geschlosssen werden?", vbQuestion + vbYesNo, "Nur eine Frage")
If Qe = vbNo Then
Application.Run "Start_Timer"
Exit Sub
End If
If Qe = vbYes Then
Windows("Sätze Bestände.xls").Activate
Sheets("Start").Select
ActiveWorkbook.Save
ActiveWorkbook.Close
End If
End Sub