Mot de passe de bouton de macro commande
Résolu/Fermé
A voir également:
- Mot de passe de bouton de macro commande
- Piratage facebook changer mot de passe - Guide
- Invite de commande - Guide
- Voir mot de passe wifi android - Guide
- Mot de passe administrateur - Guide
- Mettre un mot de passe sur un dossier - Guide
3 réponses
pijaku
Messages postés
12263
Date d'inscription
jeudi 15 mai 2008
Statut
Modérateur
Dernière intervention
4 janvier 2024
2 743
12 févr. 2010 à 14:19
12 févr. 2010 à 14:19
Salut,
Dans le code de ton commandbutton "click" places ceci : remplace toto par le mot de passe que tu souhaites...
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
pijaku
Messages postés
12263
Date d'inscription
jeudi 15 mai 2008
Statut
Modérateur
Dernière intervention
4 janvier 2024
2 743
12 févr. 2010 à 14:32
12 févr. 2010 à 14:32
tout ce que tu veux, puisque c'est demandé gentiment :
Avec trois essais :
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
