Hoe kan ik deelvensters bevriezen / vrijgeven op meerdere werkbladen tegelijk toepassen?

Stel dat u een grote werkmap heeft die honderden werkbladen bevat, en nu moet u de Freeze Panes toepassen om alle werkbladen tegelijk te bevriezen. Met de Freeze Panes-functie van Excel kunt u slechts één werkblad tegelijk bevriezen, is er een manier om alle werkbladen onmiddellijk in Excel te bevriezen of te deblokkeren?

Pas Freeze Panes toe op alle werkbladen tegelijk met VBA-code

Pas Unfreeze Panes tegelijk toe op alle werkbladen met VBA-code

Pas Freeze / Unfreeze Panes toe op alle werkbladen tegelijk met één klik met Kutools voor Excel

Pas Freeze Panes toe op alle werkbladen tegelijk met VBA-code

U kunt de volgende code gebruiken om de Freeze Panes op alle werkbladen toe te passen, voer de volgende stappen uit:

1. Als u alle werkbladen op dezelfde positie wilt bevriezen, selecteert u een cel die u in het werkblad wilt bevriezen en houdt u Shift toets om alle bladtabs te selecteren.

2. Houd de ALT + F11 toetsen, en het opent de Microsoft Visual Basic for Applications-venster.

3. Klikken Invoegen > Moduleen plak de volgende code in het Module Venster.

VBA-code: bevries alle werkbladen tegelijk in 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. En druk vervolgens op F5 toets om deze code uit te voeren, en alle werkbladen zijn toegepast met de stilstaande panelen in dezelfde positie.

Opmerking: Als niet alle werkbladen zijn geselecteerd en de actieve cellen van elk werkblad zich op verschillende posities bevinden, zullen de bevroren deelvensters op de verschillende plaatsen als de actieve cellen staan.

Pas Unfreeze Panes tegelijk toe op alle werkbladen met VBA-code

Als er meerdere werkbladen worden toegepast met de stilzetvensters in uw Excel, hoe kunt u ze dan tegelijk ontdooien, behalve ze een voor een weer vrijgeven?

1. Start uw werkmap met de werkbladen die zijn toegepast met de stilstaande panelen.

2. Houd de ALT + F11 toetsen, en het opent de Microsoft Visual Basic for Applications-venster.

3. Klikken Invoegen > Moduleen plak de volgende code in het Module Venster.

VBA-code: maak alle werkbladen tegelijk vrij in 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. En druk vervolgens op F5 toets om deze code uit te voeren, en alle werkbladen die met de bevroren deelvensters waren toegepast, zijn in één keer ontdooid.

Pas Freeze / Unfreeze Panes toe op alle werkbladen tegelijk met één klik met Kutools voor Excel

Als u niet bekend bent met de VBA-codes, is hier een krachtige tool- Kutools for Excel, het is Zet meerdere werkbladen vast en Bevriezing ongedaan maken van meerdere werkbladen hulpprogramma's kunnen u helpen om alle werkbladen van de huidige werkmap in één keer te bevriezen of te ontgrendelen.

Na het installeren van Kutools for Excel, doe dit als volgt:

1. Selecteer een cel waarop u het blokkeringsvenster voor alle werkbladen wilt toepassen, in dit geval klik ik op cel B2, zie screenshot:

2. Dan klikken Koetools Plus > Werkblad > Zet meerdere werkbladen vast, zie screenshot:

3. En dan zijn al uw werkbladen toegepast op de bevroren deelvensters in dezelfde positie van cel B2.

Note: Als u ze onmiddellijk wilt ontdooien, hoeft u alleen maar de functie Bevriezing van deelvensters voor meerdere werkbladen toe te passen door op te klikken Koetools Plus> Werkblad > Bevriezing ongedaan maken van meerdere werkbladen.

Download en gratis proef Kutools voor Excel nu!

Demo: pas Freeze / Unfreeze Panes toe op alle werkbladen tegelijk met één klik met Kutools voor Excel