Application.Quit Not Closing Excel

I hate to have to come back to the forum after I Thanked you all for solving my problem, but here I am.

The code below disables the (X) button, no problems

Option Explicit
Public BooleanForClosing As Boolean
Private Sub Workbook_BeforeClose(Cancel As Boolean)
If BooleanForClosing = False Then
Cancel = True
MsgBox "Please Use Exit Button"
End If
End Sub

The next code saves the workbook , but won't Quit the programme and goes back to the Exit Button ...