How to Save All Open Excel Windows??

[Pat]

How can I easily save all open windows in EXCEL?
[I have Excel 97.]
Thank you.

 

[Robert Rosenberg]

Excel has an Addin that can accomodate you:

1. Open Excel
2. Click Tools-->Addins
3. Enable/Check the AutoSave Addin and Click OK
4. Click Tool-->AutoSave
5. Choose the "Save All Open workbooks" option
6. (Optionally) Uncheck "Prompt Before Saving". This is not recommended
because it will save all open workbooks without notifying you. If you've
made any unwanted changes to any open workbooks, those will be saved.

In versions newer than Excel 2000, Office has an AutoSave built-in to each
Office program.

 

[Dave Peterson]

Do you how do you save all the open workbooks?

Maybe you could use a macro like this:

Option Explicit
Sub testme01()

Dim SaveErrors As Long
Dim SaveOk As Long

SaveErrors = 0
SaveOk = 0
Dim wkbk As Workbook
For Each wkbk In Application.Workbooks
If wkbk.Saved Then
'do nothing
ElseIf wkbk.ReadOnly Then
'do nothing
ElseIf wkbk.Path = "" Then
'do nothing--it's never been saved
Else
On Error Resume Next
wkbk.Save
If Err.Number <> 0 Then
Beep
MsgBox "Error trying to save " & wkbk.FullName & vbLf & _
"Number: " & Err.Number & vbLf & _
"Description: " & Err.Description
Err.Clear
SaveErrors = SaveErrors + 1
Else
SaveOk = SaveOk + 1
End If
End If
Next wkbk

MsgBox "Total Open: " & Workbooks.Count & vbLf & _
"Total Saved: " & SaveOk & vbLf & _
"Errors: " & SaveErrors

End Sub


If you're new to macros, you may want to read David McRitchie's intro at:
http://www.mvps.org/dmcritchie/excel/getstarted.htm

And if you wanted to close all of them (while saving) your workbooks, you can
Shift-File|Close All.

Then when prompted about Saving, hold the shift and click on Yes--it'll act like
"Yes to all".

But this'll close all the open workbooks, too.

How can I easily save all open windows in EXCEL?
[I have Excel 97.]
Thank you.