Mit dem folgenden Makro können Sie alle offenen Arbeitsmappen auf einmal speichern:
Sub Alle_offenen_Arbeitsmappen_speichern()
Dim wbk As Workbook
For Each wbk In Application.Workbooks
If wbk.Path <> “” Then
wbk.Save
Else
wbk.Activate
Application.Dialogs(xlDialogSaveAs).Show _
(wbk.Name)
End If
Next wbk
MsgBox “Speichervorgang beendet!”
End Sub
Weiterführende Links: