Office: (Office 2007) Alle geöffneten Excel-Dateien in einem Rutsch speichern und Schliessen

Hallo

Wie kann ich alle geöffneten Excel-Dateien (2007) in einem Rutsch speichern und schliessen.

Kann mir mal bitte jemand auf die Sprünge helfen??

Gruss Oldfield

:)

 

Excel-Optionen/Anpassen, alle Befehle auflisten lassen und den Befehl 'Alles Schliessen' in die Symbolleiste der Schnellzugriffsleiste hinzufügen.
Gruss
JPA

 

Hallo JPA,

Deine Lösung gilt nicht für die personal.xlsb in Excel 2007, die bleibt weiterhin geöffnet.

Eine passende Lösung für alle geöffneten Arbeitsmappen wäre:

Shift+Klick auf rotes Kreuz.

Gibt es dafür ein Makro, das ich in die Schnellzugriffsleiste einstellen kann?

Gruß hajosch

 

Code:

Gruß
JPA

 

Hallo JPA,

Deine Prozedur schließt nicht die personal.xlsb.
Es fehlt leider die Funktion der Shift-Taste, mit der wirklich alle geöffneten Dateien geschlossen werden.

Gruß hajosch

 

Eine Möglichkeit wäre vielleicht, die personal.xlsb mit einem eigenen 'close'
zu schließen und das Makro entsprechend zu erweitern.

Wie würde der Code sein für 'close C:\Users\User\AppData\Roaming\Microsoft\Excel\XLSTART\personal.xlsb'?

Gruß Hajosch

 

Doch, bei mmir funz es, sämtliche Dateien/Projekte (außer die Addins) werden geschlossen.

Vielleicht sollte ich noch erwähnen, dass die Prozedur in die Datei personal.xlsb reingesetzt werden sollte.
Deswegen auch die Zeile am Ende
Application.ThisWorkbook.Close True
Damit die datei vorin sich die prozedur befindet, zum schluss schließt ;-)

G
JPA

 

Die Prozedur war schon immer in der Datei personal.xlsb gespeichert.

Nach Aufruf der Prozedur, kopiert aus der personal.xlsb:

Public Sub CloseAllWorkbooks()
Dim wb As Workbook

For Each wb In Workbooks
If Not wb.Name = Application.ThisWorkbook.Name Then wb.Close True
Next
Application.ThisWorkbook.Close True

End Sub

bleibt ein leeres Excel-Fenster sichtbar, das sich auch nicht mit erneutem Aufruf der Prozedur schließen läßt, erst nach Klick auf das rote Kreuz.

Anderer Versuch:
Nach Klick auf 'Office-Schließen' wird das aktuelle Datei-Fenster geschlossen
und es erscheint das bis dahin nicht sichtbare Fenster 'Personal.xlsb'.

Nach erneutem Klick auf 'Office-Schließen' wird das Datei-Fenster 'Personal.xlsb' geschlossen und es erscheint das bis dahin nicht sichtbare leere Fenster ohne Dateiangabe.

Nach erneutem Klick auf 'Office' ist die Funktion 'Schließen' inaktiv und das Fenster läßt sich nur mit Klick auf das rote Kreuz schließen.

Gruß Hajosch

 

Zu dem leeren Excel-Fenster:

In den Optionen-'Optionen für diese Arbeitsmappe anzeigen' heißt es:
'Es ist keine Arbeitsmappe geöffnet'.

Gruß Hajosch

 

Da ich Excel 2010 verwende, habe ich es jetzt mit Excel 2007 getestet und es läuft auch hier einwandfrei.

Verstehe nicht dein beschriebenes Problem.

Wäre schön, wenn andere es mal testen würden...

Wenn nciht mit speichern geschlossen werden soll, sondern mit Rückfrage, dann geht es noch kürzer:
Code:

G
JPA

 

Nach Schließen aller geöffneten Excel-Dateien bleibt ein leeres Excel-Blatt auf dem Bildschirm, das zusätzlich geschlossen werden muss, und zwar ausschließlich über das rote Kreuz. Das nervt!!!!!!!!!

Gruss Hajosch

 

Zeig doch mal im VBA-Editor den Projektexplorer mittels screenshot nach dem alle dateien geschlossen wurden und wo die eine übrig bleibt.
Gruß
JPA

 

Sieh bitte in den Anhang.

Gruß Hajosch

 

Danke für den Screenshot. Darin wird jedoch nicht der VBA-Editor abgebildet, sondern die Makroliste, was kein Dateifenster ist, sondern ein Dialogfenster.
Wo ist die Datei jetzt die noch offen sein soll?
G
JPA

 

Entschuldige.

Siehe bitte den Anhang.

Gruß Hajosch