Discussion :

[chrnoe]

Bonjour à tous,

Logiciel utilisé: Excel 2007

Je voudrais à l'aide du code suivant pouvoir entrer un deuxième mot de passe diferent de "fgp" (par exemple mmp) et lorsque je rentre celui-ci je voudrais voir un bouton en plus sur mon fichier que les autres ne peuvent pas voir avec le premier mot de passe "fgp"

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
Private Sub Annuler_Click()
    Unload Me
End Sub
 
Private Sub BoutonOk_Click()
    'Ok = Environ("USERNAME") => "Ton nom"
     'tu peux remplacer la ligne suivante par la précédente
    Ok = Me.Nom.Text = "marc"
    If Not Ok Then Unload Logon
    Ok = Ok And Me.Passe = "fgp"
    If Ok Then
        AfficherLesFeuilles
        Unload Me
       Else
        ThisWorkbook.Close False
    End If
End Sub
 
Private Sub UserForm_Activate()
    Application.EnableEvents = True
    Me.Passe.PasswordChar = "*"
End Sub
 
Sub AfficherLesFeuilles()
    Windows("Acceuil_BE.xls").Visible = True
End Sub

Est-ce possible?

Merci d'avance.

[ouskel'n'or]

Pour faire apparaître ou disparaître un bouton sur une feuille de calculs, utilise la propriété Visible du bouton
Dans une macro placée dans un module standard :

Code :

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

1
2
    Worksheets("feuil1").Shapes("CommandButton1").Visible = _
    Not Worksheets("feuil1").Shapes("CommandButton1").Visible

Avec ce code, un coup tu l' vois, un coup tu l'vois pas (le bouton CommandButton1)

[chrnoe]

Bonjour ouskel'n'or

J'ai essayé de faire ce code dans un module est ce qu'il peut fonctionner?

Code :

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

1
2
3
4
5
6
7
8
9
Public Ok As Boolean
Sub ouvrir()
Logon.Show
if Me.Passe = "fgp"
Worksheets("feuil1").Shapes("CommandButton1").Visible = _
if Me.Passe = "mmp"
Not Worksheets("feuil1").Shapes("CommandButton1").Visible
If Not Ok Then ThisWorkbook.Close False
End Sub

ou c'est un bazard?

Merci d'avance.

[ouskel'n'or]

J'ai essayé de faire ce code dans un module est ce qu'il peut fonctionner?
ou c'est un bazard?

C'est le bazard !

Dans le module standard

Code :

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

1
2
3
Sub ouvrir()
Logon.Show
End Sub

Dans l'userform, tu as bien un bouton ok ? Alors derrière le click du bouton, tu ajoutes cette ligne au code qui valide le mot de passe.

Code :

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

1
2
3
4
Sub CommandButtonOk_Click()
    'Ton code + La ligne suivante
    Worksheets("feuil1").Shapes("CommandButton1").Visible = Me.Passe = "mmp"
End sub

Avec ce code,
si le password est mmp, Me.Passe = "mmp" => Vrai => visible = True
si le password est <> mmp, Me.Passe = "mmp" => Faux => visible = False
C'est suffisant
Bonne journée

[chrnoe]

Rebonjour,

Ok c'est bon cela fonctionne.

Par contre est ce que dans la parenthèse je peut mettre plusieurs bouton?

Merci d'avance

[ouskel'n'or]

plusieurs bouton ? Non ! Et c'est logique, un shape correpondant à un bouton.
Par contre, tu peux faire une boucle pour affecter le même état à tous les boutons
Je reprends le bouton situé dans le Logon

Code :

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

1
2
3
4
5
6
7
Sub CommandButtonOk_Click()
Dim sh as Shape
    'Ton code + Les lignes suivantes
    For each sh in Worksheets("feuil1").Shapes
        sh.Visible = Me.Passe = "mmp"
    Next
End sub

Tu testes ?