XL 2016 Rendre feuille masquée invisible

[Etoto]

Bonjour,

J'aimerais grâce au VBA avoir un code qui rend la feuille "Administrateur" masquée mais j'aimerai aussi que si quelqu'un clique sur un onglet et sur le bouton "Afficher..." cette feuille ne soit pas visible dans cette fenêtre, mais après l'objectif est quand même de pouvoir récupérer la feuille avec un autre code. Je joint un fichier qui a deux feuilles vides pour après tester les codes.

Je me suis bien exprimé ?

 

[Fred0o]

Bonjour @Etoto

Tu peux proteger le classeur, cela bloquera le masquage / démasquage des feuilles.

 

[Etoto]

Bonjour @Etoto

Tu peux proteger le classeur, cela bloquera le masquage / démasquage des feuilles.

Re,

Ok mais si je protège le classeur, d'autres utilisateurs pourront quand même modifier des cellules et utiliser des listes déroulantes ?

 

[Efgé]

Bonjour le fil, le forum

Sub on_cache()
Sheets("Administrateur").Visible = xlVeryHidden
End Sub

Sub on_Affiche()
Sheets("Administrateur").Visible = True
End Sub

Cordialement

 

[Etoto]

Bonjour le fil, le forum

Sub on_cache()
Sheets("Administrateur").Visible = xlVeryHidden
End Sub

Sub on_Affiche()
Sheets("Administrateur").Visible = True
End Sub

Cordialement

Re,

Pour ton premier sub j'ai l'erreur 438 "Propriété ou méthode non générée par cet objet".

 

[Phil69970]

Bonjour @Etoto, @Fred0o, @Efgé

Le classeur ne doit pas être protégé sinon.....

l'erreur 438 "Propriété ou méthode non générée par cet objet".

@Phil69970

 

[Etoto]

Re,

Le classeur ne doit pas être protégé sinon.....

Je ne l'ai pas protégé pourtant.

 

[GALOUGALOU]

bonjour etoto bonjour le fil bonjour le forum

J'ai déjà du vous poster ce classeur, mais inspirez-vous de son organisation pour masquer une feuille et la rendre invisible. (même principe que efgé) Ce n'est uniquement que par le code vba qu'il est possible de la rendre visible par un collaborateur. Donc l'accès au code vba est protégé par un mot de passe
cordialement
galougalou

 

[Etoto]

Re,

J'ai déjà du vous poster ce classeur, mais inspirez-vous de son organisation pour masquer une feuille et la rendre invisible.

Oui je m'en rappelle d'ailleurs, mais ton VBA que tu utilises me fait aussi l'erreur 438.

 

[Etoto]

Re,

Mais je vais vous transmettre mon véritable fichier alors, parce que dans celui que je vous ai mit le code fonctionne mais pas dans celui que j'ai, c'est toujours pour masquer "Administrateur".

EDIT : Voilà nouvelle version

 

[Efgé]

Re

Re,

Pour ton premier sub j'ai l'erreur 438 "Propriété ou méthode non générée par cet objet".

Avec exemple.

Cordialement

 

[Etoto]

Re

Avec exemple.

Cordialement

Re,

On s'est croisé, regarde mon post #10

 

[GALOUGALOU]

re etoto
le code vba est protégé par un mot de passe donc non visible
cdt

 

[Etoto]

re etoto
le code vba est protégé par un mot de passe donc non visible
cdt

Re,

Ha oui sorry, le code est "Etoto000"

 

[Phil69970]

Re

Et pourtant ...

Je ne l'ai pas protégé pourtant.

Ca marche sur un exemple de fichier ....

@Phil69970