2 boutons, 1 USF mot de passe

[natbru]

Bonjour à tous,

En cherchant sur le forum, j'ai trouvé un moyen de mettre un mot de passe avant l'exécution d'une macro.

Maintenant, je cherche un moyen pour se servir du même USF mot de passe pour deux boutons qui exécute des macros différentes.

Pour le moment le code du USF correspond à une des deux macros.

J'espère avoir été assez explicite.

Voir le fichier ci-joint.

Merci de votre aide. [file name=test_mot_de_passe_2_boutons.zip size=14404]http://www.excel-downloads.com/components/com_simpleboard/uploaded/files/test_mot_de_passe_2_boutons.zip[/file]

Attention : création d'une barre d'outil en Workbook_open, supprimer en Before_close

Message édité par: NATBRU, à: 13/01/2006 19:40

 

[_Thierry]

Bonsoir Natacha, le Forum


Grrrrrrrrrrrrrrrr !!!

Ce n'est pas bien de mettre un fichier exemple avec une génération de Barre d'Outils sans prévenir en Workbook_open...

Sinon et bien passe une Variable Publique qui sera reconnue dans le Code du UserForm...

Par Exemple en Top d'un Module Standard (Module1) :

Public SourceBouton As String


Dans le Code du Private Module du UserForm

Private Sub CommandButton1_Click()
    If TextBox1 = 'tata' Then
        Select Case SourceBouton
        Case 'BoutonDeLaMacro1'
            Macro1
        Case 'BoutonDeLaMacro2'
            Macro2
        Case 'BoutonDeLaMacro3'
            Macro3
        End Select
               
        Unload UserForm1
       
    Else: MsgBox 'Votre code n'est pas valide'
       
        Unload UserForm1
    End If

End Sub

Evidemment tu lanceras Le UserForm1.Show en initilisant la Variable comme il faut...

Sub Supprimer_Affaire()
SourceBouton = 'BoutonDeLaMacro2'
UserForm1.Show
End Sub

Et évidemment les Macro1, Macro2 etc existent dans un Module Standard

Bonne Soirée et week end
[ol]@+Thierry[/ol]

 

[dg62]

Bonsoir natbru

tu transmets le mot de passe en paramètre.

sub motdepasse(mdp as string)

if textbox1 = mdp then

...

End sub

 

[natbru]

Merci beaucoup Thierry pour ta réponse expresse.

Désolée pour la barre d'outil, je ne n'ai pas du tout pensé à prévenir (c'est noté pour le prochain coup), cela dit, tu constateras qu'elle est supprimée en Before_close. Ni vu ni connu...

En tout cas, merci encore.

A bientôt.

 

[natbru]

Bonsoir dg62,

désolé je t'avais pas vu mais je ne comprend pas bien la manip. que tu me conseilles.

 

[dg62]

re


je pensais que tu avais des mdp différents pour tes macros.

 

[natbru]

Re,

Ok j'ai compris ton idée.

Effectivement, le mot de passe est le même.

Bonne soirée.