How to Save this?

A

Ak Man

Private Sub Workbook_BeforeSave(ByVal SaveAsUI As Boolean, Cancel As Boolean)
MsgBox "Cannot Save this Workbook...Closing Excel!!!"
Application.DisplayAlerts = False
ActiveWorkbook.Close
Application.DisplayAlerts = True
Application.Quit
End Sub
 
B

Barb Reinhardt

You could go to the immediate window and type
APplication.EnableEvents = False

and save it.

Then turn the events back on if you need them.
 
A

Ak Man

Perfect!!!
Thanks....I was thinking about using enable events but just couldn't figure
out how.....
 

Ask a Question

Want to reply to this thread or ask your own question?

You'll need to choose a username for the site, which only take a couple of moments. After that, you can post your question and our members will help you out.

Ask a Question

Similar Threads

Variable not Defined Compile error 15
Close workbook without alerts 4
Automatically copy with save? 8
using two cell references to make up the save as file name 3
Why cant I get the path to the sharepoint library???????? 7
2003 created Workbook casuses error when macro runs in 2007 2
save and exit macro 8
Excel close/save/prompt problem 4

Top