Przejdź do głównej zawartości

Jak zastosować okienka zamrożenia / odblokowania do wielu arkuszy jednocześnie?

Przypuśćmy, że masz duży skoroszyt, który zawiera setki arkuszy, a teraz musisz zastosować Zablokuj okienka, aby zamrozić wszystkie arkusze jednocześnie. Dzięki funkcji Zablokuj okienka programu Excel możesz po prostu zamrozić tylko jeden arkusz na raz, czy istnieje sposób na natychmiastowe zablokowanie lub odblokowanie wszystkich arkuszy w programie Excel?

Zastosuj zamrożone okienka do wszystkich arkuszy jednocześnie z kodem VBA

Zastosuj Odblokuj okienka do wszystkich arkuszy jednocześnie z kodem VBA

Zastosuj okienka Zablokuj / Odblokuj do wszystkich arkuszy jednocześnie jednym kliknięciem za pomocą Kutools for Excel


Możesz użyć następującego kodu, aby zastosować Zablokuj okienka do wszystkich arkuszy roboczych, wykonaj następujące czynności:

1. Jeśli chcesz zablokować wszystkie arkusze w tej samej pozycji, wybierz komórkę, którą chcesz zablokować w arkuszu, a następnie przytrzymaj Shift klawisz, aby wybrać wszystkie karty arkuszy.

2. Przytrzymaj ALT + F11 klucze i otwiera plik Okno Microsoft Visual Basic for Applications.

3. Kliknij wstawka > Modułi wklej następujący kod w Okno modułu.

Kod VBA: zamrażaj wszystkie arkusze jednocześnie w programie Excel

Sub Freeze()
'Updateby Extendoffice
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. A następnie naciśnij F5 klawisz, aby uruchomić ten kod, a wszystkie arkusze zostały zastosowane z okienkami zamrażania w tej samej pozycji.

Uwaga: Jeśli wszystkie arkusze robocze nie są zaznaczone, a aktywne komórki każdego arkusza znajdują się w różnych miejscach, zamrożone okienka będą w różnych miejscach, w których znajdują się aktywne komórki.


Jeśli w programie Excel zastosowano wiele arkuszy roboczych z okienkami zamrożenia, jak można je odblokować naraz, z wyjątkiem odblokowywania ich jeden po drugim?

1. Uruchom skoroszyt, w którym arkusze robocze zostały zastosowane z okienkami zamrożenia.

2. Przytrzymaj ALT + F11 klucze i otwiera plik Okno Microsoft Visual Basic for Applications.

3. Kliknij wstawka > Modułi wklej następujący kod w Okno modułu.

Kod VBA: Odblokuj wszystkie arkusze naraz w programie Excel

Sub UnFreeze()
'Updateby Extendoffice
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. A następnie naciśnij F5 klucz do uruchomienia tego kodu, a wszystkie arkusze robocze zastosowane z okienkami zamrożenia zostały natychmiast odblokowane.


Jeśli nie znasz kodów VBA, oto potężne narzędzie- Kutools dla programu Excel, jego Zablokuj okienka w wielu arkuszach i Odblokuj okienka wielu arkuszy narzędzia mogą pomóc w zamrażaniu lub odblokowywaniu wszystkich arkuszy bieżącego skoroszytu jednocześnie.

Uwaga:Aby to zastosować Zablokuj okienka w wielu arkuszach, po pierwsze, należy pobrać plik Kutools dla programu Excel, a następnie szybko i łatwo zastosuj tę funkcję.

Po zainstalowaniu Kutools dla programu Excel, zrób tak:

1. Wybierz komórkę, w której chcesz zastosować okienko zamrażania dla wszystkich arkuszy roboczych, w tym przypadku klikam komórkę B2, zobacz zrzut ekranu:

doc zamrozić wszystkie arkusze 1-1

2. Następnie kliknij Kutools Plus > Ćwiczenie > Zablokuj okienka w wielu arkuszachzobacz zrzut ekranu:

3. A potem wszystkie twoje arkusze zostały zastosowane jako zamrożone okienka w tej samej pozycji co komórka B2.

Note: Jeśli chcesz je natychmiast odblokować, wystarczy zastosować funkcję Odblokuj panele wielu arkuszy roboczych, klikając Kutools Plus> Ćwiczenie > Odblokuj okienka wielu arkuszy.

Pobierz i bezpłatną wersję próbną Kutools dla programu Excel teraz!


Kutools dla programu Excel: z ponad 300 poręcznymi dodatkami do programu Excel, które można wypróbować bez ograniczeń w ciągu 30 dni. Pobierz i bezpłatną wersję próbną teraz!

Najlepsze narzędzia biurowe

🤖 Pomocnik AI Kutools: Zrewolucjonizuj analizę danych w oparciu o: Inteligentne wykonanie   |  Wygeneruj kod  |  Twórz niestandardowe formuły  |  Analizuj dane i generuj wykresy  |  Wywołaj funkcje Kutools...
Popularne funkcje: Znajdź, wyróżnij lub zidentyfikuj duplikaty   |  Usuń puste wiersze   |  Łącz kolumny lub komórki bez utraty danych   |   Okrągły bez wzoru ...
Super wyszukiwanie: Wiele kryteriów VLookup    Wiele wartości VLookup  |   Przeglądanie pionowe na wielu arkuszach   |   Wyszukiwanie rozmyte ....
Zaawansowana lista rozwijana: Szybko twórz listę rozwijaną   |  Zależna lista rozwijana   |  Lista rozwijana wielokrotnego wyboru ....
Menedżer kolumn: Dodaj określoną liczbę kolumn  |  Przesuń kolumny  |  Przełącz stan widoczności ukrytych kolumn  |  Porównaj zakresy i kolumny ...
Polecane funkcje: Fokus siatki   |  Widok projektu   |   Duży pasek formuły    Menedżer skoroszytów i arkuszy   |  Biblioteka zasobów (Automatyczny tekst)   |  Selektor dat   |  Połącz arkusze   |  Szyfruj/odszyfruj komórki    Wysyłaj e-maile według listy   |  Super filtr   |   Specjalny filtr (filtruj pogrubienie/kursywa/przekreślenie...) ...
15 najlepszych zestawów narzędzi12 Tekst Tools (Dodaj tekst, Usuń znaki, ...)   |   50 + Wykres rodzaje (Wykres Gantta, ...)   |   40+ Praktyczne Wzory (Oblicz wiek na podstawie urodzin, ...)   |   19 Wprowadzenie Tools (Wstaw kod QR, Wstaw obraz ze ścieżki, ...)   |   12 Konwersja Tools (Liczby na słowa, Przeliczanie walut, ...)   |   7 Połącz i podziel Tools (Zaawansowane wiersze łączenia, Podział komórki, ...)   |   ... i więcej

Zwiększ swoje umiejętności Excela dzięki Kutools for Excel i doświadcz wydajności jak nigdy dotąd. Kutools dla programu Excel oferuje ponad 300 zaawansowanych funkcji zwiększających produktywność i oszczędzających czas.  Kliknij tutaj, aby uzyskać funkcję, której najbardziej potrzebujesz...

Opis


Karta Office wprowadza interfejs z zakładkami do pakietu Office i znacznie ułatwia pracę

  • Włącz edycję i czytanie na kartach w programach Word, Excel, PowerPoint, Publisher, Access, Visio i Project.
  • Otwieraj i twórz wiele dokumentów w nowych kartach tego samego okna, a nie w nowych oknach.
  • Zwiększa produktywność o 50% i redukuje setki kliknięć myszką każdego dnia!
Comments (6)
No ratings yet. Be the first to rate!
This comment was minimized by the moderator on the site
Is it possible to do it on selected worksheets only?

what would i need to change in the code.
This comment was minimized by the moderator on the site
Hi, Fernando,

To apply the freeze pane to selected sheets, please use the following code:



Sub Freeze()

'Updateby Extendoffice

Dim Ws As Worksheet

Dim xArrName As Variant

Dim xS

xArrName = Array("Sheet2", "Sheet3") 'Change the sheet names to your need

Application.ScreenUpdating = False

For Each xS In xArrName

Set Ws = Worksheets(xS)

If Not Ws Is Nothing Then

Ws.Activate

With Application.ActiveWindow

.FreezePanes = True

End With

End If

Next

Application.ScreenUpdating = True

End Sub



Please try it, thank you!
This comment was minimized by the moderator on the site
This would work but i would need to change every time i try and run it in a different workbook.

Is it possible for the macro to be modified to the sheets i select in the main pane by clicking on one and pressing shift and selecting the other ones?
This comment was minimized by the moderator on the site
want to be able to freeze top row on multiple worksheets
This comment was minimized by the moderator on the site
I tried this in my workbook and it worked very well. thanks
This comment was minimized by the moderator on the site
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
There are no comments posted here yet
Please leave your comments in English
Posting as Guest
×
Rate this post:
0   Characters
Suggested Locations