Autosave options in Excel 2000

[Mike from Broadwindsor]

I am trying to enable Autosave of all open workbooks without prompting. I
make the changes, click OK. Everything is fine until the next time I start
Excel when the default options come back. I'm sure it was working the way I
want it to before I had a major disaster and had to reload everything so
what, please, have I forgotten to do?

[Dave Peterson]

I thought that one of the service packs to xl2k fixed this.

Since you're using xl2k, you may want to look for updates.

But here's a workaround (but still look for updates)...

Create a workbook with this code in a general module:

Option Explicit
Sub auto_open()

On Error Resume Next
Workbooks("autosave.xla").Excel4IntlMacroSheets("Loc Table") _
.Range("ud01b.Prompt").Value = False
If Err.Number <> 0 Then
MsgBox "Prompt not changed!"
Err.Clear
End If
On Error GoTo 0

'ThisWorkbook.Close SaveChanges:=False

End Sub

When you're happy with your testing, remove the apostrophe from the
'ThisWorkbook.Close SaveChanges:=False
line.

Then save the workbook into your XLStart folder (so it loads, runs, and closes
each time you start excel).

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

Mike from Broadwindsor wrote:
>
> I am trying to enable Autosave of all open workbooks without prompting. I
> make the changes, click OK. Everything is fine until the next time I start
> Excel when the default options come back. I'm sure it was working the way I
> want it to before I had a major disaster and had to reload everything so
> what, please, have I forgotten to do?

--

Dave Peterson