XL 2016 protégé un onglets par un mot de passe

Boostez vos compétences Excel avec notre communauté !

Rejoignez Excel Downloads, le rendez-vous des passionnés où l'entraide fait la force. Apprenez, échangez, progressez – et tout ça gratuitement ! 👉 Inscrivez-vous maintenant !

Lazz

XLDnaute Junior
Bonjour à tous !

Un petit problème avec ma macro...
J'ai un fichier avec plusieurs onglets cependant j'aimerai que l'onglet salaire soit masquer (qu'on ne puisse pas le voir) sauf si on rentre un mot de passe.
J'avais cette macro qui fonctionnait il y a quelques temps :
Sub Worksheet_Change(ByVal Target As Range)
If Not Application.Intersect(Target, Range("A1")) Is Nothing Then
If [A1] = 123 Then
If Worksheets("SALAIRES_INTERNES").Visible = True Then
Worksheets("SALAIRES_INTERNES").Visible = xlSheetVeryHidden
[A1] = ""
Else
Worksheets("SALAIRES_INTERNES").Visible = True
[A1] = ""
End If
End If
End If
End Sub

Et maintenant, plus rien 🙁
Quand je rentre le mot de passe dans la cellule A1, rien ne se passe.
Avez-vous une solution ?

Ps : s'il vous plaît, pas de commentaires sur le fait que la protection d'un onglet soit un leurre...😉
 
Solution
Bonjour,
Hello @Hasco et @Robert 🙂
@Lazz
Par hasard, quelles sont les options des macros sur ton PC?
Fichier/Option/Centre de gestion.../Paramètres du Centre..../Paramètres des macros :

1665058147899.png

Ce n'est pas la première option?
Bonjour Lazz, bonjour le forum,

Peut-être comme ça :

VB:
Sub Worksheet_Change(ByVal Target As Range)
If Target.Address = "$A$1" Then
    Application.EnableEvents = False
    Worksheets("SALAIRES_INTERNES").Visible = IIf(Target.Value = "123", xlSheetVisible, xlSheetVeryHidden)
    Target.Value = ""
    Application.EnableEvents = True
End If
End Sub
 
Bonjour,

Votre macro fonctionne très bien dans le classeur ci-joint.
Entre 123 dans A1 de feuil2 validez et hop !


Euh, la prochaine fois, faites nous un classeur exemple, reproduisant le problème qu'on soit pas nous-même obligé de le créer. Vous n'êtes pas le seul. et s'il nous fallait créer les exemples pour tous, on en finirait pas.
D'autant que pendant la réalisation de votre exemple, vous pouvez comprendre ce qui fait erreur dans l'original.

P.S. êtes vous certains que les macros sont activées dans votre classeur. Et que la macro est dans le module d'une feuille.

Cordialement

[Hello @Robert ]
 

Pièces jointes

Bonjour,

Votre macro fonctionne très bien dans le classeur ci-joint.
Entre 123 dans A1 de feuil2 validez et hop !


Euh, la prochaine fois, faites nous un classeur exemple, reproduisant le problème qu'on soit pas nous-même obligé de le créer. Vous n'êtes pas le seul. et s'il nous fallait créer les exemples pour tous, on en finirait pas.
D'autant que pendant la réalisation de votre exemple, vous pouvez comprendre ce qui fait erreur dans l'original.

P.S. êtes vous certains que les macros sont activées dans votre classeur. Et que la macro est dans le module d'une feuille.

Cordialement

[Hello @Robert ]
Hello @Hasco

Même votre fichier ne fonctionne pas sur mon PC. J'ai essayer de changer les paramètres des macros (activé/désactivé) mais je pense que ça vient de là car la macros fonctionnait très bien il y a quelques semaines....

Je ne comprends pas ce que je peux faire pour que cela refonctionne.
Je vous envoie un fichier qui ne fonctionne pas pour moi. Si ça fonctionne pour vous c'est que ça vient de mon côté mercii !

PS : je ferais attention de créer mes propres classeurs pour les exemples, merci...
 

Pièces jointes

Oui,

Alors ça ne vient pas de là mais de l'origine du fichier (je m'en doutais et c'est pour ça que je vous en ai donné un qui fonctionne).
Fermez le fichier s'il est ouvert,
Localisez dans l'explorateur de fichier windows,
Click-droit, propriétés
1665056669154.png

En bas de la fenêtre à droite vous devriez avoir une case 'débloquer', veillez à cocher cette case puis appliquer et fermer la fenêtre.

Réouvrez le fichier dans excel.
 
Re-,
Si tu as effectivement sélectionné la première, toutes les macros sont automatiquement désactivées, et personne ne te prévient... 😵‍💫
Essaie en sélectionnant la 2ème, ferme le fichier, et ouvre-le de nouveau.
Tu auras alors un msg d'avertissement :
1665058882612.png


Tu actives le contenu, et tu fais tes tests...
 
Re-,
Si tu as effectivement sélectionné la première, toutes les macros sont automatiquement désactivées, et personne ne te prévient... 😵‍💫
Essaie en sélectionnant la 2ème, ferme le fichier, et ouvre-le de nouveau.
Tu auras alors un msg d'avertissement :
Regarde la pièce jointe 1151506

Tu actives le contenu, et tu fais tes tests...

Ah yess Effectivement cela fonctionne ! merci beaucoup !! J'espère que ça ne replantera pas

A bientôt 🙂
 
- Navigue sans publicité
- Accède à Cléa, notre assistante IA experte Excel... et pas que...
- Profite de fonctionnalités exclusives
Ton soutien permet à Excel Downloads de rester 100% gratuit et de continuer à rassembler les passionnés d'Excel.
Je deviens Supporter XLD

Discussions similaires

Réponses
32
Affichages
1 K
Réponses
5
Affichages
735
Compte Supprimé 979
C
Réponses
14
Affichages
337
Retour