Hvordan lukkes hurtigt alle projektmapper undtagen en aktiv?
Hvis der er åbnet flere projektmapper på din computer, og nu, vil du lukke alle, men lade den aktive være. Er der nogen hurtige måder, hvorpå du kan håndtere dette job, undtagen at lukke de andre projektmapper én efter én? I denne artikel vil jeg tale om nogle nemme måder for dig at løse det med et enkelt klik.
Luk alle projektmapper undtagen aktiv med VBA-kode
Luk alle projektmapper undtagen aktiv med Office-fanen
Luk alle projektmapper undtagen aktiv med VBA-kode
Med følgende VBA-kode kan du hurtigt lukke alle åbnede projektmapper undtagen den aktive, gør venligst som dette:
1. Aktivér din projektmappe, som du vil holde åben.
2. Hold nede ALT + F11 nøgler til at åbne Vinduet Microsoft Visual Basic til applikationer.
3. Klik indsatte > Moduler, og indsæt følgende kode i Modul vindue.
VBA-kode: Luk alle projektmapper undtagen den aktive
Private Sub CloseOtherWorkbook()
'Updateby Extendoffice
Dim xWB As Workbook
Application.ScreenUpdating = False
For Each xWB In Application.Workbooks
If Not (xWB Is Application.ActiveWorkbook) Then
xWB.Close
End If
Next
Application.ScreenUpdating = True
End Sub
4. Tryk derefter på F5 nøglen til at køre denne kode, og så er alle de andre projektmapper blevet lukket på én gang, men lad kun den aktive være.
Luk alle projektmapper undtagen aktiv med Office-fanen
Hvis du er interesseret i et nyt produkt - Office-fanen, det kan hjælpe dig med at åbne flere dokumenter / filer i et enkelt fanevindue, med det kan du lukke alle projektmapper, men lade én være aktiv med et enkelt klik. Du kan vide mere og download fanen Office.
Efter installation Office-fanen, vil du se alle de åbnede projektmapper vises i et enkelt fanevindue, se skærmbillede:
Klik derefter på det projektmappenavn, du vil lade være åbent, og højreklik på navnefanen, og vælg derefter Luk Andet fra kontekstmenuen, se skærmbillede:
Og så kan du kun se, at din aktive projektmappe er åbnet.
Relateret artikel:
Hvordan lukkes hurtigt alle projektmapper i Excel?
Bedste kontorproduktivitetsværktøjer
Overlad dine Excel-færdigheder med Kutools til Excel, og oplev effektivitet som aldrig før. Kutools til Excel tilbyder over 300 avancerede funktioner for at øge produktiviteten og spare tid. Klik her for at få den funktion, du har mest brug for...
Fanen Office bringer en grænseflade til et kontor med Office, og gør dit arbejde meget lettere
- Aktiver redigering og læsning af faner i Word, Excel, PowerPoint, Publisher, Access, Visio og Project.
- Åbn og opret flere dokumenter i nye faner i det samme vindue snarere end i nye vinduer.
- Øger din produktivitet med 50 % og reducerer hundredvis af museklik for dig hver dag!