Macro pour figer les volets

Sub Protection()
    Dim Sh As Worksheet
    For Each Sh In Sheets
        Sh.Protect "DRHFOR1234"

    Next Sh
End Sub

Rows("5:5").Select
    ActiveWindow.FreezePanes = True

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

Discussions similaires