beforeClose=Wbs.close or Applicatio.quit

Hallo an alle,
nachdem ich nun schon Tage mit Unterstützung der Hilfe sowie diesem Forum an meinem Code rumbastel, brauche ich bitte nochmal eure Hilfe.
Bin dabei ein Workbook_BeforeClose-Makro zu schreiben,das auch andere bestimmte Excelmappen(.xls)falls geöffnet schliessen soll. Dafür dachte ich frage ich mit Workbooks.count erstmal ab wieviel
Mappen offen sind, damit ich Appliction.quit abfangen kann und andere Mappen nicht unfreiwillig mit geschlossen werden. Nun möchte ich aber erreichen das wenn bestimmte Mappen geöffnet sind
diese geschlossen werden, aber andere wiederrum geöffnet bleiben. Hab keinen Schimmer wie ich dies bewerkstelligen kann.
Zweite Problematik, ich bin unter Umständen in anderen Tabellen am arbeiten, und dann soll es trotzdem im Hintergrund ablaufen, geht das?
anbei meine kläglichen Versuche.
https://www.herber.de/bbs/user/55322.xls
oder bin ich vielleicht meilenweit von einer Lösung entfernt, gibt es bessere Lösungen?
danke für die Unterstützung
Dirk

Beiträge zum Forumthread

Beiträge zu diesem Forumthread

Betreff

Datum

Anwender

Private Sub Workbook_BeforeClose(Cancel As Boolean) Dim wkb As Workbook For Each wkb In Workbooks If Not wkb.Name = ThisWorkbook.Name Then Select Case wkb.Name Case "Test1.xls", "Test2.xls", "Test3.xls" wkb.Close True End Select End If Next wkb If Workbooks.Count = 1 Then Application.Quit End Sub

Hallo Dirk,
ich habe kein Zeit zum testen.


Option Explicit
Private Sub Workbook_BeforeClose(Cancel As Boolean)
Dim WbDatei As Workbook
If Workbooks.Count = 1 Then
'Application.DisplayAlerts = False       'Bildschirmmeldung ausgeschaltet
ThisWorkbook.Save                      'Diese Arbeitsmappe speichern
'ThisWorkbook.Saved = True               'Diese Arbeitsmappe nicht speichern
Application.Quit                        'Excelinstanz schließen
'Application.DisplayAlerts = True       '
Else
'ThisWorkbook.Close Savechanges:=False   'Diese Arbeitsmappe schließen, Änderungen  _
verwerfen
Application.DisplayAlerts = False
For Each WbDatei In Workbooks
Select Case WbDatei.Name
Case "2Test2.xls", "Test.XLS"
If Workbooks.Count = 1 Then
WbDatei.Save
Application.Quit
Else
WbDatei.Close False
End If
End Select
Next
ThisWorkbook.Close
Application.DisplayAlerts = True
End If
End Sub

Beliebteste Forumthreads (12 Monate)

beforeClose=Wbs.close or Applicatio.quit

8
Beiträge zum Forumthread

Beiträge zu diesem Forumthread

301 Forumthreads zu ähnlichen Themen

Beliebteste Forumthreads (12 Monate)

Beliebteste Forumthreads (12 Monate)

beforeClose=Wbs.close or Applicatio.quit

8 Beiträge zum Forumthread Beiträge zu diesem Forumthread

301 Forumthreads zu ähnlichen Themen

Beliebteste Forumthreads (12 Monate)

Beliebteste Forumthreads (12 Monate)

8
Beiträge zum Forumthread

Beiträge zu diesem Forumthread