怎么关闭EXCEL2007保存提示

如何关闭EXCEL2007保存提示？
请教如何实现在关闭EXCEL2007时，默认是不保存，不用再弹出保存提示框
在ThisWorkbook中已经添加了
Private Sub Workbook_BeforeClose(Cancel As Boolean)
Me.Saved = False
End Sub
Private Sub Workbook_BeforeSave(ByVal SaveAsUI As Boolean, Cancel As Boolean)
Cancel = True
End Sub

但不起作用，每次点关闭时，还是会提示是否保存
------解决方案--------------------
SendMessage
------解决方案--------------------
默认不保存的话，你这段代码怎么保存在这个工作簿中呢？
------解决方案--------------------

Workbooks(FileName).Close False