Jak rychle zavřít všechny sešity kromě aktivního?
Pokud je ve vašem počítači otevřeno více sešitů a nyní chcete zavřít všechny, ale ponechat aktivní. Existují nějaké rychlé způsoby, jak se s touto prací vypořádat, kromě zavírání ostatních sešitů jeden po druhém? V tomto článku budu mluvit o několika snadných způsobech, jak to vyřešit jedním kliknutím.
Zavřete všechny sešity kromě aktivního pomocí kódu VBA
Zavřete všechny sešity kromě aktivního na kartě Office
Zavřete všechny sešity kromě aktivního pomocí kódu VBA
S následujícím kódem VBA můžete rychle zavřít všechny otevřené sešity kromě aktivního, udělejte to takto:
1. Aktivujte sešit, který chcete mít otevřený.
2. Podržte ALT + F11 klávesy pro otevření Okno Microsoft Visual Basic pro aplikace.
3, klikněte Vložit > Modula vložte následující kód do Okno modulu.
Kód VBA: Zavřete všechny sešity kromě aktivního
Private Sub CloseOtherWorkbook()
'Update 20141126
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. Pak stiskněte tlačítko F5 klíč ke spuštění tohoto kódu a poté byly všechny ostatní sešity uzavřeny najednou, ale ponechejte pouze aktivní.
Zavřete všechny sešity kromě aktivního na kartě Office
Pokud máte zájem o nový produkt - Karta Office, pomůže vám otevřít více dokumentů / souborů v jediném okně s kartami, s ním můžete zavřít všechny sešity, ale nechat aktivní jeden jediným kliknutím. Můžete vědět víc a dolů načíst Karta Office od zde.
Po instalaci Karta Office, uvidíte, že všechny otevřené sešity jsou zobrazeny v jednom okně s kartami, viz screenshot:
Poté klikněte na název sešitu, který chcete nechat otevřený, klikněte pravým tlačítkem na záložku název a vyberte Zavřít další z kontextové nabídky viz screenshot:
A pak uvidíte, že je otevřen pouze váš aktivní sešit.
Související článek:
Jak rychle zavřít všechny sešity v aplikaci Excel?
Nejlepší nástroje pro produktivitu v kanceláři
Rozšiřte své dovednosti Excel pomocí Kutools pro Excel a zažijte efektivitu jako nikdy předtím. Kutools for Excel nabízí více než 300 pokročilých funkcí pro zvýšení produktivity a úsporu času. Kliknutím sem získáte funkci, kterou nejvíce potřebujete...
Office Tab přináší do Office rozhraní s kartami a usnadňuje vám práci
- Povolte úpravy a čtení na kartách ve Wordu, Excelu, PowerPointu, Publisher, Access, Visio a Project.
- Otevřete a vytvořte více dokumentů na nových kartách ve stejném okně, nikoli v nových oknech.
- Zvyšuje vaši produktivitu o 50%a snižuje stovky kliknutí myší každý den!