[VBA] cacher des feuilles

  • Initiateur de la discussion Initiateur de la discussion Flop
  • Date de début Date de début

Boostez vos compétences Excel avec notre communauté !

Rejoignez Excel Downloads, le rendez-vous des passionnés où l'entraide fait la force. Apprenez, échangez, progressez – et tout ça gratuitement ! 👉 Inscrivez-vous maintenant !

Flop

XLDnaute Occasionnel
Re-bonjour à tous..

J'ai ce code qui me permets de protéger toutes les feuilles de mon classeur, j'aimerais rajouter l'action de cacher toutes les feuilles du classeur, sauf la feuille active,

j'ai réussi à toutes les décachés dans le code de "déprotection" mais sur ce code la je n'y arrive pas car la macro cache toutes les feuilles et forcément ca bug, quand il veut cacher la feuille active.. ! merci de votre aide

Code:
Sub Protege_feuille()
Dim nombre As Integer
nombre = ActiveWorkbook.Sheets.Count
Application.ScreenUpdating = False
For i = 1 To nombre
Worksheets(i).Protect DrawingObjects:=True, Contents:=True, Scenarios:=True, Password:="toto"
Worksheets(i).EnableSelection = xlUnlockedCells
'Worksheets(i).Visible = False
Next i
' on affiche les étapes de la macro
        Application.ScreenUpdating = True
        Application.DisplayAlerts = True
 
- Navigue sans publicité
- Accède à Cléa, notre assistante IA experte Excel... et pas que...
- Profite de fonctionnalités exclusives
Ton soutien permet à Excel Downloads de rester 100% gratuit et de continuer à rassembler les passionnés d'Excel.
Je deviens Supporter XLD

Discussions similaires

Réponses
3
Affichages
673
Réponses
12
Affichages
703
Réponses
4
Affichages
577
Retour