Als u tegelijkertijd aan meerdere werkmappen werkt en u een macro nodig hebt om alle inactieve werkmappen te verbergen, dan zal dit artikel u zeker helpen.
In dit artikel zullen we ons concentreren op hoe we meerdere werkmappen kunnen verbergen die u momenteel niet gebruikt.
Vraag: Ik moet snel alle Excel-bestanden verbergen, behalve degene die ik momenteel gebruik, zodat ik soepel tussen andere applicaties kan schakelen. Ik zou graag VBA-code willen zoeken voor deze unieke eis van mij.
Om de code te krijgen voor het verbergen van alle inactieve werkmappen, moeten we de onderstaande stappen volgen om de VB-editor te starten
- Klik op het tabblad Ontwikkelaar
- Selecteer in de codegroep Visual Basic
- Kopieer de volgende code in werkbladmodule:
Sub HideInactiveExcelWorkbooks() Application.ScreenUpdating = False Dim aWin As Window Set aWin = ActiveWindow Dim win As Window Voor elke win In Application.Windows win.Visible = False Volgende win aWin.Visible = True Application.ScreenUpdating = True End Sub
- De bovenstaande code verbergt alle inactieve werkmappen onmiddellijk
Opmerking: de bovenstaande macro verbergt de actieve werkmap niet.
Om alle werkmappen zichtbaar te maken, moeten we de onderstaande stappen volgen:
- Klik op het tabblad Bekijken
- Klik op Zichtbaar maken
- Dit toont de werkmappen zichtbaar maken
- Als u ze allemaal selecteert en op de knop OK klikt, wordt de werkmap zichtbaar
Conclusie: We kunnen honderden werkmappen verbergen die niet actief zijn met een enkele klik met behulp van bovenstaande macrocode.
Als je onze blogs leuk vond, deel deze dan met je vrienden op Facebook. En je kunt ons ook volgen op Twitter en Facebook.
We horen graag van je, laat ons weten hoe we ons werk kunnen verbeteren, aanvullen of vernieuwen en het voor jou beter kunnen maken. Schrijf ons op de e-mailsite