Maybe:

Private Sub Workbook_BeforeClose(Cancel As Boolean)
    Thisworkbook.Close True
End Sub