Macro pour figer les volets

wikika Messages postés 58 Statut Membre -
ccm81 Messages postés 11033 Statut Membre - 23 juil. 2020 à 17:00

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

Afficher la suite

A voir également:

1 réponse

Réponse 1 / 1

ccm81 Messages postés 11033 Statut Membre 2 433

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