Ugrás a tartalomra

Hogyan állítsunk be jelszót a rejtett lap védelmére az Excelben?

Ha van egy munkafüzete, amely néhány fontos rejtett munkalapot tartalmaz, és ne engedje, hogy mások elrejtsék azokat. Most be kell állítania egy jelszót a rejtett munkalapok teljes védelme érdekében, amikor a többi felhasználó elrejti azokat, meg kell adnia a jelszót. Van valamilyen módja ennek a feladatnak a gyors és egyszerű kezelésére az Excel programban?

Jelszó beállítása a rejtett lapok védelmére a VeryHidden funkcióval

Jelszó beállítása a rejtett lap VBA kóddal történő védelméhez

Védje meg egyszerre több munkalapot a Kutools for Excel segítségével


Jelszó beállítása a rejtett lapok védelmére a VeryHidden funkcióval

Normál esetben a VeryHidden funkcióval előbb elrejtheti a munkalapokat, majd beállíthatja a jelszót, kérjük, tegye a következőket:

1. Nyissa meg a munkafüzetet, és tartsa lenyomva Alt + F11billentyűk megnyitásához Microsoft Visual Basic for Applications ablak.

2. Az Microsoft Visual Basic for Applications ablakkettyenés Megnézem > Project Explorer és a Tulajdonságok ablak to kiteszik ablakaikat.

01

3. És akkor a Projekt-VBAProject ablaktáblán válassza ki az elrejteni kívánt munkalapot, és a Ingatlanok panelen kattintson a legördülő listára a Látható szakasz kiválasztásához xlSheetVeryHidden opció, lásd a képernyőképet:

02

4. Miután nagyon elrejtette a munkalapot, beállíthat egy jelszót a védelem érdekében. Ban,-ben Microsoft Visual Basic for Applications ablakkettyenés betétlap > Modulok egy üres modul megnyitásához, majd kattintson a gombra Eszközök > VBAProject Tulajdonságok, lásd a képernyőképet:

03

5. Aztán beugrott VBAProject-Projekt tulajdonságai párbeszédpanelen kattintson a gombra Védelem lapot, majd ellenőrizze Zárja be a projektet megtekintésre mezőbe végül írja be és erősítse meg a jelszót a Jelszó a projekt tulajdonságainak megtekintéséhez szakasz, lásd a képernyőképet:

04

6. Ezután kattintson OK gombot a párbeszédpanelből való kilépéshez, majd a Microsoft Visual Basic for Applications ablak.

7. Mentse el a munkafüzetet Excel makró-engedélyezett munkafüzet formázza és zárja be, hogy érvénybe lépjen a jelszóvédelem.

05

8. Legközelebb, amikor megnyitja ezt a munkafüzetet, és láthatóvá akarja tenni a nagyon rejtett lapokat, akkor meg kell adnia egy jelszót. Lásd a képernyőképet:

06


Bemutató: Jelszó beállítása a rejtett lapok védelmére


Jelszó beállítása a rejtett lap VBA kóddal történő védelméhez

Jelszó beállításához az elrejtett lapok védelmére VBA-kódról is beszélhetek Önnek.

1. Rejtsen el egy védeni kívánt munkalapot.

2. Tartsa lenyomva a ALT + F11 billentyűk megnyitásához Microsoft Visual Basic for Applications ablak.

3. Ezután válasszon Ez a munkafüzet balról Project Explorer, kattintson duplán a fájl megnyitásához Modulok, majd másolja és illessze be a következő VBA kódot az üres modulba:

VBA kód: Jelszó beállítása a rejtett lap védelmére

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

07

Megjegyzések: A fenti kódban Sheet1 az xSheetName = "1. lap" a script a rejtett munkalap neve, amelyet meg akar védeni, és 123456 a Ha válasz = "123456" Akkor a szkript a rejtett laphoz beállított jelszó. Igény szerint megváltoztathatja őket.

4. Most, amikor meg akarja jeleníteni a rejtett lapot, megjelenik egy felszólító mező, amely lehetővé teszi a jelszó megadását. Ez a felszólító mező minden alkalommal megjelenik, amikor a rejtett lap megjelenítésére kattint.

08


Védje meg egyszerre több munkalapot a Kutools for Excel segítségével

Ha egy munkafüzet több kiválasztott vagy összes munkalapját egyszerre szeretné megvédeni, általában manuálisan egyenként kell megvédenie az Excel programban. De, ha van Kutools az Excel számára, Annak Munkalap védelme segédprogrammal, egyetlen kattintással megvédheti őket.

Kutools az Excel számára : több mint 300 praktikus Excel-bővítménnyel, ingyenesen, korlátozás nélkül, 30 nap alatt kipróbálható

Telepítése után Kutools az Excel számára, kérjük, tegye a következőket:

1. Kattints Kutools Plus > Munkalap védelme, lásd a képernyőképet:

2. Az Munkalap védelme párbeszédpanelen a munkafüzet összes munkalapja szerepel a listamezőben, válassza ki a védeni kívánt munkalapokat. Lásd a képernyőképet:

010

3. Kattintson a gombra OK, a következő párbeszédpanelen írja be a jelszavát, és írja be újra, majd kattintson a gombra OK, megjelenik egy újabb prompt doboz, amely emlékezteti Önt, hogy hány munkalapot védett.

011

4. Ezután kattintson OK a párbeszédpanelek bezárásához, és a munkafüzet összes munkalapja ugyanazzal a jelszóval lett védve.

Jegyzet: Ha egyszerre szeretné megvédeni az összes munkalapot, akkor csak rá kell kattintania Kutools Plus > A munkalap védelme megszüntetése, és írja be jelszavát a védelem törléséhez.

 Töltse le és ingyenes próbaverziója a Kutools for Excel programhoz most!


Kapcsolódó cikkek:

Hogyan védhetünk egyszerre több munkalapot az Excelben?

Hogyan állítsunk be jelszót a munkafüzet védelméhez?

Hogyan lehet megvédeni / lezárni a VBA kódot az Excelben?

A legjobb irodai hatékonyságnövelő eszközök

Népszerű szolgáltatások: Ismétlődések keresése, kiemelése vagy azonosítása   |  Üres sorok törlése   |  Oszlopok vagy cellák kombinálása adatvesztés nélkül   |   Kerek Formula nélkül ...
Szuper keresés: Több kritérium VLookup    Többértékű VLookup  |   VLookup több munkalapon   |   Fuzzy Lookup ....
Speciális legördülő lista: Gyors legördülő lista létrehozása   |  Függő legördülő lista   |  Többszörösen válassza ki a legördülő listát ....
Oszlopkezelő: Adjon meg egy adott számú oszlopot  |  Oszlopok mozgatása  |  Kapcsolja be a Rejtett oszlopok láthatósági állapotát  |  Tartományok és oszlopok összehasonlítása ...
Kiemelt funkciók: Rács fókusz   |  Design nézet   |   Nagy Formula bár    Munkafüzet és lapkezelő   |  Erőforrás-könyvtár (Auto szöveg)   |  Dátumválasztó   |  Kombinálja a munkalapokat   |  Cellák titkosítása/dekódolása    E-mailek küldése listánként   |  Szuper szűrő   |   Speciális szűrő (félkövér/dőlt/áthúzott szűrés...) ...
A 15 legjobb eszközkészlet12 szöveg Eszközök (Szöveg hozzáadása, Karakterek eltávolítása,...)   |   50 + Táblázatos Típusai (Gantt-diagram,...)   |   40+ Praktikus képletek (Számolja ki az életkort a születésnap alapján,...)   |   19 beszúrás Eszközök (Helyezze be a QR-kódot, Kép beszúrása az útvonalból,...)   |   12 Átalakítás Eszközök (Számok szavakig, Valuta átváltás,...)   |   7 Egyesítés és felosztás Eszközök (Haladó kombinált sorok, Hasított sejtek,...)   |   ... és több

Töltsd fel Excel-készségeidet a Kutools for Excel segítségével, és tapasztald meg a még soha nem látott hatékonyságot. A Kutools for Excel több mint 300 speciális funkciót kínál a termelékenység fokozásához és az időmegtakarításhoz.  Kattintson ide, hogy megszerezze a leginkább szükséges funkciót...

kte lap 201905


Az Office lap füles felületet hoz az Office-ba, és sokkal könnyebbé teszi a munkáját

  • Füles szerkesztés és olvasás engedélyezése Wordben, Excelben és PowerPointban, Publisher, Access, Visio és Project.
  • Több dokumentum megnyitása és létrehozása ugyanazon ablak új lapjain, mint új ablakokban.
  • 50% -kal növeli a termelékenységet, és naponta több száz kattintással csökkenti az egér kattintását!
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