when you put this code in what would be the best way to save

[brettvba]

Private Sub Workbook_BeforeSave(ByVal SaveAsUI As Boolean, Cancel As Boolean)
MsgBox "Can Not Save Workbook Will Now Close!", vbOKOnly
ActiveWorkbook.Close

End Sub

 

[s-o-s]

Kool...result 1 Crashed Excel...

However I did also manage to find a way...

Add in change and then Send to as Attachment

When I opened the attachment from the mail It included the Autoclose on save.

 

[brettvba]

yeah it can't handle it in excel xp but it still saves!?!?!

 

[Al Chara]

Private Sub Workbook_BeforeSave(ByVal SaveAsUI As Boolean, Cancel As Boolean)
MsgBox "Can Not Save Workbook Will Now Close!", vbOKOnly
ActiveWorkbook.Close

End Sub

Try the following:

Private Sub Workbook_BeforeSave(ByVal SaveAsUI As Boolean, Cancel As Boolean)
MsgBox "Can Not Save Workbook Will Now Close!", vbOKOnly
cancel=true
application.displayalerts=false
ActiveWorkbook.Close
end sub

_________________
Hope this helps.
Kind regards, Al.
This message was edited by Al Chara on 2002-04-16 15:47
This message was edited by Al Chara on 2002-04-16 15:50