Bonjour à tous,
J'ai un problème avec une macro et je ne parviens pas au résultat recherché. (Voir mon code plus bas)
Dans une feuille Excel 2010, lorsque je sélectionne les touches Ctrl+Shift+C, un message invite l'utilisateur à entrer un mot de passe. Lorsque j'entre le bon mot de passe, la feuille se déverrouille, les colonnes M, N et O s'affichent et la cellule M7 est sélectionnée. Jusqu'ici tout fonctionne bien.
Lorsque l'utilisateur entre un mot de passe incorrect, un message s'affiche mentionnant : "Mot de passe invalide". L'utilisateur clique sur Ok et un message l'invite à entrer le mot de passe.
Jusqu'ici tout fonctionne bien.
Par contre, si l'utilisateur entre une deuxième fois un mot de passe incorrect, j'obtiens le message suivant : Erreur d'exécution 1004, Mot de passe invalide etc..
J'aimerais qu'au deuxième mot de passe invalide, le macro sorte du code (Exit Sub).
Pouvez-vous m'aider s.v.p. à régler ce problème?
Merci pour votre aide,
Dan
J'ai un problème avec une macro et je ne parviens pas au résultat recherché. (Voir mon code plus bas)
Dans une feuille Excel 2010, lorsque je sélectionne les touches Ctrl+Shift+C, un message invite l'utilisateur à entrer un mot de passe. Lorsque j'entre le bon mot de passe, la feuille se déverrouille, les colonnes M, N et O s'affichent et la cellule M7 est sélectionnée. Jusqu'ici tout fonctionne bien.
Lorsque l'utilisateur entre un mot de passe incorrect, un message s'affiche mentionnant : "Mot de passe invalide". L'utilisateur clique sur Ok et un message l'invite à entrer le mot de passe.
Jusqu'ici tout fonctionne bien.
Par contre, si l'utilisateur entre une deuxième fois un mot de passe incorrect, j'obtiens le message suivant : Erreur d'exécution 1004, Mot de passe invalide etc..
J'aimerais qu'au deuxième mot de passe invalide, le macro sorte du code (Exit Sub).
Pouvez-vous m'aider s.v.p. à régler ce problème?
Code:
Sub Afficher_2()
'
' Afficher_2 Macro
'
' Touche de raccourci du clavier: Ctrl+Shift+C
On Error GoTo fin1
ici:
If ActiveSheet.Unprotect = False Then Exit Sub
Columns("L:P").Select
Selection.EntireColumn.Hidden = False
Range("P7").Select
Range("M7").Select
fin1: If Err.Number > 0 Then MsgBox "Mot de passe invalide": GoTo ici
End Sub
Merci pour votre aide,
Dan