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

 

[Etoto]

Re,

Ca marche sur un exemple de fichier ....

Oui mais l'erreur de ton fichier est l'erreur 1004 le mienne est l'erreur 438

 

[GALOUGALOU]

une petite modification dans le code

Sheets("Administrateur").Visble = 2

par

Sheets("Administrateur").Visible = xlVeryHidden

faite un essai

 

[Etoto]

une petite modification dans le code
faite un essai

Re,

Cela fonctionne merci beaucoup, comment as-tu fait ? J'ai fait le même VBA que toi pourtant ?

 

[Etoto]

Re,

Et vu que ce fichier est une ressource à moi, je vais noter chacun de vos pseudos dans le fichier avec votre participation, merci encore.

 

[GALOUGALOU]

re
je n'ai pas une très grande connaissance, je serais donc incapable d'expliquer exactement la procédure, j'ai juste fait la modification comme indiqué dans le fil 17, car il m'a semblé que le code initial ne fonctionnait pas.
cordialement

 

[Etoto]

re
je n'ai pas une très grande connaissance, je serais donc incapable d'expliquer exactement la procédure, j'ai juste fait la modification comme indiqué dans le fil 17, car il m'a semblé que le code initial ne fonctionnait pas.
cordialement

Re,

Ok merci, je vais bientôt sortir une MAJ de ma ressource avec vos participations, voici le lien pour l'a trouver :

Convertisseur de 40 types d'unités

Vous avez toutes les unités de longueurs dans ce classeur. Choisissez le type d'unité, l'unité de départ, le nombre à convertir et vos avez une liste de réponse pour chaque tableau. Vous pouvez même choisir les arrondis. Petit aperçu des unités...

www.excel-downloads.com

 

[Efgé]

Un essai avec fonction

Option Explicit
Sub Toto()
'1 = affichage, 2 = Masquage
On_Decide (1)
End Sub
Sub On_Decide(Num As Integer)
ThisWorkbook.Protect Structure:=False, Windows:=False
Sheets("Administrateur").Visible = Num
ThisWorkbook.Protect Structure:=True, Windows:=False
End Sub

Cordialement

 

[GALOUGALOU]

re
merci etoto
malgré tout ne pas oublier de modifier le mot de passe dans le code vba, ou alors supprimer dans ce fil toutes les informations confidentielles. (classeur et information)
cordialement

 

[Etoto]

re
merci etoto
malgré tout ne pas oublier de modifier le mot de passe dans le code vba, ou alors supprimer dans ce fil toutes les informations confidentielles. (classeur et information)
cordialement

Re,

Oui, oui logique mais merci du rappel.