Saving All Open Workbooks

Users familiar with Word may remember that prior to Word 2007 the program contained a nifty shortcut that allowed you to save all your open documents at once—just hold down the Shift key as you click on the File menu, and the Save option becomes Save All.

In Excel there doesn't seem to be a similar shortcut. The closest native solution is to hold down the Shift key as you click the File menu, then choose Close All. In the process of closing, Excel will ask if you want each workbook saved. (This, of course, won't work in Excel 2007 because it doesn't even have a File menu.)

The big drawback to this is that Excel closes, and you need to again start Excel and open all your workbooks. If you want a true Save All command, you need to create it using a macro. The following is a good example of one you could use:

Sub SaveAll()
    Dim Wkb As Workbook
    For Each Wkb In Workbooks
        If Not Wkb.ReadOnly And Windows(Wkb.Name).Visible Then
            Wkb.Save
        End If
    Next
End Sub

Save the macro in your Personal.xls workbook, assign it to a toolbar button or a shortcut key, and you can call it up as often as you like. It saves all the workbooks that are open, except those that are read-only or hidden.