[VBA] cacher des feuilles

[Flop]

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

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

 

[Pierrot93]

Re : [VBA] cacher des feuilles

Re Flop

essaye comme ci-dessous :

If Worksheets(i).Name <> ActiveSheet.Name Then Worksheets(i).Visible = False

@+

 

[Flop]

Re : [VBA] cacher des feuilles

merci bcq, c'est impec