disable save on exit prompt

[jgoulart]

How can I disable the save prompt when excel is given the command to close?

John

[Anne Troy]

Private Sub Workbook_BeforeSave(ByVal SaveAsUI As Boolean, Cancel As Boolean)

Workbook.Save = True

End Sub


Put that in a module in your workbook.

[Ivan F Moala]

On 2002-03-17 17:12, Dreamboat wrote:
Private Sub Workbook_BeforeSave(ByVal SaveAsUI As Boolean, Cancel As Boolean)

Workbook.Save = True

End Sub

I believe dreamboat meant

ThisWorkbook.Saved=True

and placed in the Thisworkbook object

Ivan


Put that in a module in your workbook.

[Dave Hawley]

Hi jgoulart

I think they both meant

Private Sub Workbook_BeforeClose(Cancel As Boolean)
ThisWorkbook.Saved = Not Cancel
End Sub

This will "disable the save prompt when excel is given the command to close"

[Anne Troy]

Sweet.

Heck, I just tested mine and it worked for me.



I'll learn, Ivan & Dave. What is the difference then?

[Dave Hawley]

Tuggy, you wrote

Workbook.Save=True

There isn't any such Object as "Workbook" it must be either:

"ThisWorkbook"
"ActiveWorkbook"
"Me"
"Workbooks(me.name)"

You also hade "Save" when it should be "Saved". "Save" is a Method while Saved is a Property.

The reason i suggested my method was because yours (modified by Ivan) would stop the Workbook saving at any time and not "when excel is given the command to close"

[invisigirl]

Dave, good suggestions. I didn't know how to do this either, and nobody's suggestions worked until I looked at what you said about designating the workbook. For mine, in Excel 97, I had to put in ActiveWorkbook. It's all good now.

Thanks!