Bonjour à tous,

je viens de réaliser la macro suivante :
Code : Sélectionner tout - Visualiser dans une fenêtre à part
1
2
3
4
5
6
7
8
9
10
Sub ouverture()
Private Sub Workbook_Open()
Select Case MsgBox("Voulez vous vous identifier pour utiliser le logiciel?", vbYesNo, "Authentification")
Case vbYes
ActiveSheet.Unprotect
Case vbNo
MsgBox " Merci d'avoir utilisé le logiciel DEVIS "
ActiveWorkbook.Close
End Select
End Sub
Le soucis c'est que si l'utilisateur répond oui et qu'il rentre le mauvais code il y as une erreur d'exécution de la macro.Comment puis je faire pour éviter cela.
je voudrai par exemple lui demander de réessayer?

de la meme façon s'il répond annuler je voudrais lui faire quitter le programme.