Přejít k hlavnímu obsahu

Jak nastavit heslo k ochraně skrytého listu v aplikaci Excel?

Pokud máte sešit, který obsahuje některé důležité skryté listy, a nedovolte ostatním, aby je odkryly. Nyní musíte nastavit heslo k úplné ochraně skrytých listů, když je ostatní uživatelé skryjí, musí zadat heslo. Máte nějaké způsoby, jak se s tímto úkolem rychle a snadno vypořádat v aplikaci Excel?

Nastavte heslo pro ochranu skrytých listů pomocí funkce VeryHidden

Nastavte heslo pro ochranu skrytého listu pomocí kódu VBA

Chraňte více pracovních listů najednou pomocí Kutools pro Excel


Nastavte heslo pro ochranu skrytých listů pomocí funkce VeryHidden

Za normálních okolností můžete pomocí funkce VeryHidden nejdříve skrýt listy a poté pro ně nastavit heslo, proveďte následující kroky:

1. Otevřete sešit a podržte Alt + F11klávesy pro otevření Okno Microsoft Visual Basic pro aplikace.

2. V Okno Microsoft Visual Basic pro aplikace, Klepněte na tlačítko Pohled > Průzkumník projektu a Okno Vlastnosti to zobrazit jejich podokna.

doc-protect-hidden-sheets-01

3. A pak v Projekt-VBAProjekt v podokně vyberte list, který chcete skrýt, a v Nemovitosti v podokně klikněte na rozevírací seznam z okna viditelný pro výběr xlSheetVeryHidden možnost, viz screenshot:

doc-protect-hidden-sheets-02

4. Poté, co je list velmi skrytý, můžete nastavit heslo, které ho chrání. V Okno Microsoft Visual Basic pro aplikace, Klepněte na tlačítko Vložit > Modul otevřete prázdný modul a poté klikněte Tools > Vlastnosti VBAProject, viz screenshot:

doc-protect-hidden-sheets-03

5. Pak vyskočil Vlastnosti projektu VBAProject , klepněte na tlačítko OK Ochrana a potom zkontrolujte Uzamknout projekt pro prohlížení do pole nakonec zadejte a potvrďte heslo v poli Heslo pro zobrazení vlastností projektu sekce, viz screenshot:

doc-protect-hidden-sheets-04

6. Pak klikněte na tlačítko OK tlačítko pro ukončení tohoto dialogu a zavření Okno Microsoft Visual Basic pro aplikace.

7. Uložte sešit jako Sešit se zvýšeným makra Excel formát a zavřete jej, aby se ochrana heslem projevila.

doc-protect-hidden-sheets-05

8. Až příště otevřete tento sešit a chcete zviditelnit velmi skryté listy, budete požádáni o zadání hesla. Viz snímek obrazovky:

doc-protect-hidden-sheets-06


Demo: Nastavte heslo k ochraně skrytých listů


Nastavte heslo pro ochranu skrytého listu pomocí kódu VBA

Abych nastavil heslo na ochranu skrytých listů, mohu pro vás také mluvit o kódu VBA.

1. Skrýt jeden list, který chcete chránit.

2. Podržte ALT + F11 klávesy pro otevření Okno Microsoft Visual Basic pro aplikace.

3. Pak zvolte Tato pracovní kniha zleva Průzkumník projektupoklepáním otevřete soubor Modula poté zkopírujte a vložte následující kód VBA do prázdného modulu:

Kód VBA: Nastavte heslo k ochraně skrytého listu

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-protect-hidden-sheets-07

Poznámka: Ve výše uvedeném kódu, Sheet1 z xSheetName = "List1" skript je název skrytého listu, který chcete chránit, a 123456 v If response = "123456" Tak skript je heslo, které nastavíte pro skrytý list. Můžete je podle potřeby změnit.

4. Nyní, když chcete zobrazit skrytý list, se zobrazí okno s výzvou k zadání hesla. Toto pole se zobrazí pokaždé, když klepnutím zobrazíte skrytý list.

doc-protect-hidden-sheets-08


Chraňte více pracovních listů najednou pomocí Kutools pro Excel

Pokud chcete chránit více vybraných nebo všech listů sešitu najednou, obvykle je musíte chránit jeden po druhém ručně v aplikaci Excel. Ale pokud ano Kutools pro Excel, S jeho Chraňte pracovní list nástroj, můžete je chránit jedním kliknutím.

Kutools pro Excel : s více než 300 praktickými doplňky Excel, můžete si je vyzkoušet bez omezení do 30 dnů

Po instalaci Kutools pro Excel, postupujte následovně:

1, klikněte Kutools Plus > Chraňte pracovní list, viz screenshot:

2. V Chraňte pracovní list V dialogovém okně jsou všechny listy v sešitu uvedeny v seznamu, vyberte listy, které chcete chránit. Viz snímek obrazovky:

doc-protect-hidden-sheets-010

3. A pak klikněte na tlačítko OK, v následujícím dialogovém okně zadejte heslo a znovu jej zadejte, poté klikněte na OK, vyskočí další výzva, která vám připomene, kolik pracovních listů bylo chráněno.

doc-protect-hidden-sheets-011

4. Pak klikněte na tlačítko OK zavřete dialogy a všechny listy v sešitu byly chráněny stejným heslem.

Poznámka: Pokud chcete zrušit ochranu všech pracovních listů najednou, stačí kliknout Kutools Plus > Odemknout pracovní lista zrušte ochranu zadáním hesla.

 Stáhněte si zdarma zkušební verzi Kutools pro Excel!


Související články:

Jak chránit více listů najednou v aplikaci Excel?

Jak nastavit heslo k ochraně sešitu?

Jak chránit / uzamknout kód VBA v aplikaci Excel?

Nejlepší nástroje pro produktivitu v kanceláři

Populární funkce: Najít, zvýraznit nebo identifikovat duplikáty   |  Odstranit prázdné řádky   |  Kombinujte sloupce nebo buňky bez ztráty dat   |   Kolo bez vzorce ...
Super vyhledávání: Více kritérií VLookup    VLookup s více hodnotami  |   VLookup na více listech   |   Fuzzy vyhledávání ....
Pokročilý rozevírací seznam: Rychle vytvořte rozevírací seznam   |  Závislý rozbalovací seznam   |  Vícenásobný výběr rozevíracího seznamu ....
Správce sloupců: Přidejte konkrétní počet sloupců  |  Přesunout sloupce  |  Přepnout stav viditelnosti skrytých sloupců  |  Porovnejte rozsahy a sloupce ...
Doporučené funkce: Zaměření mřížky   |  Návrhové zobrazení   |   Velký Formula Bar    Správce sešitů a listů   |  Knihovna zdrojů (Automatický text)   |  Výběr data   |  Zkombinujte pracovní listy   |  Šifrovat/dešifrovat buňky    Odesílat e-maily podle seznamu   |  Super filtr   |   Speciální filtr (filtr tučné/kurzíva/přeškrtnuté...) ...
Top 15 sad nástrojů12 Text Tools (doplnit text, Odebrat znaky, ...)   |   50+ Graf Typ nemovitosti (Ganttův diagram, ...)   |   40+ Praktické Vzorce (Vypočítejte věk na základě narozenin, ...)   |   19 Vložení Tools (Vložte QR kód, Vložit obrázek z cesty, ...)   |   12 Konverze Tools (Čísla na slova, Přepočet měny, ...)   |   7 Sloučit a rozdělit Tools (Pokročilé kombinování řádků, Rozdělit buňky, ...)   |   ... a více

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...

karta kte 201905


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!
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