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
|