Ga naar hoofdinhoud

Hoe kan ik specifieke werkbladen automatisch verbergen bij het openen van een Excel-bestand?

Als u bepaalde specifieke werkbladen automatisch moet verbergen wanneer iemand de werkmap opent, hoe kunt u deze taak dan in Excel afhandelen?

Verberg een specifiek werkblad automatisch bij het openen van een werkmap met VBA-code

Verberg automatisch enkele specifieke werkbladen bij het openen van een werkmap met VBA-code


pijl blauw rechts belVerberg een specifiek werkblad automatisch bij het openen van een werkmap met VBA-code

Als u een specifiek werkblad wilt verbergen bij het openen van de werkmap, kunt u de volgende VBA-code toepassen.

1. Houd de ALT + F11 toetsen om de te openen Microsoft Visual Basic voor toepassingen venster.

2. Links Project-VBAProject dubbelklik op het Dit Werkboek om een ​​lege module te openen en kopieer en plak de volgende code in de module:

VBA-code: verberg een specifiek blad bij het openen van een werkmap:

Private Sub Workbook_Open()
Sheets("Sheet5").Visible = False
End Sub

doc verberg blad bij openen 1

Note: In de bovenstaande code, Sheet5 is de bladnaam die u bij openen wilt verbergen. Wijzig het naar uw behoefte.

3. Sla vervolgens dit codevenster op en sluit het, en klik op Dien in > Opslaan als om deze werkmap op te slaan als Excel-werkmap met ingeschakelde macro's formaat, zie screenshot:

doc verberg blad bij openen 2

4. Als u deze werkmap de volgende keer opent, klikt u op Inhoud aanzetten knop eerst, en dan wordt uw specificatieblad automatisch verborgen.

doc verberg blad bij openen 3


pijl blauw rechts bel Verberg automatisch enkele specifieke werkbladen bij het openen van een werkmap met VBA-code

Als er meerdere werkbladen moeten worden verborgen bij het openen van de werkmap, is hier ook een code die u kan helpen.

1. Eerst moet u de bladnamen die u wilt verbergen bij openen in een lijst van een werkblad vermelden en vervolgens naar de Naam vak om ze een bereiknaam te gevenBladenNaarVerbergenen druk op Enter key, zie screenshot:

doc verberg blad bij openen 4

2. Houd vervolgens de ALT + F11 toetsen om de te openen Microsoft Visual Basic voor toepassingen venster.

3. Links Project-VBAProject dubbelklik op het Dit Werkboek om een ​​lege module te openen en kopieer en plak 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

doc verberg blad bij openen 5

Note: In de bovenstaande code, BladenNaarVerbergen is de bereiknaam die u in stap 1 heeft gemaakt.

4. Sla vervolgens dit codevenster op en sluit het, en klik op Dien in > Opslaan als om deze werkmap op te slaan als Excel-werkmap met ingeschakelde macro's formaat. Vanaf nu, wanneer u deze werkmap de volgende keer opent, worden de opgegeven werkbladen automatisch verborgen.

Beste Office-productiviteitstools

🤖 Kutools AI-assistent: Een revolutie teweegbrengen in de data-analyse op basis van: Intelligente uitvoering   |  Genereer code  |  Aangepaste formules maken  |  Analyseer gegevens en genereer grafieken  |  Roep Kutools-functies aan...
Populaire functies: Zoek, markeer of identificeer duplicaten   |  Verwijder lege rijen   |  Combineer kolommen of cellen zonder gegevens te verliezen   |   Ronde zonder formule ...
Super opzoeken: Meerdere criteria VLookup    VLookup met meerdere waarden  |   VOpzoeken over meerdere bladen   |   Fuzzy opzoeken ....
Geavanceerde vervolgkeuzelijst: Maak snel een vervolgkeuzelijst   |  Afhankelijke vervolgkeuzelijst   |  Multi-select vervolgkeuzelijst ....
Kolom Beheerder: Voeg een specifiek aantal kolommen toe  |  Kolommen verplaatsen  |  Schakel de zichtbaarheidsstatus van verborgen kolommen in  |  Vergelijk bereiken en kolommen ...
Uitgelichte functies: Raster focus   |  Ontwerpweergave   |   Grote formulebalk    Werkmap- en bladbeheer   |  resource Library (Auto-tekst)   |  Datumkiezer   |  Combineer werkbladen   |  Cellen coderen/decoderen    Stuur e-mails per lijst   |  Super filter   |   Speciaal filter (filter vet/cursief/doorhalen...) ...
Top 15 gereedschapsets12 Tekst Tools (toe te voegen tekst, Tekens verwijderen, ...)   |   50+ tabel Types (Gantt Chart, ...)   |   40+ Praktisch Formules (Bereken leeftijd op basis van verjaardag, ...)   |   19 Invoeging Tools (QR-code invoegen, Afbeelding invoegen vanaf pad, ...)   |   12 Camper ombouw Tools (Getallen naar woorden, Currency Conversion, ...)   |   7 Samenvoegen en splitsen Tools (Geavanceerd Combineer rijen, Gespleten cellen, ...)   |   ... en meer

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

Omschrijving


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!
Comments (0)
No ratings yet. Be the first to rate!
There are no comments posted here yet
Please leave your comments in English
Posting as Guest
×
Rate this post:
0   Characters
Suggested Locations