Rendre inactif fermeture sauf par macro

Bonjour ,

Je souhaiterais fermer mon classeur uniquement en passant par macro "quitter" et non par la croix fermeture.

Merci à vous

Bonjour,

Dans le module du classeur :

Private Sub Workbook_BeforeClose(Cancel As Boolean)

    'si il ne faut pas quitter, mettre à True sinon à False
    Cancel = True

End Sub

Merci cela fonctionna et du meme temps me bloque ma macro

je souhaite si possible que ma macro pour quitter fonctionne

Bonjour,

Public sortieapprouvée As Boolean

Sub quitter()
    If MsgBox("Etes vous sur de vouloir quitter", vbYesNo, "Confirmation de sortie") = vbYes Then
        sortieapprouvée = True
        ThisWorkbook.Close saveChanges:=True
    End If
End Sub

Private Sub Workbook_BeforeClose(Cancel As Boolean)
    If Not sortieapprouvée Then Cancel = True
End Sub

Cordialement.

Merci