Preskoči na glavno vsebino

Kako nastaviti geslo za zaščito skritega lista v Excelu?

Če imate delovni zvezek, ki vsebuje nekaj pomembnih skritih delovnih listov, in ne dovolite, da jih drugi razkrijejo. Zdaj morate nastaviti geslo, da v celoti zaščitite skrite delovne liste, ko jih drugi uporabniki razkrijejo, morajo vnesti geslo. Ali imate na način, kako se v Excelu hitro in enostavno spoprijeti s to nalogo?

Nastavite geslo za zaščito skritih listov s funkcijo VeryHidden

Nastavite geslo za zaščito skritega lista s kodo VBA

Zaščitite več delovnih listov hkrati s programom Kutools za Excel


Nastavite geslo za zaščito skritih listov s funkcijo VeryHidden

Običajno lahko s funkcijo VeryHidden najprej skrijete delovne liste in nato zanje nastavite geslo. Naredite naslednje:

1. Odprite delovni zvezek in pridržite Alt + F11tipke za odpiranje Okno Microsoft Visual Basic for Applications.

2. v Okno Microsoft Visual Basic for Applications, Kliknite Poglej > Raziskovalec projektov in Okno z lastnostmi to prikazati njihova podokna.

doc-zaščitite-skrite-liste-01

3. In potem v Projekt-VBAProjekt v podoknu izberite delovni list, ki ga želite skriti, in v Nepremičnine v podoknu kliknite spustni seznam v vidno izberite xlSheetVeryHidden možnost, glej posnetek zaslona:

doc-zaščitite-skrite-liste-02

4. Ko je delovni list zelo skrit, lahko za zaščito nastavite geslo. V Okno Microsoft Visual Basic for Applications, Kliknite Vstavi > Moduli , da odprete prazen modul, in nato kliknite Orodja > Lastnosti VBAProject, glej posnetek zaslona:

doc-zaščitite-skrite-liste-03

5. Potem v izskočil Lastnosti projekta VBAProject-Project pogovorno okno, kliknite Zaščita kartico in nato preverite Zakleni projekt za ogled , na koncu vnesite in potrdite geslo v Geslo za ogled lastnosti projekta razdelek, glej posnetek zaslona:

doc-zaščitite-skrite-liste-04

6. Nato kliknite OK , da zaprete to pogovorno okno in zaprete Okno Microsoft Visual Basic for Applications.

7. Shranite delovni zvezek kot Excelov delovni zvezek z omogočeno makro formatirajte in zaprite, da začne veljati zaščita z geslom.

doc-zaščitite-skrite-liste-05

8. Ko boste naslednjič odprli ta delovni zvezek in želite, da bodo vidni zelo skriti listi, boste morali vnesti geslo. Oglejte si posnetek zaslona:

doc-zaščitite-skrite-liste-06


Predstavitev: nastavite geslo za zaščito skritih listov


Nastavite geslo za zaščito skritega lista s kodo VBA

Če želite nastaviti geslo za zaščito skritih listov, lahko za vas govorim tudi o kodi VBA.

1. Skrijte en delovni list, ki ga želite zaščititi.

2. Držite tipko ALT + F11 tipke za odpiranje Okno Microsoft Visual Basic for Applications.

3. Potem izberite Ta delovni zvezek z leve Raziskovalec projektov, dvokliknite, da odprete Moduliin nato v prazen modul kopirajte in prilepite naslednjo kodo VBA:

Koda VBA: nastavite geslo za zaščito skritega lista

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-zaščitite-skrite-liste-07

Opombe: V zgornji kodi, Sheet1 od xSheetName = "List1" skript je ime skritega delovnega lista, ki ga želite zaščititi, in 123456 v Če je odgovor = "123456", potem skript je geslo, ki ste ga nastavili za skriti list. Lahko jih spremenite po svojih potrebah.

4. Zdaj, ko želite prikazati skriti list, se prikaže pozivno polje, v katerem lahko vnesete geslo. In to pozivno polje se bo prikazalo vsakič, ko kliknete za prikaz skritega lista.

doc-zaščitite-skrite-liste-08


Zaščitite več delovnih listov hkrati s programom Kutools za Excel

Če želite hkrati zaščititi več izbranih ali vseh delovnih listov delovnega zvezka, morate v Excelu ročno zaščititi enega za drugim. Ampak, če že imate Kutools za Excel, Z njegovim Zaščitite delovni list pripomoček, jih lahko zaščitite z enim klikom.

Kutools za Excel : z več kot 300 priročnimi dodatki za Excel, ki jih lahko brezplačno preizkusite v 30 dneh

Po namestitvi Kutools za Excel, naredite naslednje:

1. Kliknite Kutools Plus > Zaščitite delovni list, glej posnetek zaslona:

2. v Zaščitite delovni list V pogovornem oknu so vsi delovni listi v delovnem zvezku navedeni v seznamskem polju, izberite delovne liste, ki jih želite zaščititi. Oglejte si posnetek zaslona:

doc-zaščitite-skrite-liste-010

3. In nato kliknite OK, v naslednje pogovorno okno vnesite geslo in ga znova vnesite, nato kliknite OK, se odpre novo okno z opozorilom, koliko delovnih listov je zaščitenih.

doc-zaščitite-skrite-liste-011

4. Nato kliknite OK da zaprete pogovorna okna, vsi delovni listi v delovnem zvezku pa so zaščiteni z istim geslom.

Opomba: Če želite hkrati odstraniti zaščito vseh delovnih listov, morate samo klikniti Kutools Plus > Odstranite zaščito delovnega listain vnesite geslo, da prekličete zaščito.

 Prenesite in brezplačno preizkusite Kutools za Excel zdaj!


Sorodni članki:

Kako zaščititi več delovnih listov hkrati v Excelu?

Kako nastaviti geslo za zaščito delovnega zvezka?

Kako zaščititi / zakleniti kodo VBA v Excelu?

Najboljša pisarniška orodja za produktivnost

🤖 Kutools AI Aide: Revolucionirajte analizo podatkov na podlagi: Inteligentna izvedba   |  Ustvari kodo  |  Ustvarite formule po meri  |  Analizirajte podatke in ustvarite grafikone  |  Prikličite funkcije Kutools...
Priljubljene funkcije: Poiščite, označite ali identificirajte dvojnike   |  Izbriši prazne vrstice   |  Združite stolpce ali celice brez izgube podatkov   |   Krog brez formule ...
Super iskanje: Več kriterijev VLookup    Multiple Value VLookup  |   VLookup na več listih   |   Nejasno iskanje ....
Napredni spustni seznam: Hitro ustvarite spustni seznam   |  Odvisni spustni seznam   |  Večkrat izberite spustni seznam ....
Upravitelj stolpcev: Dodajte določeno število stolpcev  |  Premakni stolpce  |  Preklop stanja vidnosti skritih stolpcev  |  Primerjaj obsege in stolpce ...
Predstavljene funkcije: Mrežni fokus   |  Pogled oblikovanja   |   Velika vrstica formule    Upravitelj delovnih zvezkov in listov   |  Knjižnica virov (Samodejno besedilo)   |  Izbirnik datuma   |  Združite delovne liste   |  Šifriranje/dešifriranje celic    Pošljite e-pošto po seznamu   |  Super filter   |   Poseben filter (filter krepko/ležeče/prečrtano ...) ...
15 najboljših kompletov orodij12 Besedilo Orodja (dodajanje besedila, Odstrani znake,...)   |   50 + Graf Vrste (Gantt Chart,...)   |   40+ Praktično Formule (Izračunajte starost glede na rojstni dan,...)   |   19 vstavljanje Orodja (Vstavite kodo QR, Vstavi sliko s poti,...)   |   12 Pretvorba Orodja (Številke v besede, Pretvorba valut,...)   |   7 Spoji in razdeli Orodja (Napredne kombinirane vrstice, Razdeljene celice,...)   |   ... in več

Napolnite svoje Excelove spretnosti s Kutools za Excel in izkusite učinkovitost kot še nikoli prej. Kutools za Excel ponuja več kot 300 naprednih funkcij za povečanje produktivnosti in prihranek časa.  Kliknite tukaj, če želite pridobiti funkcijo, ki jo najbolj potrebujete...

Opis


Kartica Office prinaša vmesnik z zavihki v Office in poenostavi vaše delo

  • Omogočite urejanje in branje z zavihki v Wordu, Excelu, PowerPointu, Publisher, Access, Visio in Project.
  • Odprite in ustvarite več dokumentov v novih zavihkih istega okna in ne v novih oknih.
  • Poveča vašo produktivnost za 50%in vsak dan zmanjša na stotine klikov miške za vas!
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