Mot de passe de bouton de macro commande Résolu

Question

Bonjour,
Je souhaiterai créer un bouton de commande sur lequel est rattaché une macro qui protège la feuille.
mais je voudrais également que ce bouton demande d'abord un mot de passe
Quelqu'un voit comment faire?

Merci

Cordialement

pijaku · Accepted Answer

Salut,
Dans le code de ton commandbutton "click" places ceci : remplace toto par le mot de passe que tu souhaites...

Private Sub CommandButton1_Click()
Dim reponse As String
reponse = InputBox("Saisir le Mot de Passe", "Password")
If reponse <> "toto" Then Exit Sub
'ici mets ta procédure de protection de feuille...
End Sub

remthesaiyan · Answer

merci pour ta réponse ça marche
et peut on rajouter un ligne de code qui affiche un message d'erreur quand le mot de passe est faux?

pijaku · Answer

tout ce que tu veux, puisque c'est demandé gentiment :

Private Sub CommandButton1_Click()
Dim reponse As String
reponse = InputBox("Saisir le Mot de Passe", "Password")
If reponse <> "toto" Then 
MsgBox "Mot de passe erroné"
Exit Sub
End If
'ici mets ta procédure de protection de feuille...
End Sub

Avec trois essais :

Private Sub CommandButton1_Click()
Dim reponse As String
Dim cpt As Integer
suivant:
reponse = InputBox("Saisir le Mot de Passe", "Password")
If reponse <> "toto" Then
MsgBox "mot de passe erroné"
End If
If cpt <> 2 Then
cpt = cpt + 1
GoTo suivant
Else
MsgBox "Vous avez tenté 3 fois votre chance... PERDU!!"
Exit Sub
End If
MsgBox reponse
End Sub

Mot de passe de bouton de macro commande

3 réponses

Discussions similaires

Newsletters