Macro pour figer les volets

Fermé

wikika Messages postés 53 Date d'inscription mardi 16 juillet 2013 Statut Membre Dernière intervention 23 juillet 2020 - Modifié le 23 juil. 2020 à 16:35
ccm81 Messages postés 10900 Date d'inscription lundi 18 octobre 2010 Statut Membre Dernière intervention 2 novembre 2024 - 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

A voir également:

Macro pour figer les volets
Figer les volets - Guide
Telecharger macro convertir chiffre en lettre excel - Télécharger - Tableur
Macro word - Guide
Macro logiciel - Télécharger - Organisation
Macro recorder - Télécharger - Confidentialité

1 réponse

Réponse 1 / 1

ccm81 Messages postés 10900 Date d'inscription lundi 18 octobre 2010 Statut Membre Dernière intervention 2 novembre 2024 2 423
Modifié le 23 juil. 2020 à 17:21

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

Discussions similaires

Figer colonne sur excel en anglais

faire une boucle sans VBA

fixer des pages dans Word

recup couleur de cellule sans macro

Transformer un chiffre en lettres dans excel sans macro