protection par mot de passe empêcher la lecture d'une feuille

**manuseverine** · 30/08/2010, 16h00

Bonjour,

Dans la FAQ et dans certains tutoriels j'ai bien trouvé comment faire pour protéger par mot de passe un classeur ou une feuil, mais on peut quand-même ouvrir la feuil. Elle est protéger en écriture seulement. Moi je cherche comment faire pour qu'une feuil laisse bien paraître son onglet mais que lorsque l'on clique dessus, la feuil demande un mot de passe avant d'afficher la moindre info la concernant.

Est-ce possible ?

**Chipss** · 30/08/2010, 16h46

Je sais pas trop ce que tu veux mais en gros pour protéger une feuille c'est:

Code :

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

1
2
 
Sheets("NOMDETAFEUILLE").Protect=TRue

ou alors manuellement dans Outils >> Protection >> Proteger la feuille

**Aquarium** · 30/08/2010, 16h52

Salut,

Sinon sans passer par VBA c'est Outil -> Option -> Sécurité -> Mot de passe pour la lecture

Et là la personne ne peut rien voir du tout du classeur...

**manuseverine** · 30/08/2010, 16h54

c'est ma faute apparemment je me suis encore mal expliqué. Je réessaye :

Quand le classeur est ouvert, on voit tous les onglets de son classeur et quand on clique dessus on change de feuille et donc on affiche le contenu de celle-ci. Par exemple qie je clique sur fournisseur, j'aurais donc la feuille fournisseur... jusque là tout va bien.

Mais moi je voudrais faire une feuille avec les remises et donc je ne veux pas que tous le monde puisse ouvrir cette feuille et voir toutes nos conditions fournisseurs et nos remises. Seul les personnes autorisées pourront la consulter cette feuille.

Donc si je protège la feuille, tous simplement en allant dans Révision, Protéger la feuille, ça me protègera la feuille uniquement pour que les gens ne puisse saisir à l'intérieur de la feuille ou changer sa mise en forme. Mais ils pourront la consulter quand-même et voir toutes les remises fournisseurs, ce qui ne me sert en fait à rien.

Je voudrais que lorsque quelqu'un veut cliquer sur l'onglet "fournisseur", ça n'ouvre pas la feuil à moins que l'on ne tape un mot de passe.

Est-ce que vous m'avez comprise ?

Merci beaucoup

**JeanSairien** · 30/08/2010, 17h01

Bonjour,

Dans ce cas là, il faut ruser et utiliser une condition sur sheets("Nom").activate.
Dans ta condition, tu fait afficher une inputbox avec la demande d'un mot de passe qui sera définit dans ton code VBA. Si le mot de passe correspond alors il ne se passe rien, sinon tu fait afficher la feuille.

Si la feuille s'affiche puis affiche la inputbox, cache le classeur (.hide) puis réaffiche le sur la feuille correspondant au mot de passe.

Sinon plus simplement je ne voit pas comment faire.

**Aquarium** · 30/08/2010, 17h04

et pourquoi ne pas cacher cet onglet ?

seules les personnes le connaissant iraient le chercher... sinon tu peux protéger l'accès à VBA par un mot de passe, comme ça il sera impossible d'y accéder de cette manière...

Oups... une réponse plus claire a été postée avant^^

**fring** · 30/08/2010, 19h23

Pour info, il y a moyen en VBA de masquer une feuille en mode VeryHidden ce qui ne permet pas de pouvoir la rendre visible manuellement via le menu "Afficher feuille" (elle n'apparaît pas parmi les feuilles masquées)

Code :

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

Sheets("MaFeuille").Visible = xlVeryHidden

Et pour la rendre à nouveau visible il suffit de faire

Code :

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

Sheets("MaFeuille").Visible = True

Avec ça on peut imaginer toutes sortes de fioritures, mot de passe et touti quanti

**manuseverine** · 30/08/2010, 21h42

merci beaucoup Fring,

donc je met

Code :

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

Sheets("MaFeuille").Visible = xlVeryHidden

dans ma feuille. Mais ma collègue qui pourra y aller ne connait absolument rien au VBA, elle ne sait pas ce que c'est. (encore plus nul que moi ça existe, eh oui

Elle ne pourra donc pas aller remplacer ce code par :

Code :

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

Sheets("MaFeuille").Visible = True

donc comment faire ?

As-tu au moins une piste stp

Merci

**78chris** · 30/08/2010, 21h49

Bonjour

Une solution simple : masquer la feuille et protéger le classeur.

**manuseverine** · 30/08/2010, 21h55

non je ne peux pas faire ça car parfois on montre certaines choses à des clients, d'autres feuilles non sensibles et je ne voudrais pas que par mégarde hop on clique sur la mauvaise feuille.

Je sais faudrais vraiment être maladroit mais c'est trop important.
En plus apparemment, selon Fring il existe une solution... je suis en train de chercher dans la FAQ et les tutoriels... je vous tiens au courant si j'y arrive

**fring** · 30/08/2010, 22h34

Une solution éventuelle :

à la fermeture du classeur, on masque la feuille en question

Code :

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

1
2
3
Private Sub Workbook_BeforeClose(Cancel As Boolean)
Sheets("LaFeuille").Visible = xlVeryHidden
End Sub

à l'ouverture du classeur on demande un mdp pour éventuellement passer en mode administrateur et avoir accès à toutes les 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
Private Sub Workbook_Open()
Dim mdp As String, testmdp As String
 
mdp = "motdepasse"
 
reco:
testmdp = InputBox("Introduisez le mdp pour passer en mode administrateur")
 
If testmdp = mdp Then
    Sheets("LaFeuille").Visible = True
ElseIf testmdp <> "" Then
    MsgBox "Mot de passe erroné" & Chr(10) & "Réessayez pour passer en mode Administrateur" & Chr(10) & "ou laissez vide pour rester en mode normal"
    GoTo reco
End If
 
End Sub

Pour éviter d'avoir cette demande de mdp à chaque ouverture du classeur, on peut aussi l'activer via un bouton par exemple, ou simplement mettre le code dans un module et ajouter un raccourci clavier à la macro (Ctrl+M) ce qui permettrait de pouvoir passer en mode administrateur même si le classeur est déjà ouvert.

Ne pas oublier de protéger également le project VBA avec un mdp vu que celui-ci est clairement indiqué dans le code tout en gardant à l'esprit qu'aucune protection est infaillible...

**manuseverine** · 31/08/2010, 10h23

Je te remercie beaucoup, c'est génial ce code. Je vais m'en servir dans plusieurs de mes classeurs. Je me suis servis de ton idée de bouton.

Juste une question. Est-ce qu'on peut utiliser ce code pour cacher certaines colonnes.

Je m'explique: au lieu de cacher une feuille entière on cacherait certaines colonnes qui s'afficherait si on tape le mot de passe via un bouton comme tu me l'as indiqué précédemment ?

Code :

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

Sheets("Clients").Visible = True.Column("G").Hidden = FalsexlVeryHidden

et

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
Private Sub CommandButton3_Click()
Dim mdp As String, testmdp As String
 
mdp = "mot de passe"
 
reco:
testmdp = InputBox("Introduisez le mot de passe pour passer en mode administrateur")
 
If testmdp = mdp Then
    Sheets("Clients").Visible = True
    Columns("G").Visible = True
ElseIf testmdp <> "" Then
    MsgBox "Mot de passe erroné" & Chr(10) & "Réessayez pour passer en mode Administrateur" & Chr(10) & "ou laissez vide pour rester en mode normal"
    GoTo reco
End If
End Sub

mais ça ne marche pas. Je suppose que je me suis trompé quelque part ???

**fring** · 31/08/2010, 15h15

Envoyé par manuseverine

Juste une question. Est-ce qu'on peut utiliser ce code pour cacher certaines colonnes.

Oui mais à ce moment là il faut procéder différemment et la propriété VeryHidden ne fonctionne que pour les onglets, pas pour les colonnes ou les lignes.

A la fermeture du fichier on masque la colonne et on protège la feuille

Code :

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

1
2
3
4
Private Sub Workbook_BeforeClose(Cancel As Boolean)
Sheets("Clients").Columns("G").Hidden = True
Sheets("Clients").Protect Password:="motdepasse"
End Sub

A l'ouverture du fichier, si le mdp est correct on déverrouille la feuille et on affiche la colonne

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
Private Sub Workbook_Open()
Dim mdp As String, testmdp As String
 
mdp = "motdepasse"
 
reco:
testmdp = InputBox("Introduisez le mdp pour passer en mode administrateur")
 
If testmdp = mdp Then
    Sheets("Clients").Unprotect Password:=mdp
    Sheets("Clients").Columns("G").Hidden = False
ElseIf testmdp <> "" Then
    MsgBox "Mot de passe erroné" & Chr(10) & "Réessayez pour passer en mode Administrateur" & Chr(10) & "ou laissez vide pour rester en mode normal"
    GoTo reco
End If
 
End Sub

**manuseverine** · 31/08/2010, 16h25

merci beaucoup, c'est génial, ça fonctionne. Je ne pensais pas que c'était possible du tout.

Je suis passé par un bouton pour voir la colonne par mot de passe.

Par contre je me demandais : une fois qu'on est en mode Administrateur, on voit tout pas de soucis mais est-il possible de créer un bouton qui quand on clique dessus on repasse en mode normal ou faut-il fermer le classeur et le rouvrir ?

Merci beaucoup pour tous ces conseils

**Yoyo57** · 31/08/2010, 16h42

Bonjour Manuseverine,

Il suffit alors de dupliquer le code de la fonction Workbook_BeforeClose dans le code associé à ton bouton :

Code :

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

1
2
3
4
Private Sub CommandButton1_Click()
    Sheets("Clients").Columns("G").Hidden = True
    Sheets("Clients").Protect Password:="motdepasse"
End Sub

Et tu repasses en mode normal...

**manuseverine** · 31/08/2010, 16h49

évidemment suis-je bête ...

merci beaucoup à tous les 2

protection par mot de passe empêcher la lecture d'une feuille [XL-2007]

Macros et VBA Excel

Discussions similaires

Partager

Partager