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 ]