Hallo!

Ich habe (seit kurzem) ein Problem mit workbook_open.

Der Code hat einige Jahre problemlos funktioniert.

Nun passiert beim Öffnen der Datei meistens(!) nichts. Manchmal wird das Makro beim Öffnen der Arbeitsmappe ausgeführt. Ein reproduzierbarer Fall:

Excel wird neu geöffnet. Die Datei wird aus dem Menü heraus geöffnet (also nicht durch anklicken im Explorer). In diesem Fall funktioniert es einmal (!). Schließt man alles und probiert es erneut, passiert nichts.

Ich glaube die Probleme haben begonnen, als ich in einem Makro mit EnableEvents=false/true gearbeitet habe!

Über Lösungsvorschläge würde ich mich sehr freuen.

Herzliche Grüße!

Hier ist der Code:

Private Sub Workbook_Open()

    Call Sichern

End Sub

Sub Sichern()

    'Zellen berechnen um aktuellen Backup-Dateinamen zu generieren

    Application.Calculate

    antwort = MsgBox("Soll ein Backup dieser Datei erstellt werden?", vbYesNo, "Backup erstellen?")

    If antwort = vbYes Then

    'Speichern unter Backup-Dateinamen

    ThisFile = Range("Backup_Pfad").Value

    ActiveWorkbook.SaveAs FileName:=ThisFile, ReadOnlyRecommended:=True

    'Speichern unter altem Dateinamen

        'Dabei wird die Datei überschrieben

        'Damit keine Eingabeaufforderung erscheint werden die Alerts ausgeschalten

    Application.DisplayAlerts = False

    ThisFile = Range("Dateipfad").Value

    ActiveWorkbook.SaveAs FileName:=ThisFile, ReadOnlyRecommended:=False

    Application.DisplayAlerts = True

    MsgBox "Backup wurde erstellt!", vbOKOnly

    End If

End Sub

Das sind die einzigen Prozeduren im Workbook.

Die Datei ist unter folgendem Link abrufbar:

https://1drv.ms/x/s!AlTXI0a7_oHihtNjzUUJzLk5wklAxw

Excel 2016 (Version 1701) - office 365

Win 10