Kako nastaviti gesla za zaščito posameznih delovnih listov s strani uporabnikov v Excelu?
V Excelu lahko nastavite različna gesla za različne liste, kar pomeni, da lahko en uporabnik spreminja en delovni list z enim geslom, drugi pa lahko uporablja drugo geslo za spreminjanje drugega delovnega lista. Toda včasih želite le, da ima vsak uporabnik možnost ogleda in dostopa do svojega lista. Ali je to mogoče rešiti v Excelu?
Če želite zaščititi vsak delovni list posebej in omejiti dostop uporabnikov do delovnih listov, uporabite spodnjo kodo VBA:
1. Odprite nov delovni zvezek in ustvarite nov list z imenom »Glavni«, glejte posnetek zaslona:
2. Nato pritisnite Alt + F11 tipke za odpiranje Microsoft Visual Basic za aplikacije okno, dvokliknite Ta delovni zvezek z leve Projekt-VBAProjekt podoknu, da odprete modul s prazno kodo, nato pa kopirajte in prilepite naslednjo kodo VBA v okno s kodo, glejte posnetek zaslona:
Koda VBA: Nastavite gesla za zaščito posameznih listov s strani uporabnikov
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. Nato postavite kazalec na konec Zasebni delovni zvezek_Open() in pritisnite F5 ključ za zagon te kode. Zdaj v prikazano okno za poziv vnesite uporabniško ime, s katerim želite ustvariti list za tega uporabnika, glejte posnetek zaslona:
4. In nato kliknite OK v naslednjem pozivnem polju vnesite geslo za zaščito tega lista, glejte posnetek zaslona:
5. Pojdi na klik OK in takoj se ustvari nov list, poimenovan z uporabniškim imenom, in za tega uporabnika lahko ustvarite podatke, kot jih potrebujete. Oglejte si posnetek zaslona:
6. Ponovite zgornji korak 3 – korak 5 za ustvarjanje drugih listov enega za drugim, ki jih želite uporabiti.
7. Po izdelavi listov s klikom shranite trenutni delovni zvezek file > Shrani kot., V Shrani kot pogovornem oknu določite ime datoteke in nato izberite Excelov delovni zvezek z omogočeno makro (* .xlsm) format iz Shrani kot vrsto spustni seznam, glej posnetek zaslona:
8. Nato kliknite gumb Shrani, da shranite to datoteko.
9. Nato zaprite delovni zvezek in ga znova odprite ter kliknite Omogoči vsebino na vrhu vrstice s formulami, da aktivirate kodo, glejte posnetek zaslona:
10. Zdaj se prikaže okno s pozivom, ki vas opomni, da vnesete uporabniško ime in geslo, da odprete določen list s strani določenega uporabnika.
11. Končno, ko pošiljate ta delovni zvezek drugim uporabnikom, morate uporabniku poslati uporabniško ime in geslo. Odpirajo in urejajo samo svoje liste in nimajo pooblastila za ogled drugih delovnih listov.
Najboljša orodja za pisarniško produktivnost
Kutools za Excel rešuje večino vaših težav in poveča vašo produktivnost za 80%
- Vrstica Super Formula (enostavno urejanje več vrstic besedila in formule); Bralna postavitev (enostavno branje in urejanje velikega števila celic); Prilepite v filtrirani obseg...
- Združi celice / vrstice / stolpce in vodenje podatkov; Vsebina razdeljenih celic; Združite podvojene vrstice in vsoto / povprečje... prepreči podvojene celice; Primerjaj obsege...
- Izberite Duplicate ali Unique Vrstice; Izberite prazne vrstice (vse celice so prazne); Super Find in Fuzzy Find v mnogih delovnih zvezkih; Naključna izbira ...
- Natančna kopija Več celic brez spreminjanja sklica formule; Samodejno ustvarjanje referenc na več listov; Vstavi oznake, Potrditvena polja in še več ...
- Priljubljene in hitro vstavite formule, Obsegi, grafikoni in slike; Šifriraj celice z geslom; Ustvari poštni seznam in pošiljanje e-pošte ...
- Izvleček besedila, Dodaj besedilo, Odstrani po položaju, Odstrani presledek; Ustvari in natisni vmesne seštevke strani Pretvarjanje med vsebino celic in komentarji...
- Super filter (shranite in uporabite sheme filtrov za druge liste); Napredno razvrščanje glede na mesec / teden / dan, pogostost in drugo; Poseben filter s krepko, ležeče ...
- Združite delovne zvezke in delovne liste; Spoji tabele na podlagi ključnih stolpcev; Razdelite podatke na več listov; Paketna pretvorba xls, xlsx in PDF...
- Razvrščanje vrtilne tabele po številka tedna, dan v tednu in še več ... Prikaži odklenjene, zaklenjene celice po različnih barvah; Označite celice s formulo / imenom...
- 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!
