Ajouter un message mot de passe incorrect à une macro
Résolu
Torre
-
Torre -
Torre -
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 ?
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:
- Ajouter un message mot de passe incorrect à une macro
- Trousseau mot de passe iphone - Guide
- Mot de passe - Guide
- Mot de passe administrateur - Guide
- Mot de passe bios perdu - Guide
- Voir mot de passe wifi android - Guide
3 réponses
Bonjour Torre,
Modifie ainsi la fin de ta macro :
Cdlmnt
Via
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
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
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