Przejdź do głównej zawartości

Jak ustawić hasło, aby chronić ukryty arkusz w programie Excel?

Jeśli masz skoroszyt, który zawiera ważne ukryte arkusze i nie zezwalaj innym na ich odkrywanie. Teraz musisz ustawić hasło, aby całkowicie chronić ukryte arkusze robocze, gdy inni użytkownicy je odkryją, muszą wprowadzić hasło. Czy masz jakieś sposoby, aby szybko i łatwo poradzić sobie z tym zadaniem w programie Excel?

Ustaw hasło, aby chronić ukryte arkusze za pomocą funkcji VeryHidden

Ustaw hasło, aby chronić ukryty arkusz za pomocą kodu VBA

Chroń wiele arkuszy jednocześnie za pomocą Kutools for Excel


Ustaw hasło, aby chronić ukryte arkusze za pomocą funkcji VeryHidden

Zwykle możesz użyć funkcji VeryHidden, aby najpierw ukryć arkusze robocze, a następnie ustawić dla nich hasło, wykonaj następujące czynności:

1. Otwórz skoroszyt i przytrzymaj Alt + F11klawisze, aby otworzyć Okno Microsoft Visual Basic for Applications.

2, w Okno Microsoft Visual Basic for Applicationskliknij Zobacz i wysłuchaj > Eksplorator projektów i Okno właściwości to wyświetlić ich okienka.

doc-chroń-ukryte-arkusze-01

3. A potem w Projekt-VBAProjekt okienku wybierz arkusz, który chcesz ukryć, i w Właściwości okienku, kliknij listę rozwijaną z Statystyki sekcję do wyboru xlArkuszBardzoUkryty opcja, patrz zrzut ekranu:

doc-chroń-ukryte-arkusze-02

4. Po ukryciu arkusza możesz ustawić hasło, aby go chronić. w Okno Microsoft Visual Basic for Applicationskliknij wstawka > Moduł aby otworzyć pusty moduł, a następnie kliknij Tools > Właściwości VBAProjectzobacz zrzut ekranu:

doc-chroń-ukryte-arkusze-03

5. Potem wyskoczył Właściwości projektu VBAProject okno dialogowe, kliknij ochrona kartę, a następnie sprawdź Zablokuj projekt do przeglądania na koniec wprowadź i potwierdź hasło w Hasło umożliwiające przeglądanie właściwości projektu sekcja, patrz zrzut ekranu:

doc-chroń-ukryte-arkusze-04

6. Następnie kliknij OK , aby opuścić to okno dialogowe i zamknąć plik Okno Microsoft Visual Basic for Applications.

7. Zapisz skoroszyt jako Skoroszyt Excel z włączoną obsługą makr format i zamknij go, aby ochrona hasłem zaczęła obowiązywać.

doc-chroń-ukryte-arkusze-05

8. Następnym razem, gdy otworzysz ten skoroszyt i chcesz, aby ukryte arkusze były widoczne, zostaniesz poproszony o wprowadzenie hasła. Zobacz zrzut ekranu:

doc-chroń-ukryte-arkusze-06


Demo: Ustaw hasło, aby chronić ukryte arkusze


Ustaw hasło, aby chronić ukryty arkusz za pomocą kodu VBA

Aby ustawić hasło do ochrony ukrytych arkuszy, mogę również porozmawiać o kodzie VBA.

1. Ukryj jeden arkusz roboczy, który chcesz chronić.

2. Przytrzymaj ALT + F11 klawisze, aby otworzyć Okno Microsoft Visual Basic for Applications.

3. Następnie wybierz Ten zeszyt z lewej Eksplorator projektówkliknij go dwukrotnie, aby otworzyć plik Moduł, a następnie skopiuj i wklej następujący kod VBA do pustego modułu:

Kod VBA: Ustaw hasło, aby chronić ukryty arkusz

Private Sub Workbook_SheetActivate(ByVal Sh As Object)
Dim xSheetName As String
xSheetName = "Sheet1"
If Application.ActiveSheet.Name = xSheetName Then
    Application.EnableEvents = False
    Application.ActiveSheet.Visible = False
    xTitleId = "KutoolsforExcel"
    response = Application.InputBox("Password", xTitleId, "", Type:=2)
    If response = "123456" Then
        Application.Sheets(xSheetName).Visible = True
        Application.Sheets(xSheetName).Select
    End If
End If
Application.Sheets(xSheetName).Visible = True
Application.EnableEvents = True
End Sub

doc-chroń-ukryte-arkusze-07

Note: W powyższym kodzie, Sheet1 ukończenia xSheetName = "Arkusz1" script to ukryta nazwa arkusza roboczego, którą chcesz chronić, a 123456 Jeśli odpowiedź = „123456” Wtedy skrypt to hasło ustawione dla ukrytego arkusza. Możesz je zmienić według swoich potrzeb.

4. Teraz, gdy chcesz pokazać ukryty arkusz, pojawi się okno zachęty umożliwiające wprowadzenie hasła. To okno zachęty będzie się pojawiać za każdym razem, gdy klikniesz, aby wyświetlić ukryty arkusz.

doc-chroń-ukryte-arkusze-08


Chroń wiele arkuszy jednocześnie za pomocą Kutools for Excel

Jeśli chcesz chronić wiele zaznaczonych lub wszystkie arkusze skoroszytu jednocześnie, zwykle musisz chronić je ręcznie w programie Excel. Ale jeśli masz Kutools dla programu Excel, Z siedzibą w Chroń arkusz roboczy narzędzie, możesz je chronić jednym kliknięciem.

Kutools dla programu Excel : z ponad 300 poręcznymi dodatkami Excela, które można wypróbować bez ograniczeń w ciągu 30 dni

Po zainstalowaniu Kutools dla programu Excelwykonaj następujące czynności:

1. Kliknij Kutools Plus > Chroń arkusz roboczyzobacz zrzut ekranu:

2, w Chroń arkusz roboczy W oknie dialogowym wszystkie arkusze robocze w skoroszycie są wymienione w polu listy, wybierz arkusze, które chcesz chronić. Zobacz zrzut ekranu:

doc-chroń-ukryte-arkusze-010

3. A następnie kliknij OK, w następnym oknie dialogowym wprowadź hasło i wpisz je ponownie, a następnie kliknij OK, pojawi się kolejne okno z przypomnieniem, ile arkuszy zostało zabezpieczonych.

doc-chroń-ukryte-arkusze-011

4. Następnie kliknij OK aby zamknąć okna dialogowe, a wszystkie arkusze w skoroszycie zostały zabezpieczone tym samym hasłem.

Uwaga: Jeśli chcesz wyłączyć ochronę wszystkich arkuszy jednocześnie, wystarczy kliknąć Kutools Plus > Nie chroń arkuszai wpisz hasło, aby anulować ochronę.

 Pobierz i bezpłatną wersję próbną Kutools dla programu Excel teraz!


Podobne artykuły:

Jak chronić wiele arkuszy jednocześnie w programie Excel?

Jak ustawić hasło, aby chronić skoroszyt?

Jak zabezpieczyć / zablokować kod VBA w programie Excel?

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 (10)
No ratings yet. Be the first to rate!
This comment was minimized by the moderator on the site
jak ktoś ukrył arkusz jak w opisanym pierwszym sposobie, a nie znamy hasła to jak odkryć arkusz skoro hasło do visual basic jest w ukrytym arkuszu?
This comment was minimized by the moderator on the site
Hello, ciekawa

Sorry, at present, there is no good way for canceling the protect of the hidden sheet if you forget the password.

But, you can apply the Uhide all hidden sheets feature of Kutools for Excel to unhide all the hidden sheets without any password.
https://www.extendoffice.com/images/stories/comments/comment-skyyang/doc-unhide-sheets.png
You can download Kutools for Excel and use it freely for 30 days.
Please have a try. Thank you!
This comment was minimized by the moderator on the site
This is elegant. IF the person opening the spreadsheet does not enable macros (i.e. VBA) what happens? Is the hidden sheet a sitting duck? Or is it quite impossible to find?
This comment was minimized by the moderator on the site
Hi, David,
If you open the workbook without enabling the macro, the hidden sheet is displayed as normal. In this case, I recommend you to apply the first method for solving this job.
Thank you!
This comment was minimized by the moderator on the site
Your code allows users to view the sheet as long as they hold the left mouse button while the mouse pointer is on the tab. Try this to keep sheet hidden until correct password is entered: If response = "123456" Then Application.Sheets(xSheetName).Visible = True Application.Sheets(xSheetName).Select Else Application.Sheets(xSheetName).Visible = False[/b][/b] End If End If Application.EnableEvents = True End Sub
This comment was minimized by the moderator on the site
I have a question about your password restricted worksheet code. You posted the following code which works....what I am looking for is code that will do this with multiple worksheets and multiple passwords within the same workbook. Is this possible? Private Sub Workbook_SheetActivate(ByVal Sh As Object) 'Update 20140925 Dim xSheetName As String xSheetName = "sheet1" If Application.ActiveSheet.Name = xSheetName Then Application.EnableEvents = False Application.ActiveSheet.Visible = False xTitleId = "KutoolsforExcel" response = Application.InputBox("Password", xTitleId, "", Type:=2) If response = "123456" Then Application.Sheets(xSheetName).Visible = True Application.Sheets(xSheetName).Select End If End If Application.Sheets(xSheetName).Visible = True Application.EnableEvents = True End Sub
This comment was minimized by the moderator on the site
Found a solution yet?

I am having the same problem
This comment was minimized by the moderator on the site
Private Sub Workbook_SheetActivate(ByVal Sh As Object)
Dim aSheetName As String
Dim bSheetName As String
Dim cSheetName As String
aSheetName = "sheet1"
bSheetName = "sheet2"
cSheetName = "sheet3"

If Application.ActiveSheet.Name = aSheetName Then
Application.EnableEvents = False
Application.ActiveSheet.Visible = False
xTitleId = "KutoolsforExcel"
response = Application.InputBox("Password", xTitleId, "", Type:=2)
If response = "123" Then
Application.Sheets(aSheetName).Visible = True
Application.Sheets(aSheetName).Select
Else
Application.Sheets(aSheetName).Visible = False
End If
End If
Application.EnableEvents = True

If Application.ActiveSheet.Name = bSheetName Then
Application.EnableEvents = False
Application.ActiveSheet.Visible = False
xTitleId = "KutoolsforExcel"
response = Application.InputBox("Password", xTitleId, "", Type:=2)
If response = "456" Then
Application.Sheets(bSheetName).Visible = True
Application.Sheets(bSheetName).Select
Else
Application.Sheets(bSheetName).Visible = False
End If
End If
Application.EnableEvents = True

If Application.ActiveSheet.Name = cSheetName Then
Application.EnableEvents = False
Application.ActiveSheet.Visible = False
xTitleId = "KutoolsforExcel"
response = Application.InputBox("Password", xTitleId, "", Type:=2)
If response = "789" Then
Application.Sheets(cSheetName).Visible = True
Application.Sheets(cSheetName).Select
Else
Application.Sheets(cSheetName).Visible = False
End If
End If
Application.EnableEvents = True

End Sub
This comment was minimized by the moderator on the site
Thanks for the code, just have one question. When you open the sheet you are asked for question, then you enter it and the sheet is visible, but when you jump to next sheet and try to re-open previous sheet, you are asked for the same password again everytime. My question is can you bypass that and make excel ask for password once?
This comment was minimized by the moderator on the site
Private Sub Workbook_SheetActivate(ByVal Sh As Object)
Dim xSheetName As String
aSheetName = "sheet1"
bSheetName = "sheet2"
cSheetName = "sheet3"

If Application.ActiveSheet.Name = aSheetName Then
Application.EnableEvents = False
Application.ActiveSheet.Visible = False
xTitleId = "KutoolsforExcel"
response = Application.InputBox("Password", xTitleId, "", Type:=2)
If response = "1234" Then
Application.Sheets(aSheetName).Visible = True
Application.Sheets(aSheetName).Select
Else
Application.Sheets(aSheetName).Visible = False
End If
End If
Application.EnableEvents = True

If Application.ActiveSheet.Name = bSheetName Then
Application.EnableEvents = False
Application.ActiveSheet.Visible = False
xTitleId = "KutoolsforExcel"
response = Application.InputBox("Password", xTitleId, "", Type:=2)
If response = "2345" Then
Application.Sheets(bSheetName).Visible = True
Application.Sheets(bSheetName).Select
Else
Application.Sheets(bSheetName).Visible = False
End If
End If
Application.EnableEvents = True

If Application.ActiveSheet.Name = cSheetName Then
Application.EnableEvents = False
Application.ActiveSheet.Visible = False
xTitleId = "KutoolsforExcel"
response = Application.InputBox("Password", xTitleId, "", Type:=2)
If response = "3456" Then
Application.Sheets(cSheetName).Visible = True
Application.Sheets(cSheetName).Select
Else
Application.Sheets(cSheetName).Visible = False
End If
End If
Application.EnableEvents = True

End Sub
There are no comments posted here yet
Please leave your comments in English
Posting as Guest
×
Rate this post:
0   Characters
Suggested Locations