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

Lazz · 5 Octobre 2022

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...

Cousinhub · 6 Octobre 2022

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 :

Ce n'est pas la première option?

Robert · 5 Octobre 2022

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

Hasco · 5 Octobre 2022

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 ]

Lazz · 6 Octobre 2022

Hasco à dit:
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...

Robert · 6 Octobre 2022

Bonjour le fil, bonjour le forum,

Ton fichier fonctionne correctement chez moi...

Hasco · 6 Octobre 2022

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

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.

Lazz · 6 Octobre 2022

Truc de fou @Hasco !
Je n'ai pas du tout cette propriétés dans mon fichier !!

Je ne comprends pas

Cousinhub · 6 Octobre 2022

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 :

Ce n'est pas la première option?

Lazz · 6 Octobre 2022

Hello @bhbh
J'ai essayer avec toutes les options, Pour l'instant si je suis sur la première.
Ya-t-il un lien ?

Merci

Cousinhub · 6 Octobre 2022

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 :

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

Lazz · 6 Octobre 2022

bhbh à dit:
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

Hasco · 6 Octobre 2022

Re bonjour,

Les macros n'étaient donc pas activées (post#3) !

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

Lazz

XLDnaute Junior

Cousinhub

Robert

XLDnaute Barbatruc

Hasco

XLDnaute Barbatruc

Pièces jointes

Lazz

XLDnaute Junior

Pièces jointes

Robert

XLDnaute Barbatruc

Hasco

XLDnaute Barbatruc

Lazz

XLDnaute Junior

Cousinhub

XLDnaute Barbatruc

Lazz

XLDnaute Junior

Cousinhub

XLDnaute Barbatruc

Lazz

XLDnaute Junior

Hasco

XLDnaute Barbatruc

Discussions similaires