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

[loic_nl]

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.

 

[kjin]

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

Bonsoir,
Peut être comme ceci (ici Mdp = Toto)

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

 

[loic_nl]

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

Merci beaucoup cela fonctionne parfaitement.

A+
Loic.