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