Macro pour figer les volets

Question

Bonjour, 

je souhaiterai compléter ma macro qui protège toutes les feuilles de mon classeur en figeant les volets en ligne 5

Sub Protection()
    Dim Sh As Worksheet
    For Each Sh In Sheets
        Sh.Protect "DRHFOR1234"

Next Sh
End Sub

j'ai pensé à y ajouter 

Rows("5:5").Select
    ActiveWindow.FreezePanes = True

mais cela ne fonctionne pas 

merci de votre précieuse aide 

Configuration: Windows / Chrome 84.0.4147.89

ccm81 · Answer

Bonjour

Sub ok()
Dim sh As Worksheet
For Each sh In Worksheets
  sh.Select
  sh.Rows("5:5").Select
  ActiveWindow.FreezePanes = True
Next sh
End Sub
Cdlmnt

Macro pour figer les volets

1 réponse

Discussions similaires

Newsletters