Office: (Office 2013) Datei schließen nach bestimmter Zeit.

Hallo Zusammen,
habe ein paar Dateien die ich auch gerne von zu Hause bearbeiten möchte. In diese Dateien habe ich ein Makro aus dem Netz eingebaut.
Es gibt auch noch ein Makro welches alle 30 Minuten zwei Sheets speichert. Und alle 15 Minuten wird die Datei automatisch gespeichert.

Es kommt mir so vor als würden die speicher Makros das Schließen der Datei verhindern.
Würde jemand bitte mal den Code prüfen ob das so richtig ist ?
Gibt es eine Möglichkeit den Code so zu ändern,dass die Datei geschlossen wird wenn sich die Maus eine gewisse Zeit nicht bewegt ?

In der Arbeitsmappe ist :

Code:

Option Explicit
Private Sub Workbook_Open()
Call TimeSetting
End Sub

Code:

Private Sub Workbook_BeforeClose(Cancel As Boolean)
    Call AutoSpeichernAusschalten
    Call TimeStop
End Sub

Code:

Private Sub Workbook_SheetChange(ByVal Sh As Object, ByVal Target As Range)
   Call TimeSetting
   Call TimeStop
End Sub

Im Modul :

Code:

Public CloseTime As Date
Sub TimeSetting()
    CloseTime = Now + TimeValue("01:59:00")
    On Error Resume Next
    Application.OnTime EarliestTime:=CloseTime, _
      Procedure:="SavedAndClose", Schedule:=True
End Sub
Sub TimeStop()
    On Error Resume Next
    Application.OnTime EarliestTime:=CloseTime, _
      Procedure:="SavedAndClose", Schedule:=False
 End Sub
Sub SavedAndClose()
    ActiveWorkbook.Save
    Application.Quit
End Sub

 

Hallo Merkur,

VBA Beispiele Seite Datei schließen - Hajo's Excelseiten

 

Hallo Hajo,

danke für den Hinweis. Werde ich mir gerne anschauen.

 

Hallo,
habe mich für die Version datei_schlieszen_nach_zeit entschieden.
Habe den Code in meiner Mappe eingebaut.
Bekomme aber bein ausführen des Makros Schließen() die Fehlermeldung in meiner Arbeitsmappe :
Fehler beim Kompilieren: Variable nicht definiert!
Der Fehler markiert diese Zeile :
Application.OnTime EarliestTime:=CloseTime, Procedure:="Backup_", Schedule:=False
und zwar auf CoseTime

Bin da schon vom Wissen her raus.
Hast Du eine Lösung ?

Code:

Option Explicit
Private Sub Workbook_Open()
startzeit
Application.OnTime TimeValue("07:29:00"), "Speichern"
Application.OnTime TimeValue("07:31:00"), "copyData"
Select Case Day(Date)
 Case 1, 2, 3, 4
   Tabelle3.CommandButton1.Visible = True
 Case Else
   Tabelle3.CommandButton1.Visible = False
 End Select
  Application.GoTo Tabelle3.Cells(35 * (Day(Date) - 1) + 5, 1), Scroll:=True
  Call CheckeRevisionsnummern
  Call AutoSpeichernEinschalten
  Call copyData
  Application.OnTime Now() + TimeValue("02:00:00"), "Backup_"
End Sub
Private Sub Workbook_BeforeClose(Cancel As Boolean)
    On Error Resume Next
    Application.OnTime EarliestTime:=CloseTime, Procedure:="Backup_", Schedule:=False
    Application.OnTime EarliestTime:=CloseTime, Procedure:="copyData", Schedule:=False
    Call AutoSpeichernAusschalten
    Ende
End Sub

Private Sub Workbook_SheetBeforeDoubleClick(ByVal Sh As Object, _
ByVal Target As Range, Cancel As Boolean)
    Cancel = True
End Sub

Private Sub Workbook_SheetSelectionChange(ByVal Sh As Object, ByVal Target As Range)
    startzeit                                       ' Prozedur starten
End Sub

 

Hi,

vielleicht solltest du auch mal in diesem Thread (Office 365) - Excel Dateien gehen aus wenn.... Rückmeldung geben, ob das Problem des erneuten Öffnens der geschlossenen Mappe nun geklärt ist, denn wenn ich deinen im Eröffnungsbeitrag geposteten Code sehe, ist dies wiederum dein fehlerhafte Code, der das Problem mit dem erneuten Öffnen auslöste.

---

 

Hallo Merkur,

ich vermute es wurde nicht der gesamte Code übernommen, in meiner Datei läuft es.
nur wenige schauen auf Deinen Rechner und sehen die Datei.
Ich möchte gerne den Fehler im Original sehen.

Ich baue keine Datei nach. Die Zeit hat schon jemand investiert.

Ein Nachbau sieht meist anders aus als das Original. <B>Darum sollte das Original verlinkt werden.</b>

Wenn du an Stelle einer Demomappe deine Originalmappe hochladen willst, diese aber sensible Daten enthält, kannst du diese Daten
Hinweis - Anonymisierung und Pseudonymisierung von Beispielmappen - MS-Office-Forum
änderrn.
Der Name einer hochgeladenen Mappe wird im Beitrag automatisch angezeigt, sodass es bei Verwendung von aussagekräftigen Namen leichter fällt, sie später im Ablageordner wiederzufinden und sie gedanklich einem bestimmten Thema zuzuordnen. Namen wie Muster, Test, Mappe, Beispiel, Fehler, Kalender usw. sind so allgemein, dass eine Zuordnung zu einem Thema unmöglich gemacht wird.
Es sollte ein aussagekräftiger Name sein.

Benutze hier im Forum die Funktion zum hochladen. Falls Du die nicht benutzen möchtest beachte, von unsicheren Servern wie z.B. www.file-upload.net lade ich keine Datei runter. (lt. Einschätzung meines Virenprogramms)3

Bilder lade ich mir nicht runter, da Excel damit nichts anfangen kann.

Bilder statt Datei | Excel ist sexy!

Hochgeladene Bilder können zwar als solche in Excel importiert werden, sind jedoch bei der Lösung von Problemen nicht sehr hilfreich, da man die eigentlichen Daten nicht ohne große und zeitraubende Umwege direkt in die Tabelle übertragen kann.

Das ist nur meine Meinung zu dem Thema.

Gruß Hajo

 

Hajo, Deine Vermutung ist nicht korrekt.Aber Dein Code ist nicht alleine. Und wenn er nur in einer "Leeren" Datei funktioniert ist das nicht sehr hilfreich. Danke trotzdem

 

Hallo Merkur,

gut ich bin dann raus, siehe letzten Beitrag.

Gruß Hajo