Ceci est une page optimisée pour les mobiles. Cliquez sur ce texte pour afficher la vraie page.

XL 2016 Rendre feuille masquée invisible

Etoto

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

Pièces jointes

  • Feuille invisible.xlsx
    8.1 KB · Affichages: 15

GALOUGALOU

XLDnaute Accro
une petite modification dans le code
VB:
Sheets("Administrateur").Visble = 2
par
Code:
Sheets("Administrateur").Visible = xlVeryHidden
faite un essai
 

Pièces jointes

  • Copie de Conversion unités essai.xlsm
    146.6 KB · Affichages: 4

GALOUGALOU

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

XLDnaute Barbatruc
Re,

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

 

Efgé

XLDnaute Barbatruc
Un essai avec fonction
VB:
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
 

Discussions similaires

Réponses
5
Affichages
718
Compte Supprimé 979
C
Réponses
3
Affichages
205
Les cookies sont requis pour utiliser ce site. Vous devez les accepter pour continuer à utiliser le site. En savoir plus…