Private Sub UserForm_QueryClose(Cancel As Integer, CloseMode As Integer)
Dim reponse As Integer
reponse = MsgBox('Pour quitter le programme veuillez' & Chr(10) & Chr(10) & 'cliquer sur le bouton QUITTER', vbYesNo + vbCritical, 'FERMETURE INTERDITE:RISQUE DE PERTE DES DONNEES')
If reponse = vbNo Then
Cancel = True
ElseIf reponse = vbYes Then
code = InputBox(prompt:='Veuillez saisir le code autorisant la fermeture du userform')
If code = 'TOTO' Then
Exit Sub
Else
MsgBox 'code incorect'
Cancel = True
End If
End If
End Sub