ich hoffe mir kann jemand von Euch helfen. Schätzungsweise ist das ein kleines Problem.
Hier kurz geschildert:
Beim Öffnen einer Datei kontrolliert diese per Makro, ob es eine aktuellere Version im Netzwerk gibt. Wenn ja speicher sich die Datei als alt weg und öffnet die aktuelle. Nun soll sich die alte Datei schließen. Mein Problem ist, dass eine Anweisung unter BeforeClose hinterlegt ist, die beim Schließen der alten (und nur dieser) Datei nicht ausgeführt werden darf.
Der Befehl Application.EnableEvents bringt mir hier nichts, da nach Schließen mit der neuen Version weitergearbeitet werden soll und diese auf BeforPrint und BeforeClose zugreifen muss.
Ich habe zwei Lösungsansätze die ich im Modul BeforClose versucht habe zu integrieren. In _ beiden soll beim Schließen geprüft werden, ob es die Datei Bestellung_alt.xls ist. Wenn ja beende die Sub, wenn nein arbeite die Befehle ab:
Private Sub Workbook_BeforeClose(Cancel As Boolean)
If Workbook.Close("C:\Test\Bestellung_alt.xls") Then
Exit Sub
Else
Application.CommandBars("Warengruppen").Visible = False
Application.CommandBars("Warengruppen").Delete
End If
End Sub
oder:
Private Sub Workbook_BeforeClose(Cancel As Boolean)
Dim WkbkName As Object
If (WkbkName.Name = "Bestellung_alt.xls") Then
Exit Sub
Else
Application.CommandBars("Warengruppen").Visible = False
Application.CommandBars("Warengruppen").Delete
End If
End Sub
Was mache ich falsch? Wäre für jede Hilfe dankbar.
Danke und Grüße
Jürgen