Hoppa till huvudinnehåll

Hur applicerar man frysa / låsa upp rutor på flera kalkylblad samtidigt?

Antag att du har en stor arbetsbok som innehåller hundratals kalkylblad, och nu måste du använda Freeze Panes för att frysa alla kalkylblad på en gång. Med Excels Freeze Panes-funktion kan du bara frysa bara ett kalkylblad åt gången. Finns det ett sätt att frysa eller låsa upp alla kalkylblad omedelbart samtidigt i Excel?

Applicera Freeze Panes på alla kalkylblad samtidigt med VBA-kod

Applicera avfrysningsrutor på alla kalkylblad samtidigt med VBA-kod

Applicera Freeze / Unfreeze Panes på alla kalkylblad samtidigt med ett klick med Kutools för Excel


Du kan använda följande kod för att tillämpa frysrutorna på alla kalkylblad, gör med följande steg:

1. Om du vill frysa alla kalkylblad i samma position väljer du en cell som du vill frysa i kalkylbladet och håller sedan ned shift för att välja alla arkflikar.

2. Håll ner ALT + F11 knapparna och det öppnar Microsoft Visual Basic for Applications-fönstret.

3. Klicka Insert > Modulernaoch klistra in följande kod i Modulfönster.

VBA-kod: Frys alla kalkylblad samtidigt i 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. Och tryck sedan på F5 nyckel för att köra den här koden och alla kalkylblad har tillämpats med frysrutorna i samma position.

Notera: Om alla kalkylblad inte är markerade och de aktiva cellerna i varje kalkylblad är placerade i olika positioner kommer frysrutorna på de olika platserna när de aktiva cellerna är på.


Om det finns flera kalkylblad som används med frysrutorna i din Excel, hur kan du låsa upp dem åt gången förutom att låsa upp dem en efter en?

1. Starta din arbetsbok vilka kalkylblad som har tillämpats med frysrutorna.

2. Håll ner ALT + F11 knapparna och det öppnar Microsoft Visual Basic for Applications-fönstret.

3. Klicka Insert > Modulernaoch klistra in följande kod i Modulfönster.

VBA-kod: Ta bort alla kalkylblad samtidigt i 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. Och tryck sedan på F5 nyckel för att köra den här koden, och alla kalkylblad som tillämpades med frysrutorna har fryst upp på en gång.


Om du inte känner till VBA-koder, här är ett kraftfullt verktyg- Kutools för Excel, dess Frysa rutor flera kalkylblad och Lossa rutorna för flera kalkylblad verktyg kan hjälpa dig att frysa eller låsa upp alla kalkylblad i aktuell arbetsbok samtidigt.

Notera:Att tillämpa detta Frysa rutor flera kalkylbladFör det första bör du ladda ner Kutools för Excel, och använd sedan funktionen snabbt och enkelt.

När du har installerat Kutools för Excel, gör så här:

1. Välj en cell där du vill använda frysfönstret för alla kalkylblad, i det här fallet klickar jag på cell B2, se skärmdump:

doc fryser alla ark 1-1

2. Klicka sedan Kutools Plus > Arbetsblad > Frysa rutor flera kalkylblad, se skärmdump:

3. Och sedan har alla dina kalkylblad applicerats frysrutorna i samma position som cell B2.

Anmärkningar: Om du vill låsa upp dem omedelbart behöver du bara använda funktionen Uppfrysta rutor för flera kalkylblad genom att klicka Kutools Plus> Arbetsblad > Lossa rutorna för flera kalkylblad.

Ladda ner och testa gratis Kutools för Excel nu!


Kutools för Excel: med mer än 300 praktiska Excel-tillägg, gratis att prova utan begränsning på 30 dagar. Ladda ner och testa gratis nu!

Bästa kontorsproduktivitetsverktyg

🤖 Kutools AI Aide: Revolutionera dataanalys baserat på: Intelligent utförande   |  Generera kod  |  Skapa anpassade formler  |  Analysera data och generera diagram  |  Anropa Kutools funktioner.
Populära funktioner: Hitta, markera eller identifiera dubbletter   |  Ta bort tomma rader   |  Kombinera kolumner eller celler utan att förlora data   |   Rund utan formel ...
Superuppslag: Flera kriterier VLookup    VLookup med flera värden  |   VSök över flera ark   |   Fuzzy Lookup ....
Avancerad rullgardinslista: Skapa snabbt en rullgardinslista   |  Beroende rullgardinslista   |  Flervals-rullgardinslista ....
Kolumnhanterare: Lägg till ett specifikt antal kolumner  |  Flytta kolumner  |  Växla synlighetsstatus för dolda kolumner  |  Jämför intervall och kolumner ...
Utvalda funktioner: Rutnätsfokus   |  Designvy   |   Stor formelbar    Arbetsbok & Bladhanterare   |  Resursbibliotek (Automatisk text)   |  Datumväljare   |  Kombinera arbetsblad   |  Kryptera/Dekryptera celler    Skicka e-postmeddelanden efter lista   |  Superfilter   |   Specialfilter (filtrera fet/kursiv/genomstruken...) ...
Topp 15 verktygssatser12 text verktyg (lägga till text, Ta bort tecken, ...)   |   50+ Diagram Typer (Gantt Chart, ...)   |   40+ Praktiskt Formler (Beräkna ålder baserat på födelsedag, ...)   |   19 Införande verktyg (Infoga QR-kod, Infoga bild från sökväg, ...)   |   12 Konvertering verktyg (Siffror till ord, Valutaväxling, ...)   |   7 Slå ihop och dela verktyg (Avancerade kombinera rader, Dela celler, ...)   |   ... och mer

Uppgradera dina Excel-färdigheter med Kutools för Excel och upplev effektivitet som aldrig förr. Kutools för Excel erbjuder över 300 avancerade funktioner för att öka produktiviteten och spara tid.  Klicka här för att få den funktion du behöver mest...

Beskrivning


Fliken Office ger ett flikgränssnitt till Office och gör ditt arbete mycket enklare

  • Aktivera flikredigering och läsning i Word, Excel, PowerPoint, Publisher, Access, Visio och Project.
  • Öppna och skapa flera dokument i nya flikar i samma fönster, snarare än i nya fönster.
  • Ökar din produktivitet med 50 % och minskar hundratals musklick för dig varje dag!
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