gestion de ON ERROR

[sasjm37]

Bonjour le fil,
J'ai modifié une macro récupérer par un collègue (qui lui même a du la trouver sur le Net...).
Quand on clic sur le bouton "Protéger" de la feuille1, on demande à utilisateur un mot de passe, et toutes les feuilles sont protégées.
Quand on RECLIC sur le bouton "Déprotéger" de la feuille1, on demande à utilisateur un mot de passe, et si le mot de passe est correct toutes les feuilles sont déprotégées.
Mais si le mot de passe est INCORRECT la fonction On error gère l'erreur la première fois ? si le mot de passe est erroné la deuxième fois la procédure génère une erreur 1004 ???
Je joins un fichier de test.
Merci d'avance.
sasjm37

 

[Dranreb]

Re : gestion de ON ERROR

Bonjour.
Remplacez "Goto retour" par "Resume retour"

Et pour pouvoir renaoncer à déprotéger mettez donc ceci derrière l'InputBox:

If Str_password = "" Then Exit Sub

À+

 

[sasjm37]

Re : [RESOLU] gestion de ON ERROR

Bonjour Dranreb,
Merci beaucoup de ton aide. J'avais bien fait plusieurs essais avec l'instruction Resume, mais ce n'était pas du tout efficace.
A+
Sasjm37

 

[Dranreb]

Re : gestion de ON ERROR

Bonjour.
En tout cas c'est la seule façon correcte de retourner dans le code normal en levant la condition d'erreur.
Sinon il considère qu'une erreur se produit pendant la gestion d'une condition d'erreur, et là ça plante.
À+