Ugrás a tartalomra

Hogyan állíthatok be jelszavakat az egyes munkalapok védelmére az Excelben?

Szerző: Xiaoyang Utolsó módosítás: 2022-09-23

Az Excelben különböző jelszavakat állíthat be a különböző munkalapokhoz, ami azt jelenti, hogy az egyik felhasználó egy jelszóval módosíthatja az egyik munkalapot, a másik pedig egy másik jelszóval módosíthat egy másik munkalapot. De néha csak azt szeretné, hogy minden felhasználó megtekinthesse és hozzáférhessen a saját lapjához. Megoldható ez Excelben?


Az egyes munkalapok egyenkénti védelméhez és a felhasználók hozzáférésének korlátozásához használja az alábbi VBA-kódot:

1. Nyisson meg egy új munkafüzetet, és hozzon létre egy új lapot „Fő” néven, lásd a képernyőképet:

2. Ezután nyomja meg a gombot Alt + F11 billentyűk megnyitásához Microsoft Visual Basic for Applications ablakban kattintson duplán Ez a munkafüzet balról Projekt-VBAProject ablaktáblát egy üres kódmodul megnyitásához, majd másolja és illessze be a következő VBA-kódot a kódablakba, lásd a képernyőképet:

VBA-kód: Jelszavak beállítása az egyes lapok felhasználók általi védelméhez

Option Explicit
Dim gUserName As String
Dim gUserPass As String
Private Sub Workbook_Open()
'Updateby ExtendOffice
Dim xWShs As Sheets
Dim xWSh As Worksheet
Dim xUserName As String
Dim xPass As String
Dim xBolH As Boolean
GTINPUT:
xUserName = InputBox("Enter the user name")
If TypeName(xUserName) = "String" Then
    If xUserName = "" Then
        Exit Sub
    End If
End If
xUserName = LCase(xUserName)
xPass = InputBox("User name:" & xUserName & Chr(13) & Chr(10) & "Enter the password:")
If TypeName(xPass) = "String" Then
    If xPass = "" Then
    MsgBox "The password is incorrect, please enter the user name and password again."
    GoTo GTINPUT
    End If
Else
    MsgBox "The password is incorrect, please enter the user name and password again."
    GoTo GTINPUT
End If
Set xWShs = Worksheets
xBolH = False
For Each xWSh In Worksheets
    If xWSh.Name = xUserName Then
    xBolH = True
    Exit For
    End If
Next
If xBolH Then
Set xWSh = xWShs(xUserName)
On Error GoTo GTINPUT2
xWSh.Unprotect (xPass)
xWSh.Visible = True
xWSh.Activate
Else
Set xWSh = xWShs.Add
xWSh.Name = xUserName
xWSh.Activate
End If
gUserName = xUserName
gUserPass = xPass
Exit Sub
GTINPUT2:
    MsgBox "The password is incorrect, please enter the user name and password again."
    GoTo GTINPUT
End Sub
Private Sub Workbook_BeforeClose(Cancel As Boolean)
Dim xWSh As Worksheet
On Error Resume Next
Set xWSh = Worksheets(gUserName)
xWSh.Protect Password:=gUserPass, DrawingObjects:=False, Contents:=True, Scenarios:= _
False, AllowFormattingCells:=True, AllowFormattingColumns:=True, _
AllowFormattingRows:=True, AllowInsertingColumns:=True, AllowInsertingRows _
:=True, AllowInsertingHyperlinks:=True, AllowDeletingColumns:=True, _
AllowDeletingRows:=True, AllowSorting:=True, AllowFiltering:=True, _
AllowUsingPivotTables:=True
For Each xWSh In Worksheets
    If xWSh.Name <> "Main" Then
        xWSh.Visible = xlSheetVeryHidden
    End If
Next xWSh
ActiveWorkbook.Save
End Sub

3. Ezután helyezze a kurzort a végére Private Sub Workbook_Open () szkriptet, és nyomja meg a gombot F5 kulcs a kód futtatásához. Most a kiugró prompt mezőbe írja be a felhasználó nevét, amelyhez lapot szeretne létrehozni, lásd a képernyőképet:

4. Ezután kattintson OK gombot, a következő prompt mezőben adjon meg egy jelszót a lap védelméhez, lásd a képernyőképet:

5. Kattintson a gombra OK gombot, és azonnal létrejön egy új, a felhasználónévvel ellátott lap, és szükség szerint létrehozhatja az adott felhasználó adatait. Lásd a képernyőképet:

6. Ismételje meg a fenti 3. lépést – 5. lépést további használni kívánt lapok egyenkénti létrehozásához.

7. A lapok létrehozása után kattintson az aktuális munkafüzetre filé > Mentés másként., Ban,-ben Mentés másként párbeszédpanelen adjon meg egy fájlnevet, majd válassza ki Excel makró-engedélyezett munkafüzet (* .xlsm) formátumot a Mentés típus legördülő lista, lásd a képernyőképet:

8. Ezután kattintson a Mentés gombra a fájl mentéséhez.

9. Ezután zárja be a munkafüzetet, nyissa meg újra, majd kattintson Engedélyezze a tartalmat a képletsor tetején a kód aktiválásához lásd a képernyőképet:

10. Most egy prompt ablak jelenik meg, amely emlékezteti Önt, hogy adja meg a felhasználónevet és a jelszót az adott lap bizonyos felhasználó általi megnyitásához.

11. Végül, amikor elküldi ezt a munkafüzetet más felhasználóknak, el kell küldenie a felhasználó nevét és jelszavát. Csak a saját munkalapjaikat nyitják meg és szerkesztik, és nincs jogosultságuk más munkalapok megtekintéséhez.


  • Szuper Formula Bár (könnyedén szerkeszthet több szöveget és képletet); Olvasás elrendezés (könnyen olvasható és szerkeszthető nagyszámú cella); Beillesztés a Szűrt tartományba...
  • Cellák / sorok / oszlopok egyesítése és az adatok megőrzése; Osztott cellák tartalma; Kombinálja az ismétlődő sorokat és az Összeg / Átlagot... megakadályozza az ismétlődő cellákat; Hasonlítsa össze a tartományokat...
  • Válassza a Másolat vagy az Egyedi lehetőséget Sorok; Válassza az Üres sorok lehetőséget (az összes cella üres); Super Find és Fuzzy Find sok munkafüzetben; Véletlenszerű kiválasztás ...
  • Pontos másolás Több cella a képletreferencia megváltoztatása nélkül; Automatikus referenciák létrehozása több lapra; Helyezze be a golyókat, Jelölőnégyzetek és még sok más ...
  • Kedvenc és gyorsan beszúrható képletek, Tartományok, diagramok és képek; Cellák titkosítása jelszóval; Levelezőlista létrehozása és e-maileket küldeni ...
  • Kivonat szöveg, Szöveg hozzáadása, Eltávolítás pozíció szerint, Hely eltávolítása; Hozz létre és nyomtasson személyhívó részösszegeket; Konvertálás a cellatartalom és a megjegyzések között...
  • Szuper szűrő (mentse el és alkalmazza a szűrősémákat más lapokra); Haladó rendezés hónap / hét / nap, gyakoriság és egyebek szerint; Speciális szűrő félkövér, dőlt betűvel ...
  • Kombinálja a munkafüzeteket és a munkalapokat; Táblázatok egyesítése kulcsoszlopok alapján; Az adatok felosztása több lapra; Kötegelt konvertálás xls, xlsx és PDF...
  • Pivot tábla csoportosítás hét száma, a hét napja és egyebek ... Mutassa a Feloldott, Zárt cellákat különböző színekkel; Jelölje ki azokat a cellákat, amelyeknek képlete / neve van...
kte lap 201905
  • 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!
officetab alja
Comments (1)
No ratings yet. Be the first to rate!
This comment was minimized by the moderator on the site
How would you then allow for an admin user to see all of those password protected sheets?
There are no comments posted here yet
Leave your comments
Posting as Guest
×
Rate this post:
0   Characters
Suggested Locations