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.
Beste Office-productiviteitstools
Geef uw Excel-vaardigheden een boost met Kutools for Excelen ervaar efficiëntie als nooit tevoren. Kutools for 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 Tab 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!
