Przejdź do głównej zawartości

Jak automatycznie ukryć określone arkusze robocze podczas otwierania pliku Excel?

Jeśli chcesz automatycznie ukryć określone arkusze robocze, gdy ktoś otworzy skoroszyt, jak możesz sobie z tym poradzić w programie Excel?

Ukryj określony arkusz automatycznie podczas otwierania skoroszytu z kodem VBA

Ukryj niektóre arkusze robocze automatycznie podczas otwierania skoroszytu z kodem VBA


strzałka niebieski prawy bąbelekUkryj określony arkusz automatycznie podczas otwierania skoroszytu z kodem VBA

Jeśli chcesz ukryć jeden określony arkusz roboczy podczas otwierania skoroszytu, możesz zastosować następujący kod VBA.

1. Przytrzymaj ALT + F11 klawisze, aby otworzyć Microsoft Visual Basic for Applications okno.

2. Po lewej Projekt-VBAProjekt okienku, kliknij dwukrotnie plik Ten zeszyt aby otworzyć pusty moduł, a następnie skopiuj i wklej następujący kod do modułu:

Kod VBA: Ukryj określony arkusz podczas otwierania skoroszytu:

Private Sub Workbook_Open()
Sheets("Sheet5").Visible = False
End Sub

doc ukryj arkusz po otwarciu 1

Note: W powyższym kodzie, Sheet5 to nazwa arkusza, który chcesz ukryć po otwarciu. Zmień to na swoje potrzeby.

3. Następnie zapisz i zamknij to okno kodu i kliknij filet > Zapisz jako aby zapisać ten skoroszyt jako Skoroszyt Excel z włączoną obsługą makr format, patrz zrzut ekranu:

doc ukryj arkusz po otwarciu 2

4. Gdy następnym razem otworzysz ten skoroszyt, kliknij Włącz treść najpierw przycisk, a następnie określony arkusz zostanie automatycznie ukryty.

doc ukryj arkusz po otwarciu 3


strzałka niebieski prawy bąbelek Ukryj niektóre arkusze robocze automatycznie podczas otwierania skoroszytu z kodem VBA

Jeśli podczas otwierania skoroszytu trzeba ukryć wiele arkuszy roboczych, pomocny jest również kod.

1. Najpierw należy wyświetlić nazwy arkuszy, które chcesz ukryć, na liście arkusza, a następnie przejść do Pole nazwy aby nadać im nazwę zakresuArkusze do ukryciai naciśnij Wchodzę klucz, patrz zrzut ekranu:

doc ukryj arkusz po otwarciu 4

2. Następnie przytrzymaj ALT + F11 klawisze, aby otworzyć Microsoft Visual Basic for Applications okno.

3. Po lewej Projekt-VBAProjekt okienku, kliknij dwukrotnie plik Ten zeszyt aby otworzyć pusty moduł, a następnie skopiuj i wklej następujący kod do modułu:

Kod VBA: Ukryj określone arkusze robocze podczas otwierania skoroszytu:

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

doc ukryj arkusz po otwarciu 5

Note: W powyższym kodzie, Arkusze do ukrycia to nazwa zakresu utworzona w kroku 1.

4. Następnie zapisz i zamknij to okno kodu i kliknij filet > Zapisz jako aby zapisać ten skoroszyt jako Skoroszyt Excel z włączoną obsługą makr format. Odtąd, gdy następnym razem otworzysz ten skoroszyt, określone arkusze zostaną automatycznie ukryte.

Najlepsze narzędzia biurowe

🤖 Pomocnik AI Kutools: Zrewolucjonizuj analizę danych w oparciu o: Inteligentne wykonanie   |  Wygeneruj kod  |  Twórz niestandardowe formuły  |  Analizuj dane i generuj wykresy  |  Wywołaj funkcje Kutools...
Popularne funkcje: Znajdź, wyróżnij lub zidentyfikuj duplikaty   |  Usuń puste wiersze   |  Łącz kolumny lub komórki bez utraty danych   |   Okrągły bez wzoru ...
Super wyszukiwanie: Wiele kryteriów VLookup    Wiele wartości VLookup  |   Przeglądanie pionowe na wielu arkuszach   |   Wyszukiwanie rozmyte ....
Zaawansowana lista rozwijana: Szybko twórz listę rozwijaną   |  Zależna lista rozwijana   |  Lista rozwijana wielokrotnego wyboru ....
Menedżer kolumn: Dodaj określoną liczbę kolumn  |  Przesuń kolumny  |  Przełącz stan widoczności ukrytych kolumn  |  Porównaj zakresy i kolumny ...
Polecane funkcje: Fokus siatki   |  Widok projektu   |   Duży pasek formuły    Menedżer skoroszytów i arkuszy   |  Biblioteka zasobów (Automatyczny tekst)   |  Selektor dat   |  Połącz arkusze   |  Szyfruj/odszyfruj komórki    Wysyłaj e-maile według listy   |  Super filtr   |   Specjalny filtr (filtruj pogrubienie/kursywa/przekreślenie...) ...
15 najlepszych zestawów narzędzi12 Tekst Tools (Dodaj tekst, Usuń znaki, ...)   |   50 + Wykres rodzaje (Wykres Gantta, ...)   |   40+ Praktyczne Wzory (Oblicz wiek na podstawie urodzin, ...)   |   19 Wprowadzenie Tools (Wstaw kod QR, Wstaw obraz ze ścieżki, ...)   |   12 Konwersja Tools (Liczby na słowa, Przeliczanie walut, ...)   |   7 Połącz i podziel Tools (Zaawansowane wiersze łączenia, Podział komórki, ...)   |   ... i więcej

Zwiększ swoje umiejętności Excela dzięki Kutools for Excel i doświadcz wydajności jak nigdy dotąd. Kutools dla programu Excel oferuje ponad 300 zaawansowanych funkcji zwiększających produktywność i oszczędzających czas.  Kliknij tutaj, aby uzyskać funkcję, której najbardziej potrzebujesz...

Opis


Karta Office wprowadza interfejs z zakładkami do pakietu Office i znacznie ułatwia pracę

  • Włącz edycję i czytanie na kartach w programach Word, Excel, PowerPoint, Publisher, Access, Visio i Project.
  • Otwieraj i twórz wiele dokumentów w nowych kartach tego samego okna, a nie w nowych oknach.
  • Zwiększa produktywność o 50% i redukuje setki kliknięć myszką każdego dnia!
Comments (0)
No ratings yet. Be the first to rate!
There are no comments posted here yet
Please leave your comments in English
Posting as Guest
×
Rate this post:
0   Characters
Suggested Locations