VBA Application.Quit

Moin!
Ich habe mal noch ein paar Fragen zum Code.
1. Du fragst in der MsgBox, ob die Mappe geschlossen werden soll, gibst aber nur einen Button zum Bestätige!? Was passiert, wenn mir da einfällt ne, nicht speichern? Das solltest du noch ändern.
2. Das Problem mit dem Schließen entsteht m.E. daraus, dass du am Anfang eine neue Excel Instanz öffnest. Jetzt die Frage wozu? Machst du mit der noch was, was für unsere Testzwecke nicht im Code stand?
Gibt jetzt mind. 2 Möglichkeiten (teilweise ähnlich), dein Problem zu beheben.
1. Nimm die zusätzliche Instanz raus und dann wie Onur schrieb nur das Application.quit. Also so:

Sub Exit_Workbook(control As IRibbonControl)
Dim ExcelApp As Object
'Set ExcelApp = CreateObject("Excel.Application")
MsgBox "Mappe " & vbCrLf & vbCrLf & ThisWorkbook.Name & vbCrLf & vbCrLf & " schließen?", _
vbOKOnly + vbInformation, "Alles schließen"
Application.EnableEvents = False
If Application.Workbooks.Count > 1 Then
Calculate
ActiveWorkbook.Save
ActiveWorkbook.Close
Exit Sub
ElseIf Application.Workbooks.Count = 1 Then
Calculate
ActiveWorkbook.Save
Application.Quit
End If
'ThisWorkbook.Close
Application.EnableEvents = True
End Sub

2. Variante falls du die andere INstanz brauchst.
Dabei wird die Mappe nicht geschlossen (Damit sollte der Code beendet sein) sondern die neue Instanz zugemacht und dann die andere Instanz geholt und geschlossen.

Sub Exit_Workbook(control As IRibbonControl)
Dim ExcelApp As Object
Set ExcelApp = CreateObject("Excel.Application")
MsgBox "Mappe " & vbCrLf & vbCrLf & ThisWorkbook.Name & vbCrLf & vbCrLf & " schließen?", _
vbOKOnly + vbInformation, "Alles schließen"
Application.EnableEvents = False
If Application.Workbooks.Count > 1 Then
Calculate
ActiveWorkbook.Save
ActiveWorkbook.Close
Exit Sub
ElseIf Application.Workbooks.Count = 1 Then
Calculate
ActiveWorkbook.Save
ExcelApp.Quit
End If
'ThisWorkbook.Close
Application.quit
Application.EnableEvents = True
End Sub

Zusätzlich könntest du dir (falls noch weitere Instanzen voliegen) diese holen und ebenfalls schließen. geht mit.

Set ExcelApp = GetObject(, "Excel.Application")
ExcelApp.Quit

Da du 2 Instanzen hattest, hat Ecxel beim SClie´ßen der Mappe den Code beendet und da noch eine INstanz da war die Anwendung nicht geschlossen. Da du eh gespeichert hast, das wb.close in dem Fall rauslassen.
Konnte es jetzt aber nicht aus dem Rippon testen, sondern als eigene freie Sub.
VG

Hallo Matthias.
Oh Gott, da müssen deine Denkweise sich mit meiner Laien-Denkweise noch einige Verhandlungen aussetzen, denn ich verstehe so einiges noch nicht...
Was die UF'S angeht, verstehe ich es auch nicht, da alle UF's auf verschiedenen Rechner bei verschiedenen Kollegen auch funktionieren.
Das Schließen aus dem Ribbon funktioniert nun auch, da ich die Zeile


MsgBox "Schließen in der Symbolleiste möglich!", vbOKOnly + vbQuestion, "Meldung anzeigen"
Cancel = True

aus "DieseArbeitsmappe" auskommentiert habe. Ich hatte aber vor, mit dieser Zeile das Schließen-Kreuz zu deaktivieren, weil eben alle bzw. viele Kollegen IMMER dieses Kreuz zum Schließen nutzen. Das hat mich schon früher genervt, weil man meiner Meinung nach so keine Programme schließt.
Ich habe diesen Code


Sub Exit_Workbook(control As IRibbonControl)
Dim ExcelApp As Object, i As Long
Set ExcelApp = CreateObject("Excel.Application")
MsgBox "Mappe " & vbCrLf & vbCrLf & ThisWorkbook.Name & vbCrLf & vbCrLf & "schließen?",  _
vbOKOnly + vbInformation, "Alles schließen"
Application.EnableEvents = False
If Application.Workbooks.Count > 1 Then
Calculate
ActiveWorkbook.Save
ActiveWorkbook.Close
Exit Sub
ElseIf Application.Workbooks.Count = 1 Then
Calculate
ActiveWorkbook.Save
'ActiveWorkbook.Close
ExcelApp.Quit
End If
Application.Quit
'ThisWorkbook.Close
Application.EnableEvents = True
'ExcelApp = Nothing 'Freigabe des Speichers
End Sub

im Modul con_Exit und wie oben erwähnt, die zwei Zeilen im BeforeClose-Event von "DieseArbeitsmappe".
Zu "On Error resume next" hast du recht. Ich habe dies des öfteren gelesen. Im Prinzip muss bzw. sollte ich mich erstmal um das Fehlerabfangen bei meinem Code kümmern, als daran weiter zu arbeiten.
Ich habe nämlich auch gelesen, dass eine gute Fehlerroutine unausweichlich ist.
Ich habe die CloseMode-Event auskommentiert (Überbleibsel von den Versuchen) und die die beiden Zeilen im BeforeClose-Event von "DieseArbeitsmappe" wieder aktiviert und jetzt bekomme ich zwar keinen Fehler mehr, aber nach dem Klick aus "Schießen" im Ribbon, schließt er nicht mehr, sondern bringt die MsgBox vom BeforeClose-Event (was ja logisch ist).
Bis jetzt kann ich die Mappe in diesem Zustand nnur über den Taskmannager schließen.
Deinen letzten Absatz verstehe ich noch nicht ganz. Wie kann ich mir das vorstellen?
Ich schicke dir die Mappe nochmal, die ein wenig verändert wurde, mit der Hoffnung, dass du es diesmla öffnen kannst. Ziel ist es ja, dass die Mappe überall anstandslos funktioniert.
https://www.herber.de/bbs/user/135373.xlsm
LG
Peer

Forumthread: VBA Application.Quit

12
Beiträge zum Forumthread

Beiträge zu diesem Forumthread

Infobox / Tutorial