Office: (Office 2016) Datei öffnet sich von alleine wieder

Hallo, ich kenne mich mit VBA ganz wenig aus.
Es passiert oft, aber nicht immer, dass sich geschlossene Dateien von alleine öffnen und gespeichert werden.
Ich mache etwas falsch, kann aber den Fehler nicht finden. Bevor man manuiel speichert, mache ich den Timer aus und wieder an, quasi timer reseten.

Bitte um Hilfe

Code:

Private Sub Workbook_Open()
  Call AutoSpeichernEinschalten
End Sub


Private Sub Workbook_BeforeSave(ByVal SaveAsUI As Boolean, Cancel As Boolean)
On Error GoTo abbrechen
Call AutoSpeichernAusschalten
Call AutoSpeichernEinschalten
'Hier Backup Code
abbrechen:
End Sub


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


'''''''''''''''''''''''''
Option Explicit
Dim ZeitZuSpeichern As Date

Sub Speichern()
    ThisWorkbook.Save
    Call AutoSpeichernAusschalten
    Call AutoSpeichernEinschalten
End Sub


Sub AutoSpeichernEinschalten()
    ZeitZuSpeichern = Now + TimeSerial(1, 0, 0)
    Application.OnTime ZeitZuSpeichern, "Speichern"
End Sub


Sub AutoSpeichernAusschalten()
    On Error Resume Next
    Application.OnTime ZeitZuSpeichern, "Speichern", , False
End Sub

LG Boshko

 

[gelöscht]

 

Hallo,

ich würde die "Sub Speichern()..." ändern auf:
Sub Speichern()
ActiveWorkbook.Save
End Sub
Dadurch, dass du eh im Workbook die Ereignisbehandlungsroutine
Workbook_BeforeSave(ByVal SaveAsUI As Boolean, Cancel As Boolean)
angelegt hast, wird diese beim/vor Aufruf von ActiveWorkbook.Save aufgerufen, sodass dann der unnötige Mehrfachaufruf von AutoSpeichernAusschalten() und AutoSpeichernEinschalten() unterbleibt.

Ferner würde ich in dieser Sub umstellen von ThisWorkbook.Save auf ActiveWorkbook.Save. Der Unterschied ist, dass ActiveWorkbook.Save die gerade aktive Arbeitsmappendatei speichert, während ThisWorkbook.Save diejenige Arbeitsmappe speichert, in der sich die Anweisung "ThisWorkbook.Save" befindet.
Das würde auch dein beobachtetes Phänomen erklären, dass plötzlich eine längst geschlossene Datei sich wieder speichern will, möglicherweise ausgelöst durch eine sich nicht wirklich löschende Application.OnTime-Anweisung.

Eine weitere Möglichkeit gibt es seit einiger Zeit, statt deiner obigen Programme eine Einstellung in den Excel-Optionen zu verwenden:

 

Hallo Exl121150,

vielen Dank für die schnellen Antwort.
Ich habe vergessen zu erwähnen, dass wir bis zu 5 Dateien gelichzeitig bearbeiten. Die meisten werden aus der gleichen Vorlage erstellt. Je nach dem wir gross der Auftrag ist, werden sie nach 10-30 Stunden abgeschlossen, ausgedruckt und meistens für immer geschlossen. Deswegen, denke ich, dass es es schon richtig ist mit ThisWorkbook.Save.

Call AutoSpeichernAusschalten() und Call AutoSpeichernEinschalten() in BeforeSave ist wahrscheinlich übertrieben und wird nächste Woche entfernt. Wie gesagt, damit wollte ich verhindern, dass es zu oft automatisch gespeichert wird, wenn man zb vorher manuell gespeichert hat. Vielleicht, kann mir jemand sagen wie ich den Timer anders reseten kann. Mich pers. stört es, wenn ich Exceleingaben mache und genau dann automatisch gespeichert wird. Ich bevorzuge manuelles speichern, viele Kollegen speichern gar nicht manuell.

Wir haben keine Cloud, die Autowiederstellungsoption wurde von unseren Vorgesetzten schon in der Vorlage deaktiviert. Es gab viel zu viele automatisch wiederhergestellte Dateien. Keine Ahnung warum vermutlich, weil die Verbindung zum RDP Server nicht stabil ist.

Schade, dass Beverly seine Lösung gelöscht hat....

LG Boshko