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

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

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å.

Applicera avfrysningsrutor på alla kalkylblad samtidigt med VBA-kod

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.

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

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.

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:

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!

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