Note: The other languages of the website are Google-translated. Back to English

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:


Yr Offer Cynhyrchedd Swyddfa Gorau

Mae Kutools for Excel yn Datrys y rhan fwyaf o'ch Problemau, ac yn Cynyddu Eich Cynhyrchedd 80%

  • Ailddefnyddio: Mewnosod yn gyflym fformwlâu cymhleth, siartiau ac unrhyw beth rydych chi wedi'i ddefnyddio o'r blaen; Amgryptio Celloedd gyda chyfrinair; Creu Rhestr Bostio ac anfon e-byst ...
  • Bar Fformiwla Gwych (golygu llinellau lluosog o destun a fformiwla yn hawdd); Cynllun Darllen (darllen a golygu nifer fawr o gelloedd yn hawdd); Gludo i'r Ystod Hidlo...
  • Uno Celloedd / Rhesi / Colofnau heb golli Data; Cynnwys Celloedd Hollt; Cyfuno Rhesi / Colofnau Dyblyg... Atal Celloedd Dyblyg; Cymharwch y Meysydd...
  • Dewiswch Dyblyg neu Unigryw Rhesi; Dewiswch Blank Rows (mae pob cell yn wag); Darganfyddiad Gwych a Darganfyddiad Niwlog mewn Llawer o Lyfrau Gwaith; Dewis ar Hap ...
  • Copi Union Celloedd Lluosog heb newid cyfeirnod fformiwla; Auto Creu Cyfeiriadau i Daflenni Lluosog; Mewnosod Bwledi, Blychau Gwirio a mwy ...
  • Testun Detholiad, Ychwanegu Testun, Tynnu yn ôl Swydd, Tynnwch y Gofod; Creu ac Argraffu Subtotals Paging; Trosi rhwng Cynnwys a Sylwadau Celloedd...
  • Hidlo Super (arbed a chymhwyso cynlluniau hidlo i ddalenni eraill); Trefnu Uwch yn ôl mis / wythnos / dydd, amlder a mwy; Hidlo Arbennig gan feiddgar, italig ...
  • Cyfuno Llyfrau Gwaith a Thaflenni Gwaith; Uno Tablau yn seiliedig ar golofnau allweddol; Rhannwch Ddata yn Daflenni Lluosog; Trosi Swp xls, xlsx a PDF...
  • Mwy na 300 o nodweddion pwerus. Yn cefnogi Swyddfa / Excel 2007-2019 a 365. Yn cefnogi pob iaith. Defnydd hawdd yn eich menter neu sefydliad. Nodweddion llawn treial am ddim 30 diwrnod. Gwarant arian yn ôl 60 diwrnod.
tab kte 201905

Mae Tab Office yn Dod â rhyngwyneb Tabbed i'r Swyddfa, a 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!
gwaelod officetab
sylwadau (1)
Dim sgôr eto. Byddwch y cyntaf i sgorio!
Lleihawyd y sylw hwn gan y safonwr ar y wefan
Heia,
diolch am yr erthygl ddefnyddiol. Ceisiais y dull Cod VBA ond nid yw'n gweithio'n iawn i mi.


Fy Nghod (sori am ei fformatio, methu ei gopïo a'i gludo):


Is-lyfr gwaith_Agored ()

Dim ws Fel Taflen Waith

Ar gyfer Pob ws Mewn Taflenni Gwaith

ws.Protect UserInterfaceOnly:=Gwir, Cyfrinair:="123"

ws.Enable AutoFilter = Gwir

ws.EnableOutlining = Gwir

Os ActiveSheet.Protection.AllowFormattingColumns = Gau Yna

ActiveSheet.Protect AllowFormattingColumns:=Gwir

Gorffennwch Os

Gyda thaflenni gwaith ("Taflen 1")

.EnableOutlining = Gwir

.EnableAutoFilter = Gwir

.Protect Password:="123", _

Cynnwys:=Gwir, DrawingObjects:=Gau, UserInterfaceOnly:=Gwir

Diwedd Gyda

ws nesaf

Is-End


Mae'n gweithio'n iawn ond cyn gynted ag y byddaf yn arbed, yn cau ac yn ailagor y ffeil, rwyf naill ai

- gofynnwyd i fewnosod y Cyfrinair (fel 5 gwaith) ar unwaith neu

- gallu dileu'r amddiffyniad heb unrhyw Gyfrinair ar gyfer un o'r taflenni gwaith (fel arfer "Taflen 1" fel yn y Cod)


Ydy rhywun yn cael yr un camgymeriad â mi? Neu a all rhywun fy helpu?


Diolch i chi ymlaen llaw.


BR

Vanessa
Nid oes unrhyw sylwadau wedi'u postio yma eto
Gadewch eich sylwadau
Postio fel Gwestai
×
Graddiwch y swydd hon:
0   Cymeriadau
Lleoliadau a Awgrymir