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
Ukryj 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
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:
4. Gdy następnym razem otworzysz ten skoroszyt, kliknij Włącz treść najpierw przycisk, a następnie określony arkusz zostanie automatycznie ukryty.
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:
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
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
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...
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!