Saving All Open Workbooks

@ J. Woolley:
Thank you very much for this tip. I tried it out straight away; on my machine (W10, Office365), the "Save All" button saved and closed all open workbooks.
You were right about my Taskbar settings.
I use macros whenever necessary, but not whenever possible. In this case, a quick and easy solution via an appropriate click on Taskbar or Close button is available - no more hassle than using a macro, which has to be available, able to run and easily accessible.

@Kiwerry
Apparently you use the "combine taskbar buttons" setting; otherwise, "close all windows" is not in the context menu. But if you Shift+Left-click the Close (X) button in Excel's top-right corner, a dialog (see Figure 1 below) includes Save All. If you pick Save All, the workbooks are saved but remain open; then Shift+Left-click the Close (X) button again to immediately close all of them. If you don't pick Save All, you can Save or Don't Save each workbook, then it will close. With this feature available, I believe a macro is unnecessary.

This macro from excelcampus will save all open workbooks, except unsaved ones, close them and exit excel.

It would be easy to make 'exit excel' optional.

Sub Save_and_Close_All_Files_Except_ScratchPads()
'Close all open workbooks except new unsaved files

Dim wb As Workbook

'Loop through each workbook
For Each wb In Application.Workbooks

'Prevent the workbook that contains the
'code from being closed
If wb.Name <> ThisWorkbook.Name Then

'Check if the file names has an extension
If InStr(Right(wb.Name, 5), ".xls") > 0 Then
wb.Close SaveChanges:=True
Else
'Do not save changes if it's a scratch pad.
wb.Close SaveChanges:=False
End If

End If
Next wb
Application.Quit
End Sub

I have this as the last button on my Home tab.

A right-click on the Excel icon in the task bar opens a context menu with "Close all windows" as an option; if you select it Excel will go through the open workbooks, asking you if you want to save each one. This Windows-based solution works for other programs as well.

The method seems to be similar in action to Walter's macro, without having to find and run the macro (or use valuable QAT space). A macro-based solution does give the option of setting it up to meet the current situation and could be faster, if more than one or two workbooks are open.

Hello Anna …
.. You can use the Workbook.SaveAs-Method …
…. https://docs.microsoft.com/en-us/office/vba/api/excel.workbook.saveas
…. In place of the Workbook.Save-Method (…
…. https://docs.microsoft.com/en-us/office/vba/api/excel.workbook.save ... )
….
… In that method, the first argument, FileName:= , would be the full path and file name of your file …

… So instead of …
… Wkb.Save …
… you would do like
… Wkb.SaveAs Filename:="C:\Users\Elston\Desktop" & "\" & Wkb.Name …
…
… Obviously you will need to change that first path bit to suit the location you want to save the file in. In that example, the file would be saved on my desktop
…

…. Alan Elston

Thanks for the tip! However, how can you save all the opened workbooks to a specific location?

I had multiple workbooks open in Excel 2010 and the Sub SaveAll() didn't work for me.

The following simple macro does the trick for me.
It prompts to save if changes were made in a workbook and also prompts with warning messages if need be.

Sub Close_all_Workbooks()
Workbooks.Close
End Sub

it also worked in Excel 2019, where the workbooks are open and multiple instances of Excel.

It's fairly simple and you may need to embellish it to do all of the things you would like.