Preskoči na glavno vsebino

Kako dovoliti urejanje predmetov na zaščitenem delovnem listu v Excelu?

Privzeto vstavljenih predmetov, kot so oblike, besedilna polja, ni mogoče urejati po zaščiti delovnega lista. Če morate urejati predmete na zaščitenem delovnem listu, preizkusite metode v tem članku.

Omogočite urejanje predmetov na zaščitenem delovnem listu tako, da potrdite možnost Uredi predmete
Dovoli urejanje predmetov na zaščitenem delovnem listu s kodo VBA


Omogočite urejanje predmetov na zaščitenem delovnem listu tako, da potrdite možnost Uredi predmete

Pred zaščito delovnega lista potrdite možnost Uredi predmete, če želite dovoliti urejanje predmetov. Naredite naslednje.

1. klik pregled > Zaščitite list.

2. V Ljubljani Zaščitite list v pogovornem oknu določite geslo v Geslo, da odstranite list in potrdite polje Urejanje predmetov v polju Dovoli vsem uporabnikom tega delovnega lista, nato kliknite OK . Potrdite svoje geslo v potrdi geslo pogovorno okno. Oglejte si posnetek zaslona:

Zdaj je delovni list zaščiten in vse predmete na tem zaščitenem delovnem listu je mogoče urejati.


Dovoli urejanje predmetov na zaščitenem delovnem listu s kodo VBA

Če je delovni list že zaščiten, lahko poskusite spodnji skript VBA, da omogočite urejanje predmetov. Naredite naslednje.

1. Pritisnite druga + F11 tipke hkrati, da odprete Microsoft Visual Basic za aplikacije okno.

2. V Ljubljani Microsoft Visual Basic za aplikacije okno, dvokliknite Ta delovni zvezek na levi Projekt podokno. Nato kopirajte in prilepite spodnjo kodo VBA v ThisWorkbook (koda) okno.

Koda VBA: dovoli urejanje predmetov na zaščitenem delovnem listu

Private Sub Workbook_Open()
    Application.ScreenUpdating = False
    On Error Resume Next
    With Worksheets("Sheet3")
        .EnableOutlining = True
        .EnableAutoFilter = True
        .Protect Password:="123", _
        Contents:=True, DrawingObjects:=False, UserInterfaceOnly:=True, _
        AllowFormattingCells:=True
    End With
    Application.ScreenUpdating = True
End Sub

Opombe: V kodi je Sheet3 zaščiten delovni list, ki vsebuje predmete, ki jih morate urediti. In številka "123" je geslo zaščitenega lista. Prosimo, spremenite jih po potrebi.

3. Pritisnite F5 tipke za zagon kode in vse predmete na tem zaščitenem delovnem listu je mogoče takoj urejati.


Sorodni članki:

Najboljša pisarniška orodja za produktivnost

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

zavihek kte 201905


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 (1)
No ratings yet. Be the first to rate!
This comment was minimized by the moderator on the site
Hi,
thanks for the helpful article. I tried the VBA Code method but it doesn't quite work for me.


My Code (sorry for formatting, couldn't copy&past it):


Sub Workbook_Open ()

Dim ws As Worksheet

For Each ws In Worksheets

ws.Protect UserInterfaceOnly:=True, Password:="123"

ws.Enable AutoFilter = True

ws.EnableOutlining = True

If ActiveSheet.Protection.AllowFormattingColumns = False Then

ActiveSheet.Protect AllowFormattingColumns:=True

End If

With Worksheets ("Sheet1")

.EnableOutlining = True

.EnableAutoFilter = True

.Protect Password:="123", _

Contents:=True, DrawingObjects:=False, UserInterfaceOnly:=True

End With

Next ws

End Sub


It works just fine but as soon as I'm saving, closing and reopening the file, I am either

- requested to insert the Password (like 5 times) immediately or

- able to remove the protection without any Password for one of the worksheets (usually "Sheet1" as in the Code)


Is somebody getting the same error as me? Or can somebody help me?


Thank you in advance.


BR

Vanessa
There are no comments posted here yet
Please leave your comments in English
Posting as Guest
×
Rate this post:
0   Characters
Suggested Locations