XL 2019 Bypasser Before close

Bonjour le forum,
J''utilise ces macros, mais je souhaiterai que celle dans Workbook open puisse exécuter Sub annexe en évitant Before close qui interfère avec le msgBox, est ce possible ?

Sub Workbook_Open()
Dim realDate As Variant, ladate As Date
ladate = Date
realDate = Date_net
If realDate <> ladate Then
Call annexe
End If
end sub

Sub annexe()
With ThisWorkbook
.Saved = -1: .ChangeFileAccess 3
Kill .FullName: .Close 0
End With
End Sub

Private Sub Workbook_BeforeClose(Cancel As Boolean)
Dim ret As Integer
ret = MsgBox("Souhaitez vous fermer sans enregistrer ?", vbYesNo + vbInformation)
If ret = vbNo Then
Cancel = True
Else
ThisWorkbook.Saved = True
End If
End Sub

belle journée

Pat66