Skip i'r prif gynnwys

Sut i ganiatáu golygu gwrthrychau mewn taflen waith warchodedig yn Excel?

Yn ddiofyn, ni ellir golygu'r gwrthrychau sydd wedi'u mewnosod fel siapiau, blychau testun ar ôl diogelu'r daflen waith. Os oes angen i chi olygu gwrthrychau mewn taflen waith warchodedig, rhowch gynnig ar y dulliau yn yr erthygl hon.

Caniatáu golygu gwrthrychau yn y daflen waith warchodedig trwy wirio'r opsiwn Golygu Gwrthrychau
Caniatáu golygu gwrthrychau mewn taflen waith warchodedig gyda chod VBA


Caniatáu golygu gwrthrychau yn y daflen waith warchodedig trwy wirio'r opsiwn Golygu Gwrthrychau

Gwiriwch yr opsiwn Golygu Gwrthrychau i ganiatáu golygu gwrthrychau cyn diogelu'r daflen waith. Gwnewch fel a ganlyn.

1. Cliciwch adolygiad > Diogelu Dalen.

2. Yn y Diogelu Dalen blwch deialog, nodwch gyfrinair yn y Cyfrinair i ddalen heb ddiogelwch blwch, a gwiriwch y Golygu gwrthrychau blwch yn y Caniatáu i holl ddefnyddwyr y daflen waith hon focsio, yna cliciwch ar y OK botwm. Cadarnhewch eich cyfrinair yn y cadarnhau Cyfrinair blwch deialog. Gweler y screenshot:

Nawr mae'r daflen waith wedi'i gwarchod ac mae modd golygu'r holl wrthrychau yn y daflen waith warchodedig hon.


Caniatáu golygu gwrthrychau mewn taflen waith warchodedig gyda chod VBA

Os yw'r daflen waith eisoes wedi'i gwarchod, gallwch roi cynnig ar y sgript VBA isod i ganiatáu golygu gwrthrychau. Gwnewch fel a ganlyn.

1. Gwasgwch y Alt + F11 allweddi ar yr un pryd i agor y Microsoft Visual Basic ar gyfer Ceisiadau ffenestr.

2. Yn y Microsoft Visual Basic ar gyfer Ceisiadau ffenestr, cliciwch ddwywaith Llyfr Gwaith hwn yn y chwith Prosiect cwarel. Yna copïwch a gludwch y cod VBA isod i'r Y Llyfr Gwaith hwn (Cod) ffenestr.

Cod VBA: Caniatáu golygu gwrthrychau mewn taflen waith warchodedig

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

Nodyn: Yn y cod, Sheet3 yw'r daflen waith warchodedig sy'n cynnwys y gwrthrychau y mae angen i chi eu golygu. A rhif “123” yw cyfrinair y ddalen warchodedig. Newidiwch nhw yn ôl yr angen.

3. Gwasgwch y F5 allweddi i redeg y cod, ac mae modd golygu'r holl wrthrychau yn y daflen waith warchodedig hon ar unwaith.


Erthyglau perthnasol:

Offer Cynhyrchiant Swyddfa Gorau

🤖 Kutools AI Aide: Chwyldro dadansoddi data yn seiliedig ar: Cyflawniad Deallus   |  Cynhyrchu Cod  |  Creu Fformiwlâu Personol  |  Dadansoddi Data a Chynhyrchu Siartiau  |  Invoke Swyddogaethau Kutools...
Nodweddion Poblogaidd: Darganfod, Amlygu neu Adnabod Dyblygiadau   |  Dileu Rhesi Gwag   |  Cyfuno Colofnau neu Gelloedd heb Colli Data   |   Rownd heb Fformiwla ...
Super-edrych: VLookup Meini Prawf Lluosog    VLookup Gwerth Lluosog  |   VLookup Ar Draws Taflenni Lluosog   |   Edrych Niwlog ....
Rhestr gwympo Uwch: Creu Rhestr Gollwng yn Gyflym   |  Rhestr Gollwng Dibynnol   |  Rhestr Gollwng Aml-ddewis ....
Rheolwr Colofn: Ychwanegu Nifer Penodol o Golofnau  |  Symud Colofnau  |  Toglo Statws Gwelededd Colofnau Cudd  |  Cymharwch Ystodau a Cholofnau ...
Nodweddion dan Sylw: Ffocws ar y Grid   |  Golwg Dylunio   |   Bar Fformiwla Mawr    Rheolwr Llyfr Gwaith a Thaflen   |  Llyfrgell Adnoddau (Testun Auto)   |  Dewiswr Dyddiad   |  Cyfuno Taflenni Gwaith   |  Amgryptio/Dadgryptio Celloedd    Anfon E-byst trwy Restr   |  Hidlo Super   |   Hidlo Arbennig (hidlo mewn print trwm/italig/strikethrough...) ...
15 Set Offer Gorau12 Testun offer (Ychwanegu Testun, Dileu Cymeriadau,...)   |   50 + Siart Mathau (Siart Gantt,...)   |   40+ Ymarferol Fformiwlâu (Cyfrifwch oedran yn seiliedig ar ben-blwydd,...)   |   19 mewnosod offer (Mewnosod Cod QR, Mewnosod Llun o'r Llwybr,...)   |   12 Trosi offer (Rhifau i Eiriau, Trosi arian cyfred,...)   |   7 Uno a Hollti offer (Rhesi Cyfuno Uwch, Celloedd Hollt,...)   |   ... a mwy

Supercharge Eich Sgiliau Excel gyda Kutools ar gyfer Excel, a Phrofiad Effeithlonrwydd Fel Erioed Erioed. Kutools ar gyfer Excel Yn Cynnig Dros 300 o Nodweddion Uwch i Hybu Cynhyrchiant ac Arbed Amser.  Cliciwch Yma i Gael Y Nodwedd Sydd Ei Angen Y Mwyaf...

Disgrifiad


Mae Office Tab yn dod â rhyngwyneb Tabbed i Office, ac yn Gwneud Eich Gwaith yn Haws o lawer

  • Galluogi golygu a darllen tabbed yn Word, Excel, PowerPoint, Cyhoeddwr, Mynediad, Visio a Phrosiect.
  • Agor a chreu dogfennau lluosog mewn tabiau newydd o'r un ffenestr, yn hytrach nag mewn ffenestri newydd.
  • Yn cynyddu eich cynhyrchiant 50%, ac yn lleihau cannoedd o gliciau llygoden i chi bob dydd!
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