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

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?

Robert

XLDnaute Barbatruc
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

XLDnaute Barbatruc
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

  • Protection.xlsm
    23 KB · Affichages: 11

Lazz

XLDnaute Junior
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

  • essaie mdp salaires .xlsm
    13.1 KB · Affichages: 9

Hasco

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

bhbh

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

Lazz

XLDnaute Junior
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 :)
 

Membres actuellement en ligne

Aucun membre en ligne actuellement.

Statistiques des forums

Discussions
303 509
Messages
2 011 714
Membres
219 063
dernier inscrit
gnn21