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

---

Verberg 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

Opmerking:: 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:

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

---

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:

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

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