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