Discussion :

[sparz]

Bonjour à tous.

je suis débutant en "programmation" et je rencontre malheureusement un probleme.

Je souhaite activer et désactiver des boutons (situer dans une userform2) en fonction d'un mot de passe (renseigner dans une textbox1 située sur une userform1).

Est ce possible?
Pouvez vous m'aider?

Merci d'avance

[rvtoulon]

Bonjour, dans l'initialize du userform2:
exemple pour un bouton de commande:

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
8
Private Sub UserForm_Initialize()
'si la valeur du textbox1 est = à mon mot de passe alors
If UserForm1.TextBox1.Value = "Mot de passe" Then
    Me.CommandButton1.Enabled = True 'le bouton est disponible
Else
    Me.CommandButton1.Enabled = False 'lebouton est indisponible
End If
End Sub

[Invité]

Bonjour,


Si vous souhaitez ouvrir le Userform2 sans que le Userform1, il faudra changer la valeur de la propriété ShowModal du Userform1. Mais attention, voir mon message

http://www.developpez.net/forums/d13...box-vba-excel/

Il serait sans doute plus simple d'utiliser un contrôle Multipage de 2 pages dans votre UserForm1. La deuxième page sur laquelle seraient posés vos contrôles pourrait être vue seulement si le mot de passe saisi est correct.

Un exemple ci-joint, de boite de dialogue avec un mot de passe déclaré en constante dans le module standard.

Le Code dans le module standard

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
Option Explicit
 
Public Const MonMotDePasse = "Eric KERGRESSE"
 
Sub MonProgramme()
 
    With UserForm1
 
        .TextBox1 = ""
        .TextBox1.PasswordChar = "*"
        .MultiPage1.Pages(1).Visible = False
 
        .Show
 
    End With
 
 
End Sub

Le code dans le UserForm

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
Private Sub BoutonPassWord_Click()
 
  If TextBox1 = MonMotDePasse And BoutonPassWord.Caption = "Valider le mot de passe" Then
        MultiPage1.Pages(1).Visible = True
        BoutonPassWord.Caption = "Dévalider le mot de passe"
        Exit Sub
  End If
 
  If TextBox1 <> MonMotDePasse Or BoutonPassWord.Caption = "Dévalider le mot de passe" Then
        MultiPage1.Pages(1).Visible = False
        TextBox1 = ""
        BoutonPassWord.Caption = "Valider le mot de passe"
        Exit Sub
  End If
 
End Sub
 
Private Sub BoutonQuitter_Click()
 
 MultiPage1.Pages(1).Visible = False
 Unload UserForm1
 
End Sub

Cordialement.

[sparz]

Je vous remercie pour vos réponse.
Je viens à ce message mon fichier pour vous illustrez ce que je souhaite faire.

En faite, par exemple, lorsque le BE entre son mot de passe je voudrais que le bouton "outil du BE" sois actif et les autres inactifs.

[Invité]

Bonjour,

Ci-dessous le code pour changer l'aspect des boutons en fonction du choix réalisé sur le Userform1. A compléter pour les autres cas.

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
39
40
41
42
43
44
45
46
47
48
49
50
51
52
53
54
55
56
57
58
59
60
61
62
63
64
65
 Private Sub CommandButton1_Click()
If TextBox1 = MdP(Choix) Then
UserForm1.Hide
 
With UserForm4
 
 
  ' Les boutons changent d'aspect et ne reçoivent pas le focus en fonction du mot de passe saisi
    Select Case MdP(Choix)
     Case Is = "be"
 
        With .CommandButton1
            .ForeColor = &H80000012
            .Enabled = True
        End With
 
        With .CommandButton2
            .ForeColor = &H80000011
            .Enabled = False
        End With
 
        With .CommandButton4
            .ForeColor = &H80000011
            .Enabled = False
        End With
 
        With .CommandButton5
            .ForeColor = &H80000011
            .Enabled = False
        End With
 
 
     Case Is = "qualite"
 
        With .CommandButton2
            .ForeColor = &H80000012
            .Enabled = True
        End With
 
        With .CommandButton1
            .ForeColor = &H80000011
            .Enabled = False
        End With
 
        With .CommandButton4
            .ForeColor = H80000011
            .Enabled = False
        End With
 
        With .CommandButton5
            .ForeColor = &H80000011
            .Enabled = False
        End With
 
    End Select
 
    .Show
 
End With
 
  Else
  MsgBox "Mot de passe non valide ! Veuillez recommencer, svp.", vbOKOnly, "ERREUR MOT DE PASSE"
 
End If
End Sub

Cordialement.

[sparz]

Bonjour Erik,

Je te remercie pour ton aide. C'est tout a fait ce que je voulais faire.
Une autre petite question : est ce que tu sais comment je peux faire pour effacer le mot de passe quand je fait "changer d'utilisateur".

Encore merci pour ton aide.

[Invité]

sur le UserForm4

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
8
9
10
11
12
 
Private Sub CommandButton3_click()
 
'Bouton changer d'utilisateur
 
UserForm4.Hide
 With UserForm1
    .TextBox1 = ""
    .Show
 End With
 
End Sub

Cordialement.

[sparz]

je te remercie Eric pour ton aide.