Macro dévérouiller feuille Excel_deboggage

Bonsoir !!

Je rencontre un problème avec VBA et j'ai beau chercher, je ne vois pas comment adresser le problème alors je me tourne vers vous :-)
J'ai créé deux macro qui me permettent de verrouiller et déverrouiller ma feuille excel
Le verrouillage - pas de problème
Le déverrouillage - ça marche si on entre le bon mot de passe, mais si on entre le mauvais, une pop up VBA apparait, et me dit que le mot de passe n'est pas valide, et me propose la commande "Déboggage"

Or je ne veux pas que l'on me propose de debogguer puisque ça m'emmène dans la macro, où il est facile de fouiller et de tomber sur le mdp
Je voudrais juste qu'Excel me dise "Mot de passe erroné" et c'est tout, sans passer par le déboggage

Voilà ma macro (qui en fait ne fait pas que déverrouiller):

If ActiveSheet.Unprotect = True Then
     
    Application.ScreenUpdating = False
    Sheets("DATA 14").Visible = True
    Sheets("STD COSTS").Visible = True
    Sheets("LIST").Visible = True
    Sheets("APPROVAL RULES").Visible = True
      
    ThisWorkbook.Sheets("PAF").Activate
        Range("i:n").EntireColumn.Hidden = False
        Range("s:t").EntireColumn.Hidden = False
        Range("y:z").EntireColumn.Hidden = False
        Range("ap:aq").EntireColumn.Hidden = False
        Range("aw:bd").EntireColumn.Hidden = False
        Range("bl:bl").EntireColumn.Hidden = False
    Application.ScreenUpdating = True
    
    Else
    End If
   
End Sub

Any idea? Je bloque là dessus et ne vois pas de solution :(

merci pour votre aide!