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.
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.