Hoe kun je het bevriezen/ontdooien van vensters in meerdere werkbladen tegelijk toepassen?
Bij het werken met grote Excel-werkboeken die tientallen of zelfs honderden werkbladen bevatten, moet je vaak bepaalde rijen of kolommen zichtbaar houden door vensters te bevriezen. Echter, de standaardfunctie Bevries Vensters van Excel werkt alleen op het actieve werkblad, waardoor het tijdrovend is om deze handeling handmatig op elk blad te herhalen. Als je consistent dezelfde rijen of kolommen wilt bevriezen (of later ontdooien) op al je werkbladen, is er dan een manier om deze instelling in één keer op elk werkblad toe te passen – om je moeite te besparen en de kans op het missen van een blad te verminderen?
Pas Bevries Vensters tegelijk toe op alle werkbladen met VBA-code
Pas Ontdooi Vensters tegelijk toe op alle werkbladen met VBA-code
Pas Bevries/Ontdooi Vensters aan alle werkbladen tegelijk met één klik met Kutools voor Excel
Pas Bevries Vensters tegelijk toe op alle werkbladen met VBA-code
Als je vensters op dezelfde cellocatie in elk werkblad van je werkboek wilt bevriezen, biedt VBA een efficiënte oplossing om dit proces te automatiseren. Het kan helpen een uniforme weergave voor alle werkbladen te behouden, zoals het tonen van koptekstrijen of belangrijke kolommen in grote werkboeken. Let op: deze methode vereist dat je de cel selecteert waarop je het bevriezen wilt toepassen in elk werkblad, omdat VBA zal bevriezen op basis van de actieve cel binnen elk werkblad.
1. Als je alle werkbladen op dezelfde positie wilt bevriezen, selecteer een cel die je wilt bevriezen in het werkblad, en houd dan de Shift-toets ingedrukt om alle bladtabbladen te selecteren.
2. Druk op ALT + F11 om het Microsoft Visual Basic for Applications-venster te openen.
3. Klik in het VBA-editorvenster op Invoegen > Module, en kopieer en plak vervolgens de volgende VBA-code in het modulevenster:
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. Om uit te voeren, druk op F5 of klik op de Uitvoeren-knop. Dit zal de bevriesvensters instellen op de positie van de actieve cel voor alle werkbladen.
Opmerking: Als je niet alle werkbladen hebt geselecteerd en de actieve cel verschilt tussen de werkbladen, kunnen de locaties van de bevriesvensters per werkblad variëren. Zorg voor uniformiteit door altijd de actieve cel uit te lijnen voordat je de code uitvoert.
Pas Ontdooi Vensters tegelijk toe op alle werkbladen met VBA-code
Wanneer verschillende werkbladen bevriesvensters hebben die je tegelijk wilt verwijderen, kan een VBA-oplossing het proces aanzienlijk vereenvoudigen. In plaats van handmatig vensters blad voor blad te ontdooien, verwijdert de volgende macro snel alle bevriesvensters tegelijk.
1. Open het werkboek met bevriesvensters over meerdere werkbladen.
2. Druk op ALT + F11 om de Microsoft Visual Basic for Applications-editor te starten.
3. Klik op Invoegen > Module, en plak vervolgens de onderstaande code in het modulevenster:
VBA-code: Ontdooi alle werkbladen tegelijk 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. Druk op F5 of klik op de Uitvoeren-knop om uit te voeren. Alle werkbladen met bevriesvensters zullen ze direct verwijderd krijgen.
Pas Bevries/Ontdooi Vensters aan alle werkbladen tegelijk met één klik met Kutools voor Excel
Als je liever geen VBA gebruikt of op zoek bent naar een eenvoudigere, code-vrije methode, biedt Kutools voor Excel een effectieve manier om Bevries of Ontdooi Vensters toe te passen op alle werkbladen via een eenvoudig menu. Deze functie is ideaal voor gebruikers die een snelle, betrouwbare oplossing willen met minimale stappen en zonder macro-instellingen. De functies Bevries vensters meerdere werkbladen en Ontdooi vensters meerdere werkbladen werken naadloos om bevriesvensterposities in elk werkblad met één handeling in te stellen of te verwijderen. Dit bespaart veel tijd in grote werkboeken en vermindert de kans op inconsistenties tussen de werkbladen.
Nadat je Kutools voor Excel hebt geïnstalleerd, volg dan de volgende stappen:
1. Kies de cel waarop je vensters wilt bevriezen in alle werkbladen (bijvoorbeeld selecteer cel B2 als je rij 1 en kolom A zichtbaar wilt houden). Deze positie wordt uniform op elk werkblad toegepast. Zie screenshot:
2. Klik op het Excel-lint op Kutools Plus > Werkblad > Bevries vensters meerdere werkbladen. Zie screenshot:
3. Alle werkbladen zullen direct bevriesvensters instellen op dezelfde aangewezen celpositie (bijvoorbeeld B2), zodat je weergave consistent blijft in het hele werkboek.
Opmerking: Om bevriesvensters van alle werkbladen in één keer te verwijderen, selecteer Kutools Plus > Werkblad > Ontdooi vensters meerdere werkbladen. Dit biedt flexibiliteit om de weergave indien nodig te wisselen bij het werken met grote of complexe datasets. De functie is vooral handig tijdens het voorbereiden van sjablonen, bestuursvergaderingen of wanneer je consistente navigatie wilt.
Demo: Pas Bevries/Ontdooi Vensters aan alle werkbladen tegelijk met één klik met Kutools voor Excel
Beste productiviteitstools voor Office
Verbeter je Excel-vaardigheden met Kutools voor Excel en ervaar ongeëvenaarde efficiëntie. Kutools voor Excel biedt meer dan300 geavanceerde functies om je productiviteit te verhogen en tijd te besparen. Klik hier om de functie te kiezen die je het meest nodig hebt...
Office Tab brengt een tabbladinterface naar Office en maakt je werk veel eenvoudiger
- Activeer tabbladbewerking en -lezen in Word, Excel, PowerPoint, Publisher, Access, Visio en Project.
- Open en maak meerdere documenten in nieuwe tabbladen van hetzelfde venster, in plaats van in nieuwe vensters.
- Verhoog je productiviteit met50% en bespaar dagelijks honderden muisklikken!
Alle Kutools-invoegtoepassingen. Eén installatieprogramma
Kutools for Office-suite bundelt invoegtoepassingen voor Excel, Word, Outlook & PowerPoint plus Office Tab Pro, ideaal voor teams die werken met Office-toepassingen.
- Alles-in-één suite — invoegtoepassingen voor Excel, Word, Outlook & PowerPoint + Office Tab Pro
- Eén installatieprogramma, één licentie — in enkele minuten geïnstalleerd (MSI-ready)
- Werkt beter samen — gestroomlijnde productiviteit over meerdere Office-toepassingen
- 30 dagen volledige proef — geen registratie, geen creditcard nodig
- Beste prijs — bespaar ten opzichte van losse aanschaf van invoegtoepassingen