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 10907 Date d'inscription lundi 18 octobre 2010 Statut Membre Dernière intervention 24 janvier 2025 - 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
Jitbit macro recorder - Télécharger - Confidentialité
Macro logiciel - Télécharger - Organisation

1 réponse

Réponse 1 / 1

ccm81 Messages postés 10907 Date d'inscription lundi 18 octobre 2010 Statut Membre Dernière intervention 24 janvier 2025 2 430
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

recup couleur de cellule sans macro

Transformer un chiffre en lettres dans excel sans macro

figer une ligne word

Figer colonne sur excel en anglais

Comment figer une Feuille dans Excel ?