automatisch schließen mit Abfrage
20.12.2005 11:33:08
gio
Brauche Eure Hilfe.
Unteres Makro läuft ganz gut, nur fragt es nicht ab ob ich speichern möchte.
Es geht entweder nur automatisch speichern oder nicht speichern.
Mit Activate Display frägt auch nicht vorhaer ab.
Wie kann ich Code verändern, daß er noch abfrägt.
Besten Dank
gio
Sub AllesSchliessenaußer()
Dim WB As Workbook
For Each WB In Workbooks
If WB.Name <> ThisWorkbook.Name And _
WB.Name <> "2345.xls" And _
WB.Name <> "234.xls" Then
WB.Close SaveChanges:=True
End If
Next WB
End Sub