Skip i'r prif gynnwys

Sut i amddiffyn nifer o daflenni gwaith ar unwaith yn Excel?

Gan dybio bod gennych lyfr gwaith sy'n cynnwys nifer o daflenni gwaith, ac yn awr mae angen i chi amddiffyn yr holl daflenni gwaith neu rai taflenni gwaith penodol, fel arfer yn Excel, dim ond gyda'r swyddogaeth Dalen Amddiffyn y gallwch chi amddiffyn y ddalen, ond mae'r dull hwn yn ddiflas cymryd llawer o amser os oes nifer o daflenni mae angen eu gwarchod. Sut ydych chi'n amddiffyn sawl dalen ar unwaith yn Excel yn gyflym ac yn hawdd?

Amddiffyn pob dalen ar unwaith gyda chod VBA

Amddiffyn taflenni lluosog ar unwaith gyda Kutools ar gyfer Excel

Dad-ddiogelwch dalennau lluosog ar unwaith gyda kutools ar gyfer Excel


swigen dde glas saeth Amddiffyn pob dalen ar unwaith gyda chod VBA

Gyda'r cod VBA canlynol, gallwch amddiffyn holl daflenni'r llyfr gwaith gweithredol ar unwaith gyda'r un cyfrinair, gwnewch hyn:

1. Daliwch i lawr y ALT + F11 allweddi, ac mae'n agor y Microsoft Visual Basic ar gyfer Ceisiadau ffenestr.

2. Cliciwch Mewnosod > Modiwlau, a gludwch y cod canlynol yn y Ffenestr Modiwl.

Cod VBA: Amddiffyn pob taflen waith mewn llyfr gwaith ar unwaith:

Sub protect_all_sheets()
top: 
pass = InputBox("password?") 
repass = InputBox("Verify Password") 
If Not (pass = repass) Then 
MsgBox "you made a boo boo" 
Goto top 
End If 
For i = 1 To Worksheets.Count 
If Worksheets(i).ProtectContents = True Then Goto oops 
Next 
For Each s In ActiveWorkbook.Worksheets 
s.Protect Password:=pass 
Next 
Exit Sub 
oops: MsgBox "I think you have some sheets that are already protected. Please unprotect all sheets then running this Macro." 
End Sub

3. Yna pwyswch F5 allwedd i redeg y cod, a mewnbynnu cyfrinair y taflenni gwarchodedig yn y blwch prydlon, gweler y screenshot:

doc-protect-multiple-sheet1-1

4. Cliciwch OK, ac yna mewnbynnu'r cyfrinair eto i gadarnhau'r cyfrinair.

doc-protect-multiple-sheet2-2

5. Yna cliciwch OK, ac mae'r holl daflenni wedi'u gwarchod gyda'r un cyfrinair.


swigen dde glas saeth Amddiffyn taflenni lluosog ar unwaith gyda Kutools ar gyfer Excel

Weithiau, nid ydych am amddiffyn yr holl daflenni yn eich llyfr gwaith, a dim ond rhai taflenni penodol yr ydych am eu gwarchod, yn y sefyllfa hon, ni fydd y cod uchod yn gweithio. Ond gyda Kutools ar gyfer Excel'S Taflen Waith Amddiffyn cyfleustodau, gallwch amddiffyn pob dalen a thaflen benodol yn gyflym ac yn hawdd.

Kutools ar gyfer Excel : gyda mwy na 300 o ychwanegiadau Excel defnyddiol, am ddim i geisio heb unrhyw gyfyngiad mewn 60 diwrnod

Ar ôl gosod Kutools ar gyfer Excel, gwnewch fel y camau canlynol:

1. Cliciwch Kutools Byd Gwaith > Taflen Waith Amddiffyn, gweler y screenshot:

2. Yn y Taflen Waith Amddiffyn blwch deialog, dewiswch y taflenni rydych chi am gael eich amddiffyn. (Yn ddiofyn, mae'r holl daflenni gwaith yn y llyfr gwaith cyfredol yn cael eu gwirio.) Gweler y screenshot:

doc-protect-multiple-sheet4-4

3. a chliciwch OK, ac yna teipiwch a chadarnhewch y cyfrinair yn y blwch deialog Diogelu Taflen Waith. Gweler y screenshot:

doc-protect-multiple-sheet5-5

4. Yna cliciwch OK, mae'r taflenni gwaith a ddewiswyd wedi'u gwarchod.

Cliciwch Diogelu Taflen Waith i wybod mwy am y nodwedd hon.


swigen dde glas saeth Dad-ddiogelwch dalennau lluosog ar unwaith gyda kutools ar gyfer Excel

Sut allech chi amddiffyn nifer o daflenni gwaith gwarchodedig mewn llyfr gwaith ar yr un pryd? Wrth gwrs, Kutools ar gyfer Excel hefyd yn darparu y Taflen Waith Amddiffyn cyfleustodau i chi eu gwarchod ar unwaith.

Gwnewch y camau canlynol:

1. Agorwch eich llyfr gwaith sy'n cynnwys y taflenni gwaith gwarchodedig.

2. Yna cliciwch Kutools Byd Gwaith > Taflen Waith Amddiffyn, gweler y screenshot:

3. Yn y Taflen Waith Amddiffyn blwch deialog, mae'r taflenni gwarchodedig wedi'u rhestru yn y blwch rhestr, yna cliciwch Ok botwm, gweler y screenshot:

doc-protect-multiple-sheet7-7

4. Ac yna a Taflen Waith Amddiffyn blwch deialog yn galw allan i'ch atgoffa i nodi'r cyfrinair rydych chi wedi'i greu i amddiffyn y taflenni gwaith, gweler y screenshot:

doc-protect-multiple-sheet8-8

5. Ar ôl teipio'r cyfrinair, cliciwch Ok, mae'r holl daflenni gwaith a wiriwyd yn y blwch rhestr wedi cael eu hamddiffyn.

Nodyn: Rhaid bod gan yr taflenni gwaith yr un cyfrinair.

I wybod mwy am y nodwedd Taflen Waith Amddiffyn hon.

Dadlwythwch a threial am ddim Kutools ar gyfer Excel Nawr!


swigen dde glas saeth Demo: Amddiffyn neu Ddiamddiffyn pob taflen waith ar unwaith gyda Kutools ar gyfer Excel

Kutools ar gyfer Excel: gyda mwy na 300 o ychwanegiadau Excel defnyddiol, am ddim i geisio heb unrhyw gyfyngiad mewn 30 diwrnod. Dadlwythwch a threial am ddim Nawr!

Erthygl gysylltiedig:

Sut i amddiffyn nifer o daflenni gwaith ar unwaith yn Excel?

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 (21)
No ratings yet. Be the first to rate!
This comment was minimized by the moderator on the site
I am trying to use this in a shared workbook but I get a Microsoft Visual Basic error "Run-time error '1004": Application-defined or object-defined error" I am just looking for suggestions on how to get around this. Any help would be appreciated
This comment was minimized by the moderator on the site
Occurs when sheet is already locked
This comment was minimized by the moderator on the site
Thanks for the wonder full tool to protect & unprotect all the sheets at a time. Please guide me I am able to unprotect all sheets in my work book at a time but when I run protect all sheets VBA Code then only first 4 sheets are protected & rest or left unprotected. Please help me to sort out the issue.
This comment was minimized by the moderator on the site
How do I mask the password using the VBA method? I can not find this information via google or F1 help files. Thanks in advance!
This comment was minimized by the moderator on the site
Hi I used this code now I it wont accept my password to get back into my spreadsheet !!
This comment was minimized by the moderator on the site
I have chart tabs and worksheets in my Excel 2013 workbook. The VBA coding above works for the protecting the worksheets but not the separate chart tabs. How do i password protect the multiple chart tabs and multiple worksheets in my workbook? Thanks!
This comment was minimized by the moderator on the site
Hey, I need some help, the above code was very helpful, but it locks the sort (auto filter as well) can you please provide code to solve that problem and also where it would be inserted. Thank you in advance.
This comment was minimized by the moderator on the site
Thank you! This is awesome, I was even able to modify the VBA code so that I could unprotect all sheets at once! :) Sub unprotect_all_sheets() top: pass = InputBox("password?") repass = InputBox("Verify Password") If Not (pass = repass) Then MsgBox "you made a boo boo" GoTo top End If For i = 1 To Worksheets.Count Next For Each s In ActiveWorkbook.Worksheets s.Unprotect Password:=pass Next Exit Sub oops: MsgBox "I think you have some sheets that are already protected. Please unprotect all sheets B4 running this Macro." End Sub
This comment was minimized by the moderator on the site
when i activated this VBA, hyperlink doesn't work. how can i make them work? tnx :)
This comment was minimized by the moderator on the site
I am suddenly having the 1004 error as well. Anyone find a solution?
This comment was minimized by the moderator on the site
I'm suddenly having the error 1004 issue. Have been using the macro for months now it randomly fails.
There are no comments posted here yet
Load More
Please leave your comments in English
Posting as Guest
×
Rate this post:
0   Characters
Suggested Locations