Discussion :

[NEC14]

Bonjour,

A l'ouverture d'un classeur, toutes les feuilles sont cachées sauf 2, la feuille "Intro" et la feuille "Aide".

Dans la feuille "Intro" s'affiche un UF lors de l'ouverture du fichier. Cet UF se nomme "UFDeproteger" dans lequel il y a une zone de saisie "TxtMotDePasse", où l'on peut saisir un mot de passe, et 2 boutons, un qui est nommé "CmbSansPassWord" et l'autre "CmbAvecPassWord".

"CmbSans..." permet de visualiser les feuilles sans possiblité de modifications.
"CmbAvec..." permet les modifications.

Lorsque l'utilisateur clique sur le bouton "CmbSans...." alors un autre UF s'affiche, cet UF se nomme "UFOnglet". Il permet à l'utilisateur de choisir la feuille qu'il souhaite visualiser.

Voici le code associé à ce bouton :

Code :

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

1
2
3
4
5
6
 
Private Sub CmbSansPassWord_Click()
    Unload UFDeproteger
    Load UFOnglets
    UFOnglets.Show
End Sub

Lorsque l'utilisateur clique sur le bouton "CmbAvec...", il lui est demandé de saisir un mot de passe. Si celui-ci est bon alors toutes les feuilles sont rendues visibles et l'UF "UFOnglet" ne doit pas apparaître et c'est là que je rencontre mon problème. En effet quel que soit le bouton su lequel je clique, l'UF apparait.

Que dois-je faire pour ne plus avoir ce soucis ?

Voici le code associé au bouton "CmbAvec..."

Code :

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

1
2
3
4
5
6
7
8
 
Private Sub CmbAvecPassWord_Click()
MotDePasseSaisi = TxtMotDePasse
        If MotDePasseSaisi = MonMotDePasse Then
        Else
            MsgBox ("Mot de passe incorrect !")
        End If
End Sub

Le code associé à la déprotection des feuilles

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
 
Public Const MonMotDePasse = "danlec"
Public MotDePasseSaisi As String
Public Sh As Worksheet
Public ShEnCours As Worksheet
 
Sub DeprotegerLesFeuilles()
    With UFDeproteger
        .TxtMotDePasse = ""
        .TxtMotDePasse.PasswordChar = "*"
        .Show
    End With
 
    If MotDePasseSaisi = MonMotDePasse Then
    Application.ScreenUpdating = False
 
        For Each Sh In Worksheets
            Sh.Activate
                ActiveSheet.Unprotect (MotDePasseSaisi)
                Feuil19.Activate
            Next Sh
            Application.ScreenUpdating = True
            MsgBox ("Toutes les feuilles ont été déprotégées !" & Chr(10) & Chr(10) & "A la fermeture du fichier, les feuilles seront re-protégées.")
 
    End If
End Sub

Merci par avance pour votre aide
René

[pastis.vi]

Salut NEC14,

Ce qui est étonnant c'est que tu n'appelle pas l'UFOnglets lors de la saisie du mdp ...
Tu peux nous envoyer ton fichier pour mieux voir le fonctionnement? (ou trop gros? confidentiel?)

[NEC14]

Justement c'est le but, ne pas appeler UFOnglets lors de la saisie du mot de passe.

Les utilisateurs ayant le mot de passe accèdent à toutes les feuilles et peuvent les modifier.

[pastis.vi]

C'est justement ce que je dis, c'est étonnant que la USF s'affiche alors que tu n'appelle pas l'UFOnglets ...

Code :

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

1
2
3
4
5
6
7
8
Private Sub CmbAvecPassWord_Click()
MotDePasseSaisi = TxtMotDePasse
        If MotDePasseSaisi = MonMotDePasse Then
"IL Y A QUOI ICI??"
        Else
            MsgBox ("Mot de passe incorrect !")
        End If
End Sub

Il y a quoi dans le cas ou le mdp est correct?

[NEC14]

Oups ! Je n'avais pas compris.

Voici le code tel qu'il est :

Code :

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

1
2
3
4
5
6
7
8
9
 
Private Sub CmbAvecPassWord_Click()
MotDePasseSaisi = TxtMotDePasse
        If MotDePasseSaisi = MonMotDePasse Then
            Unload UFDeproteger
        Else
            MsgBox ("Mot de passe incorrect !")
        End If
End Sub

Je rencontre un autre problème, c'est qu'après la saisie du mot de passe, rien ne se passe. Aucune feuille n'est rendue visible alors que cela devrait être le cas. Je ne comprends plus rien.

[pastis.vi]

Alors je pense que si rien ne se passe c'est parce que tu ne fais que de cacher l'USF Deproteger avec

Code :

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

Unload UFDeproteger

Il faut que tu lui indiquer d'afficher toutes les feuilles dans le

Code :

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

If MotDePasseSaisi = MonMotDePasse Then

Ensuite, si l'UFOnglet se lance c'est probablement une histoire de .show et .hide de tes userform.. essaye de faire un

Code :

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

Unload Me

dans ton IF..Then et dis moi ce que ça donne