VBA - Fermer Excel.exe après une erreur

Private Sub Workbook_Open()
'si une erreur est rencontrée, aller à la ligne "gestionErreur"
On Error GoTo gestionErreur


'
'
'le code principal de ta macro
'
'


: gestionErreur
'si plus d'un classeur est ouvert
If Application.Workbooks.Count > 1 Then
    'fermer juste ce classeur sans enregistrer
    ThisWorkbook.Close False
'sinon
Else
    'femer l'application (Excel)
    Application.Quit
End If
Else
End Sub

Private Sub Workbook_Open()
'si une erreur est rencontrée, aller à la ligne "gestionErreur"
On Error GoTo gestionErreur


'
'
'le code principal de ta macro
'
'


: gestionErreur
'si plus d'un classeur est ouvert
If Application.Workbooks.Count > 1 Then
    'fermer juste ce classeur sans enregistrer
    ThisWorkbook.Close False
'sinon
Else
    'femer l'application (Excel)
    [COLOR=Red][B]Application.EnableEvents = False[/B][/COLOR]
    Application.Quit
End If
Else
End Sub

Application.DisplayAlerts = False

Workbooks.add
Application.Quit