Disable 'Exit Excel' button in Excel 2007

Private Sub Workbook_BeforeClose(Cancel As Boolean)
    Cancel = True
End Sub

I'd be careful how I used this -- you'll have people coming after you in the night with pitchforks.

Thankgs shg, however that worked a bit too well. I'm unable to close the document at all. I want users to be able to use the 'X' to close, or even ALT+F4, but not the 'Exit Excel' button.

Thanks again.