XL 2016 demasquer colonnes et lignes à l ouverture tous onglets

[reve24]

Bonjour

je cherche la solution pour démasquer toutes les colonnes et lignes masquées de tous les onglets à l ouverture du fichier .
les lignes et colonnes (par exemple) à masquer sont en jaunes dans les differents onglets de mon exemple

Bien sur je peux travailler par
Worksheets("Sheet1").Activate

mais je préferai par la solution

Private Sub Workbook_Open()

merci

 

[reve24]

Private Sub Workbook_Open()
Dim F_Source As Worksheet

Application.ScreenUpdating = False

For Each F_Source In Worksheets
Cells.Select
Selection.RowHeight = 12.5

Application.ScreenUpdating = False
Range("A1").Select
Next F_Source
End Sub

 

[reve24]

Voila ma solution ne fonctionnant que sur l onglet actif et
non tous les onglets .

 

[Jauster]

Bonjour,

A essayer dans Workbook :

Private Sub Workbook_open()

Dim Ws As Worksheet

    For Each Ws In Worksheets
        Ws.Columns.EntireColumn.Hidden = False
        Ws.Rows.EntireRow.Hidden = False
    Next

End Sub

 

[reve24]

Parfait cela fonctionne
merci jauster