Mot de passe de bouton de macro commande
Résolu/Fermé
A voir également:
- Mot de passe de bouton de macro commande
- Mot de passe administrateur freebox ✓ - Forum Freebox
- Piratage facebook changer mot de passe - Guide
- Ce programme est écrit en python. il construit un mot secret dans une variable mais il ne l'affiche pas. modifiez-le pour qu'il affiche le mot secret. exécutez-le. quel est ce mot secret ? ✓ - Forum Python
- Supprimer mot de passe windows 10 - Guide
- My.canalbox.africa changer mot de passe ✓ - Forum Réception vidéo
3 réponses
pijaku
Messages postés
12263
Date d'inscription
jeudi 15 mai 2008
Statut
Modérateur
Dernière intervention
15 mars 2023
2 712
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
15 mars 2023
2 712
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