URGENT pb de déprotection d'une feuille lors de l'éxéciution d'une macro

[phaco11]

Bonjour,

Je cherche un code qui pourrait gérer les erreurs de saisie de code lorsque que l'on veut déprotéger une feuille de calcul protégée par mot de passe lors de l'exécution d'une macro.

En effet sans ce code, lors d'une erreur de saisie, j'ai le bon message qui s'affiche (" Mot de passe non valide..." mais avec la fenêtre d'erreur avec les boutons dans l'exécution d'une macro (Erreur d'exécution 1004 ... Bouton Fin bouton débogage).

Je vous remercie d'avance

 

[phlaurent55]

Re : URGENT pb de déprotection d'une feuille lors de l'éxéciution d'une macro

Bonjour phaco, et bienvenue sur le forum

..........lors d'une erreur de saisie, j'ai le bon message qui s'affiche (" Mot de passe non valide..."

il suffit de mettre Exit Sub juste en dessous de cette ligne qui affiche le message

MsgBox(" Mot de passe non ..........
Exit Sub

à+
Philippe

Edit: évite le mot "Urgent" la prochaine fois

 

[phaco11]

Re : URGENT pb de déprotection d'une feuille lors de l'éxéciution d'une macro

Salut phlaurent55

ok j''évitearis le mot urgent

Par contre ta solution ne fonctionne pas.

En fait le code que j'ai écrit et le suivant:


Dim Text
Dim Style
Dim Titre
Dim Code
Dim RepDialogue
Dim RepdialogueCode

'dé-protection de la feuille de calcul
ActiveSheet.Unprotect


'Affectation des valeurs aux variables
Code = "1234"
Text = "Voulez-vous valider cette demande ?"
Style = vbYesNo
Titre = "Validation"


'apparition de la boîte de dialogue de validation
RepDialogue = MsgBox(Text, Style, Titre)
If RepDialogue = vbYes Then
ActiveCell.Value = Date
ActiveSheet.Protect Code, DrawingObjects:=True, Contents:=True, Scenarios:=True
Exit Sub
Else
ActiveCell.Value = ""
ActiveSheet.Protect Code, DrawingObjects:=True, Contents:=True, Scenarios:=True
Exit Sub
End If


End Sub

Malheureusement, si ,quand la fenêtre te demandant le mot de passe apparaît, tu frappes un mauvais mot de passe, une fenêtre apparaît. Elle a la même forme que si tu avais une erreur dans l'exécution d'une macro (boutons fin et débogage,...) et a le même texte que la fenêtre classique qui apparaît quand tu te trompes de mot de passe en utilisant Outils\Protection\Oter la prtection de la feuille dans excel. En fait, c'est cette fenêtre que je cherche à faire apparaître mais ce n'est pas le cas.

De plus, quand la fenêtre de demande de mot de passe apparaît, si tu tapes annuler, la macro continue de s'exécuter au lieu de s'arrêter et bien sûr ne fonctionne pas car la feuille n'est pas déprotégée d'où l'apparition de la même fenêtre décrite plus haut que je ne désire pas.

Si tu arrives à trouver une solution, ce serait parfait car moi je sèche dessus depuis le début de l'après-midi

Merci pour tout et d'avance

 

[phaco11]

Re : URGENT pb de déprotection d'une feuille lors de l'éxéciution d'une macro

Salut phlaurent55

ok j''évitearis le mot urgent

Par contre ta solution ne fonctionne pas.

En fait le code que j'ai écrit et le suivant:


Dim Text
Dim Style
Dim Titre
Dim Code
Dim RepDialogue
Dim RepdialogueCode

'dé-protection de la feuille de calcul
ActiveSheet.Unprotect


'Affectation des valeurs aux variables
Code = "1234"
Text = "Voulez-vous valider cette demande ?"
Style = vbYesNo
Titre = "Validation"


'apparition de la boîte de dialogue de validation
RepDialogue = MsgBox(Text, Style, Titre)
If RepDialogue = vbYes Then
ActiveCell.Value = Date
ActiveSheet.Protect Code, DrawingObjects:=True, Contents:=True, Scenarios:=True
Exit Sub
Else
ActiveCell.Value = ""
ActiveSheet.Protect Code, DrawingObjects:=True, Contents:=True, Scenarios:=True
Exit Sub
End If


End Sub

Malheureusement, si ,quand la fenêtre te demandant le mot de passe apparaît, tu frappes un mauvais mot de passe, une fenêtre apparaît. Elle a la même forme que si tu avais une erreur dans l'exécution d'une macro (boutons fin et débogage,...) et a le même texte que la fenêtre classique qui apparaît quand tu te trompes de mot de passe en utilisant Outils\Protection\Oter la prtection de la feuille dans excel. En fait, c'est cette fenêtre que je cherche à faire apparaître mais ce n'est pas le cas.

De plus, quand la fenêtre de demande de mot de passe apparaît, si tu tapes annuler, la macro continue de s'exécuter au lieu de s'arrêter et bien sûr ne fonctionne pas car la feuille n'est pas déprotégée d'où l'apparition de la même fenêtre décrite plus haut que je ne désire pas.

Si tu arrives à trouver une solution, ce serait parfait car moi je sèche dessus depuis le début de l'après-midi

Merci pour tout et d'avance

 

[phlaurent55]

Re : URGENT pb de déprotection d'une feuille lors de l'éxéciution d'une macro

Re,

Désolé mais ce code ne me donne pas du tout envie de le lire

voir en pièce jointe ma manière habituelle de procéder

à+
Philippe