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.
Opmerking:Om dit toe te passen Zet meerdere werkbladen vast, ten eerste moet u het Kutools for Excelen pas de functie vervolgens snel en gemakkelijk toe.
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
Beste Office-productiviteitstools
Geef uw Excel-vaardigheden een boost met Kutools voor Excel en ervaar efficiëntie als nooit tevoren. Kutools voor Excel biedt meer dan 300 geavanceerde functies om de productiviteit te verhogen en tijd te besparen. Klik hier om de functie te krijgen die u het meest nodig heeft...
Office-tabblad Brengt een interface met tabbladen naar Office en maakt uw werk veel gemakkelijker
- Schakel bewerken en lezen met tabbladen in Word, Excel, PowerPoint in, Publisher, Access, Visio en Project.
- Open en maak meerdere documenten in nieuwe tabbladen van hetzelfde venster in plaats van in nieuwe vensters.
- Verhoogt uw productiviteit met 50% en vermindert honderden muisklikken voor u elke dag!
