XL 2016 Rendre feuille masquée invisible

Etoto · 7 Juillet 2021

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é ?

GALOUGALOU · 7 Juillet 2021

une petite modification dans le code

VB:

Sheets("Administrateur").Visble = 2

par

Code:

Sheets("Administrateur").Visible = xlVeryHidden

faite un essai

Fred0o · 7 Juillet 2021

Bonjour @Etoto

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

Etoto · 7 Juillet 2021

Fred0o à dit:
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é · 7 Juillet 2021

Bonjour le fil, le forum

VB:

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

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

Cordialement

Etoto · 7 Juillet 2021

Efgé à dit:
Bonjour le fil, le forum

VB:

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 · 7 Juillet 2021

Bonjour @Etoto, @Fred0o, @Efgé

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

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

@Phil69970

Etoto · 7 Juillet 2021

Re,

Phil69970 à dit:
Le classeur ne doit pas être protégé sinon.....

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

GALOUGALOU · 7 Juillet 2021

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 · 7 Juillet 2021

Re,

GALOUGALOU à dit:
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 · 7 Juillet 2021

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é · 7 Juillet 2021

Re

Etoto à dit:
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 · 7 Juillet 2021

Efgé à dit:
Re

Avec exemple.

Cordialement

Re,

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

GALOUGALOU · 7 Juillet 2021

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

Etoto · 7 Juillet 2021

GALOUGALOU à dit:
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 · 7 Juillet 2021

Re

Et pourtant ...

Etoto à dit:
Je ne l'ai pas protégé pourtant.

Ca marche sur un exemple de fichier ....

@Phil69970

XL 2016 Rendre feuille masquée invisible

Etoto

XLDnaute Barbatruc

Pièces jointes

GALOUGALOU

Fred0o

XLDnaute Barbatruc

Etoto

XLDnaute Barbatruc

Efgé

XLDnaute Barbatruc

Etoto

XLDnaute Barbatruc

Phil69970

XLDnaute Barbatruc

Etoto

XLDnaute Barbatruc

GALOUGALOU

XLDnaute Accro

Pièces jointes

Etoto

XLDnaute Barbatruc

Etoto

XLDnaute Barbatruc

Pièces jointes

Efgé

XLDnaute Barbatruc

Pièces jointes

Etoto

XLDnaute Barbatruc

GALOUGALOU

XLDnaute Accro

Etoto

XLDnaute Barbatruc

Phil69970

XLDnaute Barbatruc

Pièces jointes

Discussions similaires