Hoe verbergt u automatisch bepaalde werkbladen bij het openen van een Excel-bestand?
Hoe kunt u bepaalde specifieke werkbladen automatisch verbergen zodra iemand de werkmap opent in Excel?
Verberg automatisch een specifiek werkblad bij het openen van een werkmap met VBA-code
Verberg automatisch enkele specifieke werkbladen bij het openen van een werkmap met VBA-code
Verberg automatisch een specifiek werkblad bij het openen van een werkmap met VBA-code
Als u één specifiek werkblad wilt verbergen zodra de werkmap wordt geopend, kunt u de volgende VBA-code gebruiken.
1. Houd de toetsen ALT + F11 ingedrukt om het venster Microsoft Visual Basic for Applications te openen.
2. Dubbelklik in het linkerdeelvenster op Project-VBAProject op ThisWorkbook om een lege module te openen, en kopieer en plak vervolgens de volgende code in de module:
VBA-code: Verberg een specifiek werkblad bij het openen van een werkmap:
Private Sub Workbook_Open()
Sheets("Sheet5").Visible = False
End Sub
Opmerking: In de bovenstaande code is Sheet5 de naam van het werkblad dat verborgen wordt bij het openen. Pas dit aan naar uw wens.
3. Sluit vervolgens dit codavenster en klik op Bestand > Opslaan als om deze werkmap op te slaan als Excel-werkmap met macro's ingeschakeld-indeling; zie schermafbeelding:
4. Wanneer u deze werkmap de volgende keer opent, klikt u eerst op de knop Inhoud inschakelen, waarna uw opgegeven werkblad automatisch wordt verborgen.
Ontgrendel de magie van Excel met KUTOOLS AI
- Slimme uitvoering: Voer celbewerkingen uit, analyseer gegevens en maak grafieken — allemaal met eenvoudige opdrachten.
- aangepaste formules: Genereer op maat gemaakte formules om uw workflows te stroomlijnen.
- VBA-programmeren: Schrijf en implementeer VBA-code moeiteloos.
- Formule-uitleg: Begrijp complexe formules moeiteloos.
- Tekstvertaling: Doorbreek taalbarrières in uw spreadsheets.
Verberg automatisch enkele specifieke werkbladen bij het openen van een werkmap met VBA-code
Als u meerdere werkbladen automatisch wilt verbergen bij het openen van de werkmap, helpt de volgende code u daarbij.
1. Maak eerst een lijst met de namen van de werkbladen die u wilt verbergen bij het openen, op een werkblad. Ga daarna naar het Naamvak en geef deze lijst de celnaam SheetsToHide, en druk op de Enter-toets; zie schermafbeelding:
2. Houd vervolgens de toetsen ALT + F11 ingedrukt om het venster Microsoft Visual Basic for Applications te openen.
3. Dubbelklik in het linkerdeelvenster op Project-VBAProject en vervolgens op ThisWorkbook om een lege module te openen. Kopieer en plak daarna de volgende code in de module:
VBA-code: Verberg enkele specifieke werkbladen bij het openen van een werkmap:
Private Sub Workbook_BeforeClose(Cancel As Boolean)
'Updateby Extendoffice 20161206
Dim ws As Worksheet
For Each ws In Worksheets
ws.Visible = xlSheetVisible
Next ws
End Sub
Private Sub Workbook_Open()
Dim ws As Worksheet
For Each ws In Worksheets
If WorksheetFunction.CountIf([SheetsToHide], ws.Name) > 0 Then
ws.Visible = xlSheetHidden
MsgBox ws.Name & "Has been hidden!", vbInformation, "Kutools for Excel"
Else
ws.Visible = xlSheetVisible
End If
Next ws
Set ws = Nothing
End Sub
Opmerking: In de bovenstaande code is SheetsToHide de celnaam die u in stap 1 hebt gemaakt.
4. Sluit vervolgens dit codavenster en klik op Bestand > Opslaan als om deze werkmap op te slaan als Excel-werkmap met macro's ingeschakeld-indeling. Vanaf nu worden de opgegeven werkbladen automatisch verborgen zodra u deze werkmap de volgende keer opent.
Beste Office-productiviteitshulpmiddelen
Geef uw Excel-vaardigheden een boost met Kutools voor Excel en ervaar efficiëntie zoals nooit tevoren.Kutools voor Excel biedt meer dan 300 geavanceerde functies om de productiviteit te verhogen en Tijd besparen.Klik hier om de functie te krijgen die u het meest nodig heeft...
Office Tab brengt een tabbladinterface naar Office en maakt uw werk veel eenvoudiger
- Schakel tabbladbewerking en -lezen in voor Word, Excel, PowerPoint, Publisher, Access, Visio en Project.
- Open en maak meerdere documenten aan in nieuwe tabbladen binnen hetzelfde venster, in plaats van in afzonderlijke vensters.
- Verhoogt uw productiviteit met 50 % en bespaart u dagelijks honderden muisklikken!
Alle Kutools-add-ins in één installatieprogramma.
Kutools for Office bundelt add-ins voor Excel, Word, Outlook en PowerPoint, plus Office Tab Pro—ideaal voor teams die met meerdere Office-apps werken.
- Alles-in-één suite— add-ins voor Excel, Word, Outlook & PowerPoint plus Office Tab Pro
- Één installatieprogramma, één licentie— binnen enkele minuten klaar (MSI-geschikt)
- Werkt beter samen— gestroomlijnde productiviteit in alle Office-apps
- 30 dagen volledig functionele proefversie— geen registratie, geen creditcard
- Beste prijs-kwaliteitverhouding— bespaar ten opzichte van het afzonderlijk kopen van add-ins