Astuce: Les autres langues sont Google-Traduction. Vous pouvez visiter le English version de ce lien.
Se connecter
x
or
x
x
S'enregistrer
x

or

Comment appliquer des volets freeze / unfreeze à plusieurs feuilles de calcul à la fois?

Supposons que vous ayez un grand classeur contenant des centaines de feuilles de calcul, et que vous deviez maintenant appliquer les volets Figer pour figer toutes les feuilles de calcul à la fois. Avec la fonction Freeze Panes d'Excel, vous pouvez simplement geler une seule feuille de calcul à la fois. Existe-t-il un moyen de geler ou de désactiver immédiatement toutes les feuilles de calcul dans Excel?

Appliquer les volets Freeze à toutes les feuilles de calcul à la fois avec le code VBA

Appliquer les volets de dégivrage à toutes les feuilles de calcul à la fois avec le code VBA

Appliquer les volets Freeze / Unfreeze à toutes les feuilles de calcul en une seule fois en un seul clic avec Kutools for Excel


Appliquez les volets freeze / unfreeze à plusieurs feuilles de calcul:

Kutools pour Excel 's Figer / Dégeler les volets de plusieurs feuilles de calcul peut vous aider à figer ou dégeler toutes les feuilles de calcul dans votre classeur en un seul clic.

doc geler plusieurs feuilles 1

Kutools for Excel: avec plus que 200 compléments Excel pratiques, libre d'essayer sans limitation dans les jours 60. Téléchargez et essai gratuit maintenant!



Vous pouvez utiliser le code suivant pour appliquer les volets Freeze à toutes les feuilles de calcul, procédez comme suit:

1. Si vous souhaitez geler toutes les feuilles de calcul dans la même position, sélectionnez une cellule que vous souhaitez geler dans la feuille de calcul, puis maintenez décalage touche pour sélectionner tous les onglets de feuille.

2. Maintenez le ALT + F11 clés, et il ouvre la Microsoft Visual Basic pour Applications fenêtre.

3. Cliquez insérer > Moduleet collez le code suivant dans le Fenêtre du module.

Code VBA: Geler toutes les feuilles de calcul à la fois dans Excel

Sub Freeze()
'Update 20140317
Dim Ws As Worksheet
Application.ScreenUpdating = False
For Each Ws In Application.ActiveWorkbook.Worksheets
    Ws.Activate
    With Application.ActiveWindow
        .FreezePanes = True
    End With
Next
Application.ScreenUpdating = True
End Sub

4. Et puis appuyez sur F5 clé pour exécuter ce code, et toutes les feuilles de calcul ont été appliquées avec les volets de gel dans la même position.

Veuillez noter que : Si toutes les feuilles de travail ne sont pas sélectionnées et que les cellules actives de chaque feuille de calcul sont situées dans des positions différentes, les fenêtres de gel seront dans les différents endroits où les cellules actives sont activées.


Si plusieurs feuilles de calcul sont appliquées avec les volets de blocage dans votre Excel, comment pouvez-vous les débloquer à la fois, sauf les décongeler un à un?

1. Lancez votre classeur dont les feuilles de calcul ont été appliquées avec les volets de gel.

2. Maintenez le ALT + F11 clés, et il ouvre la Microsoft Visual Basic pour Applications fenêtre.

3. Cliquez insérer > Moduleet collez le code suivant dans le Fenêtre du module.

Code VBA: Libérez toutes les feuilles de calcul à la fois dans Excel

Sub UnFreeze()
'Update 20140317
Dim Ws As Worksheet
Application.ScreenUpdating = False
For Each Ws In Application.ActiveWorkbook.Worksheets
    Ws.Activate
    With Application.ActiveWindow
        .FreezePanes = False
    End With
Next
Application.ScreenUpdating = True
End Sub

4. Et puis appuyez sur F5 clé pour exécuter ce code, et toutes les feuilles de calcul qui ont appliqué avec les volets de gel ont été dégelés à la fois.


Si vous n'êtes pas familier avec les codes VBA, voici un outil puissant Kutools for Excel, il est Figer les feuilles multiples et Dégeler les volets de plusieurs feuilles de calcul Les utilitaires peuvent vous aider à geler ou dégeler toutes les feuilles de calcul du classeur en cours à la fois.

Kutools for Excel : avec plus de 300 compléments Excel pratiques, libre d'essayer sans limitation dans 60 jours.

Si vous avez installé kutools pour Excel, s'il vous plaît faites comme suit:

1. Sélectionnez une cellule où vous souhaitez appliquer le volet de gel pour toutes les feuilles de calcul, dans ce cas, je clique sur la cellule B2, voir capture d'écran:

doc gèle toutes les feuilles 1-1

2. Puis clique Entreprise > Feuille > Figer les volets plusieurs feuilles de travail, voir capture d'écran:

doc gèle toutes les feuilles 2-2

3. Et puis toutes vos feuilles de travail ont été appliquées les cases de gel dans la même position de la cellule B2.

Note: Si vous souhaitez les libérer immédiatement, il vous suffit d'appliquer la fonction de dégivrage de plusieurs feuilles de calcul en cliquant sur Entreprise > Feuille > Dégeler les volets de plusieurs feuilles de calcul.

Télécharger et tester gratuitement Kutools for Excel maintenant!


Kutools for Excel: avec plus que 200 compléments Excel pratiques, libre d'essayer sans limitation dans les jours 60. Téléchargez et essai gratuit maintenant!


Article connexe:

Comment figer les volets dans Excel?


Kutools for Excel résout la plupart de vos problèmes et augmente votre productivité de 80%

  • Réutilisation: Insérer rapidement formules complexes, graphiques et tout ce que vous avez utilisé auparavant; Crypter les cellules avec mot de passe Créer une liste de diffusion et envoyer des emails ...
  • Super Formula Bar (éditez facilement plusieurs lignes de texte et de formule); Disposition de lecture (facilement lire et éditer un grand nombre de cellules); Coller à la gamme filtrée...
  • Fusionner les cellules / rangées / colonnes sans perdre de données; Contenu des cellules divisées; Combiner les lignes / colonnes en double... Prévenir les cellules en double; Comparer les plages...
  • Sélectionnez Dupliquer ou Unique Des rangées; Sélectionnez les lignes vierges (toutes les cellules sont vides); Super Find et Fuzzy Find dans de nombreux cahiers d'exercices; Sélection aléatoire ...
  • Copie exacte Plusieurs cellules sans changer la référence de la formule; Créer automatiquement des références à plusieurs feuilles; Insérer des balles, Cases à cocher et plus ...
  • Extrait du texte, Ajouter du texte, Supprimer par position, Supprimer l'espace; Créer et imprimer des sous-totaux de pagination; Conversion entre contenu de cellules et commentaires...
  • Super filtre (enregistrer et appliquer des schémas de filtrage à d'autres feuilles); Tri avancé par mois / semaine / jour, fréquence et plus; Filtre spécial en gras, en italique ...
  • Combinaison de classeurs et de feuilles de calcul; Fusionner les tables en fonction des colonnes clés; Fractionner les données en plusieurs feuilles; Conversion par lots xls, xlsx et PDF...
  • Plus que de puissantes fonctionnalités 300. Prend en charge Office / Excel 2007-2019 et 365. Prend en charge toutes les langues. Déploiement facile dans votre entreprise ou organisation. Fonctionnalités complètes Essai gratuit du jour 30.
kte tab 201905

Office Tab apporte une interface à onglets à Office et simplifie grandement votre travail

  • Activer l'édition par onglets et la lecture dans Word, Excel, PowerPoint, Publisher, Access, Visio et Project.
  • Ouvrez et créez plusieurs documents dans de nouveaux onglets de la même fenêtre, plutôt que dans de nouvelles fenêtres.
  • Augmente votre productivité de 50% et réduit le nombre de clics de souris pour vous chaque jour!
fond officetab
Say something here...
symbols left.
You are guest ( Sign Up? )
or post as a guest, but your post won't be published automatically.
Loading comment... The comment will be refreshed after 00:00.
  • To post as a guest, your comment is unpublished.
    JD · 3 years ago
    want to be able to freeze top row on multiple worksheets
  • To post as a guest, your comment is unpublished.
    Kurt · 5 years ago
    I tried this in my workbook and it worked very well.

    thanks
  • To post as a guest, your comment is unpublished.
    Orchid · 5 years ago
    dear all,
    I have a test in my workbook, have a good note that before you apply this macro, please move the mouse to the cell that you need to apply freeze pane in the sheet.
    it's really helpful. this info is what I am looking for.
    thank you very much
    Lan