Discussion :

[Un Internaute]

Bonjour le forum,
Je reviens vers vous pour tenter de résoudre le "petit" problème comme indiqué dans le titre.
J'ai gratté un peu mais pas trouvé de question et réponse similaire.
Merci d'avance
Bien cordialement

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
8
9
10
11
Sub AfficherMasquerDistanceMoisPrecedent()
ActiveSheet.Unprotect Password:="" 'mot de passe à placer entre ces guillemets
With ActiveSheet
    If Rows("5:5").Hidden = True Then
        Rows("5:5").Hidden = False
    Else: Rows("5:5").Hidden = True
    End If
End With
ActiveSheet.Protect DrawingObjects:=True, Contents:=True, Scenarios:=True _
, AllowSorting:=True, AllowFiltering:=True, AllowUsingPivotTables:=True, Password:="" 'mot de passe à placer entre ces guillemets
End Sub

[antonysansh]

Bonjour Un Internaute,

Avec peut etre un test sur sh si plus de 12 onglets :

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
Sub test()
    Dim sh As Worksheet
        For Each sh In ActiveWorkbook.Worksheets
            sh.Rows(5).Hidden = Not sh.Rows(5).Hidden
        Next
End Sub

[Un Internaute]

Bonjour antonysansh,
Fonctionne super.
Je te remercie et te souhaite une agréable journée.
Bien cordialement