Supportnet / Forum / Tabellenkalkulation
Excel automatisch schliessen
Frage
Hallo zusammen,
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 < l + Puffer
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: stauffermi@post.ch
Schon im Voraus Besten Dank
Antwort 1 von coros
Nabend Michael,
zu dem Thema habe ich vor geraumer Zeit mal eine Beispieldatei erstellt, da hier schon mal eine Anfrage war. Diese Datei habe ich Dir per Mail zugesandt.
MfG,
coros
Jeder macht was er will, keiner macht was er soll, aber alle machen mit.
zu dem Thema habe ich vor geraumer Zeit mal eine Beispieldatei erstellt, da hier schon mal eine Anfrage war. Diese Datei habe ich Dir per Mail zugesandt.
MfG,
coros
Jeder macht was er will, keiner macht was er soll, aber alle machen mit.