Eliminating Save Dialog but still Saving Excel File

Private Sub Workbook_BeforeClose(Cancel As Boolean)
    Me.Save
End Sub

This is very dangerous; if a user accidentally deletes a sheet, for example, he can no longer exit without saving.