Sujet Précédent Sujet Suivant

Ajouter un message mot de passe incorrect à une macro

Résolu/Fermé
Torre - 8 avril 2015 à 11:53
 Torre - 8 avril 2015 à 14:46
Bonjour,

J'ai crée une petite macro pour faire un mot de passe à laquelle je voudrais rajouté un message mot de passe incorrect si le mot de passe est incorrecte

Sub TestPWarborescences()
Dim Message$, Titre$, Def$, WS$, PassW$
WS = "Ensemble des arborescence"
PassW = "0"
Message = "Entrez un mot de passe :"
Titre = "Accès réservé"
Def = "*****"
If Sheets(WS).Visible = True Then
Sheets(WS).Visible = False
Else
If InputBox(Message, Titre, Def) = PassW Then _
Sheets(WS).Visible = Not Sheets(WS).Visible
Sheets(WS).Activate
End If
End Sub

Pourriez vous m'aider s'il vous plaît ?
A voir également:

3 réponses

Réponse 1 / 3
via55 Messages postés 14512 Date d'inscription mercredi 16 janvier 2013 Statut Membre Dernière intervention 18 janvier 2025 2 741
8 avril 2015 à 14:17
Bonjour Torre,

Modifie ainsi la fin de ta macro : 
If InputBox(Message, Titre, Def) <> PassW Then Msgbox("Mot de passe incorrect"): Exit sub
Sheets(WS).Visible = Not Sheets(WS).Visible
Sheets(WS).Activate
End If
End Sub


Cdlmnt
Via
0
Réponse 2 / 3
Vaucluse Messages postés 26496 Date d'inscription lundi 23 juillet 2007 Statut Contributeur Dernière intervention 1 avril 2022 6 421
8 avril 2015 à 14:19
Bonjour
voyez si ce modèle que nous devons à Mike 31, fonctionnant via un userform peut vous inspirer

https://www.cjoint.com/c/EDioFFTj5kZ

et si oui, n'oublions pas de remercier l'ami Mike

Crdlmnt
0
Réponse 3 / 3
Torre
8 avril 2015 à 14:46
Merci grâce à vos sollutions j'ai pu modifier ma macro et elle marche parfaitement !
0