Jeśli pracujesz nad wieloma skoroszytami jednocześnie i potrzebujesz makra, które pomoże ci ukryć wszystkie nieaktywne skoroszyty, ten artykuł z pewnością ci pomoże.
W tym artykule skupimy się na tym, jak możemy ukryć wiele skoroszytów, których obecnie nie używasz.
Pytanie: Muszę szybko ukryć wszystkie pliki Excela z wyjątkiem tego, którego aktualnie używam, aby móc płynnie przełączać się między innymi aplikacjami. Chciałbym poszukać kodu VBA dla tego unikalnego wymagania.
Aby uzyskać kod do ukrywania wszystkich nieaktywnych skoroszytów, musimy wykonać poniższe kroki, aby uruchomić edytor VB
- Kliknij kartę Deweloper
- Z grupy Kod wybierz Visual Basic
- Skopiuj następujący kod w module arkusza roboczego
Sub HideInactiveExcelWorkbooks() Application.ScreenUpdating = False Dim aWin As Window Set aWin = ActiveWindow Dim win As Window For each win In Application.Windows win.Visible = False Następne wygrane aWin.Visible = True Application.ScreenUpdating = True End Sub
- Powyższy kod natychmiast ukryje wszystkie nieaktywne skoroszyty
Uwaga: powyższe makro nie ukryje aktywnego skoroszytu.
Aby odkryć wszystkie skoroszyty, musimy wykonać poniższe kroki:
- Kliknij kartę Widok
- Kliknij Odkryj
- Spowoduje to wyświetlenie skoroszytów
- Wybranie każdego z nich i kliknięcie przycisku OK spowoduje odkrycie skoroszytu
Wniosek: Możemy ukryć setki skoroszytów, które nie są aktywne, jednym kliknięciem za pomocą powyższego kodu makra.
Jeśli podobały Ci się nasze blogi, podziel się nimi ze znajomymi na Facebooku. A także możesz śledzić nas na Twitterze i Facebooku.
Chcielibyśmy usłyszeć od Ciebie, daj nam znać, jak możemy ulepszyć, uzupełnić lub unowocześnić naszą pracę i uczynić ją lepszą dla Ciebie. Napisz do nas na stronie e-mail