Ceci est une page optimisée pour les mobiles. Cliquez sur ce texte pour afficher la vraie page.

Mot de passe associé à un bouton de commande en VBA

Créer une discussion
  • Initiateur de la discussion Initiateur de la discussion loic_nl
  • Date de début Date de début

Boostez vos compétences Excel avec notre communauté !

Rejoignez Excel Downloads, le rendez-vous des passionnés où l'entraide fait la force. Apprenez, échangez, progressez – et tout ça gratuitement ! 👉 Inscrivez-vous maintenant !

S'inscrire
L

loic_nl

Guest
Bonjour, je cherche à associé un mot de passe à un bouton de commande(CommandButton) en VBA. Afin de limiter l'utilisation de ce bouton de commande.
Quand on clique sur le bouton excel demande un mot de passe.
Ce bouton sert à ouvrir un classeur excel.
Je suis à la recherche de la ligne de code.


Private Sub ButtonModificar_Click()
'Consultacion de los archivos en funccion de lo que queremos y cierre UserForm.

If Program_de_auditorias_x_niveles.Value = True Then
Workbooks.Open Filename:= _
"C:\Documents and Settings\IndLinamar\PRUEBA Macro\PRUEBA_archivos.xls"
Sheets("PROGRAMA").Select
Unload Opciones_de_consulta101
End If


If Tasa_de_calidad_x_maq.Value = True Then
Workbooks.Open Filename:= _
"C:\Documents and Settings\IndLinamar\PRUEBA Macro\PRUEBA_archivos.xls"
Sheets("TQXMAQUINA").Select
Unload Opciones_de_consulta101
End If


If Tasa_de_calidad_x_mes.Value = True Then
Workbooks.Open Filename:= _
"C:\Documents and Settings\IndLinamar\PRUEBA Macro\PRUEBA_archivos.xls"
Sheets("T. CAL.XMES").Select
Unload Opciones_de_consulta101
End If



End Sub



Merci pour votre aide.
Cordialement Loic.
 
Trier par date Trier par votes
Re : Mot de passe associé à un bouton de commande en VBA

Bonsoir,
Peut être comme ceci (ici Mdp = Toto)
Code: 
Private Sub ButtonModificar_Click()
'Consultacion de los archivos en funccion de lo que queremos y cierre UserForm.
Mdp = Application.InputBox("Mot de passe", "Entrer le mdp")
If Mdp <> "Toto" Then
    MsgBox "Mdp incorrect", vbCritical
Exit Sub
End If

'la suite de la macro

End Sub
A+
kjin
 
Vote positif 0 Vote négatif
Identifiez-vous ou inscrivez-vous pour participer.
Rejoins nos membres "Supporter XLD" et booste ton expérience Excel !
- Navigue sans publicité
- Accède à Cléa, notre assistante IA experte Excel... et pas que...
- Profite de fonctionnalités exclusives
Ton soutien permet à Excel Downloads de rester 100% gratuit et de continuer à rassembler les passionnés d'Excel.
Je deviens Supporter XLD
Assurez vous de marquer un message comme solution pour une meilleure transparence.

Discussions similaires

  • Question Question
XL 2021 La méthode union de l'objet '_Global' a échoué
Réponses
10
Affichages
298
sousou
  • Résolu(e)
XL 2021 Erreur l'indice n'appartient pas à la sélection
Réponses
2
Affichages
161
treza88
N
  • Question Question
XL 2013 Utilisé deux CommandButton_Click dans la même feuil
Réponses
4
Affichages
420
patricktoulon
T
  • Résolu(e)
Microsoft 365 VBA Exporter une sélection de plages nommées au format PDF
Réponses
12
Affichages
1 K
tnion
T
  • Résolu(e)
Microsoft 365 VBA : Commentaire en B, C, D après clic droit dans n'importe quelle cellule de cette plage ?
2
Réponses
15
Affichages
797
Nicolas JACQUIN
L
  • Question Question
XL 2016 Enregistrer une zone dans un PDF
Réponses
2
Affichages
378
patricktoulon
N
  • Résolu(e)
Microsoft 365 Aide pour terminer un code Vba Excel
2
Réponses
23
Affichages
2 K
job75
D
  • Question Question
Microsoft 365 macro showAllData et mot de passe
Réponses
13
Affichages
625
Daniel200666
D
P
  • Question Question
XL 2021 Ajout/adaptation de code VBA sur feuille qui en contient déjà
Réponses
3
Affichages
423
Pierreavecunp
P
N
  • Résolu(e)
XL 2021 comment faire recherche dans une colonne et ligne
Réponses
5
Affichages
715
job75
B
  • Question Question
XL 2019 Dans une macro de démarrage de fichier masquer le code par des Astérix ou point
Réponses
3
Affichages
524
sylvanu
C
  • Question Question
XL 2016 accès feuilles masquées par bouton
2
Réponses
26
Affichages
1 K
vgendron
  • Résolu(e)
XL 2016 En VBA, Automatiser la réponse en fonction de l'état d'une cellule.
Réponses
7
Affichages
840
piga25
A
  • Question Question
Autres Protégé un fichier csv par mot de passe
2
Réponses
16
Affichages
1 K
job75
H
  • Résolu(e)
XL 2016 Copier cellule dans un autre onglets
2
Réponses
16
Affichages
986
Phil69970
M
  • Question Question
XL 2013 Bouton commande ne fonctionne pas
Réponses
7
Affichages
637
midovic
M
K
  • Question Question
Microsoft 365 création mot passe classique avec un code
Réponses
1
Affichages
451
Gégé-45550
G
  • Résolu(e)
XL 2010 Obliger la validation d'un bouton d'option.
Réponses
8
Affichages
572
gillesda
G
L
  • Question Question
Microsoft 365 Faire agir une macro en fonction de l'emplacement du bouton
Réponses
2
Affichages
647
AtTheOne
W
  • Question Question
XL 2019 Transformer des lignes de codes pour pratiquer Tablo à 4 colonnes et 40 lignes
2 3
Réponses
40
Affichages
2 K
Webperegrino
W
Menu
Connexion
S'inscrire
Les cookies sont requis pour utiliser ce site. Vous devez les accepter pour continuer à utiliser le site. En savoir plus…