Fehler bei ActiveWorkbook.Save auf Netzwerk

Bild

Betrifft: Fehler bei ActiveWorkbook.Save auf Netzwerk
von: Henner
Geschrieben am: 23.10.2015 20:53:56

Guten Abend zusammen,
ich habe folgende Anweisung im Modul "Diese Arbeitsmappe":


Private Sub Workbook_BeforeClose(Cancel As Boolean)
ActiveWorkbook.Save
End Sub

Das funktioniert soweit auch sehr gut. Die Datei liegt in einem Netzwerk und wird auch von dort geöffnet. Hat man die Datei über einen längeren Zeitraum geöffnet oder unterbricht das Netzwerk zwischendurch (Bildschirm zu/Switchen auf WLAN/..), so führt der Befehl zu einem Fehler. Excel blendet dann (nach dem VBA Debuggen/Beenden Dialog) die Frage ein ob man die Datei unter einem anderen Namen speichern oder riskieren möchte, dass zwischenzeitlich vorgenommene Änderungen überschrieben werden. Dieses auf Fehler Laufen des Befehls "ActiveWorkbook.Save" würde ich gerne verhindern.
Am Liebsten wäre mir wenn der User einen Hinweis erhält dass er die Mappe zuerst per Hand speichern muss (um eben diesen Dialog zu beantworten) und anschliessend die Mappe über das X schliessen kann.
Besten Dank für Eure Hilfe, Gruss Henner

Bild

Betrifft: AW: Fehler bei ActiveWorkbook.Save auf Netzwerk
von: Arne L
Geschrieben am: 24.10.2015 10:47:54
Moin.
falls du dir sicher bist, dass du die Datei trotzdem speichern willst, kannst du das umgehen, in dem du dir Fehlermeldungen unterdrückst.


   ActiveWorkbook.DisplayAlerts = False     '# Die Fehlermeldungen werden unterdrückt
   ActiveWorkbook.Save                      '# Die Datei wird gespeichert
   ActiveWorkbook.DisplayAlerts = True      '# Fehlermeldungen werden wieder zugelassen
   ActiveWorkbook.Quit                      '# Die Mappe wird geschlossen. Das nur eingeben,  _
wenn das gewünscht ist.

hab das jedenfalls so verstanden, dass die Datei in jedem Fall am gleichen Ort gespeichert werden soll, egal ob automatisch oder manuell.
Die "quit" Zeile nur eingeben, wenn die Mappe nach dem Speichern automatisch geschlossen werden soll.
Hoffe das hat geholfen, ich habe vorsichtshalber den Haken bei "nicht beantwortet" gesetzt, weil das dein Problem nicht so löst, wie du es gerne wolltest, sondern nur umgangen wird.
Gruß
Arne

 Bild

Beiträge aus den Excel-Beispielen zum Thema "Fehler bei ActiveWorkbook.Save auf Netzwerk"