Ich könnte mir Vorstellen: InActive Workbooks close all, nur da komme ich nicht weiter.
Vielen Dank für einen Tipp.
Hansueli
Option Explicit
Public Sub Alle_bis_auf_Eine()
Dim objMappe As Object
For Each objMappe In Workbooks
If objMappe.Name ThisWorkbook.Name Then
objMappe.Close False
End If
Next
End Sub
Public Sub Alle_bis_auf_Eine_1()
Dim strDatNam As String
Dim objMappe As Variant
strDatNam = "Deine_Datei_offen.xls"
For Each objMappe In Workbooks
If objMappe.Name strDatNam And _
objMappe.Name ThisWorkbook.Name Then
objMappe.Close False
End If
Next
End Sub
Public Sub Alle_bis_auf_Eine_2()
Dim strDatNam As String
Dim objMappe As Variant
strDatNam = "Deine_Datei_offen.xls"
For Each objMappe In Workbooks
If objMappe.Name strDatNam And _
objMappe.Name "PERSONL.XLS" And _
objMappe.Name ThisWorkbook.Name Then
objMappe.Close False
End If
Next
End Sub
Im ersten Makro werden alle Dateien bis auf die, aus der das Makro gestartet wurde geschlossen ohne zu speichern. Im zweiten Makro zusätzlich eine bestimmte Datei und im dritten Makro noch die PERSONL.XLS. Probier mal ein bischen rum.