Excel automatisch schliessen
Micha
ich habe folgendes Problem.
Ich möchte eine Excel-Mappe automatisch schliessen lassen (vorher natürlich noch speichern).
Diese Mappe soll aber nur geschlossen werden, wenn 10 Minuten lang keine änderungen vorgenommen werden.
Ich habe schon folgende Beispiele probiert:
-------------------------------------------------------------------------------
Sub ArbeitsmappeSchließenNach5Minuten()
Dim l As Long
Const Puffer As Long = 300 ' 5 * 60 Sec
l = Timer
Do While Timer DoEvents
Loop
ActiveWorkbook.Save
ActiveWorkbook.Close
'Application.quit
End Sub
Private Sub Workbook_Open()
ArbeitsmappeSchließenNach5Minuten
End Sub
Private Sub Workbook_SheetChange(ByVal Sh As Object, ByVal Target As Range)
ArbeitsmappeSchließenNach5Minuten
End Sub
-------------------------------------------------------------------------------
Private Sub Workbook_Open()
On Error Resume Next
neuezeit = Time + TimeSerial(0, 10, 0)
Application.OnTime EarliestTime:=altezeit, Procedure:="Schließen", Schedule:=False
altezeit = neuezeit
Application.OnTime neuezeit, "Schließen"
End Sub
Private Sub Workbook_SheetSelectionChange(ByVal Sh As Object, ByVal Target As Range)
On Error Resume Next
neuezeit = Time + TimeSerial(0, 10, 0)
Application.OnTime EarliestTime:=altezeit, Procedure:="Schließen", Schedule:=False
altezeit = neuezeit
Application.OnTime neuezeit, "Schließen"
End Sub
Sub Schließen()
ActiveWorkbook.Close savechanges:=True
End Sub
-------------------------------------------------------------------------------
Leider haben diese beiden nicht funktioniert. Ich habe es aber geschafft, dass die Excel-Mappe automtisch schliesst, jedoch auch dann, wenn ich noch am bearbeiten war.
Hat mir jemand eine Lösung? Um eine Beispiel-Datei wäre ich sehr froh.
Bitte Antworten an: Micha Stauffer
Schon im Voraus Besten Dank
Anzeige