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

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 dalennau lluosog ar unwaith gyda Kutools ar gyfer Excel

Amddiffyn sawl dalen 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 dalennau 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 Amddiffyn sawl dalen 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 threialwch am ddim Kutools ar gyfer Excel Now!


swigen dde glas saeth Demo: Amddiffyn neu Ddiogelu 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?


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 (21)
Dim sgôr eto. Byddwch y cyntaf i sgorio!
Lleihawyd y sylw hwn gan y safonwr ar y wefan
Gwych - felly sut i UNprotect them i gyd ar unwaith? Rwy'n amatur, felly mae angen mwy o wybodaeth arnaf.
Lleihawyd y sylw hwn gan y safonwr ar y wefan
[dyfyniad] Gwych - felly sut i DAD-amddiffyn nhw i gyd ar unwaith? Rwy'n amatur, felly mae angen mwy o wybodaeth arnaf.Gan Kristin Dzugan[/dyfyniad] :-) Mae'n hawdd dad-ddiogelu nhw fel http://www.extendoffice.com/product/kutools-for-excel/excel-unprotect-multiple-sheets.html
Lleihawyd y sylw hwn gan y safonwr ar y wefan
Is-unprotect_all_sheets() top: pass = InputBox("cyfrinair?") repass = InputBox("Gwirio Cyfrinair") Os Na (pasio = repass) Yna MsgBox "gwnaethoch chi boo boo" GoTo top Diwedd Os Am i = 1 I Daflenni Gwaith .Count Next For Every s Yn ActiveWorkbook.Worksheets s.Unprotect Password:=pasio Next Exit Sub wps: MsgBox "Rwy'n meddwl bod gennych rai dalennau sydd wedi'u diogelu'n barod. Dad-ddiogelwch bob tudalen B4 sy'n rhedeg y Macro hwn." Diwedd Is
Lleihawyd y sylw hwn gan y safonwr ar y wefan
Diolch yn fawr iawn :-)
Lleihawyd y sylw hwn gan y safonwr ar y wefan
Fel y dywedodd Kristin, sut ydych chi'n eu dad-amddiffyn i gyd ar unwaith?
Lleihawyd y sylw hwn gan y safonwr ar y wefan
Felly, sut mae dad-amddiffyn heb kutools?
Lleihawyd y sylw hwn gan y safonwr ar y wefan
[dyfyniad] Felly, sut mae dad-amddiffyn heb kutools?Gan cz[/quote] Gallwch ddad-ddiogelu'r daflen waith heb Kutools ar gyfer Excel. Y cyfan sydd angen i chi ei wneud yw clicio ar y tab dalen yr ydych am ei ddad-ddiogelu a chlicio ar orchymyn Taflen Unprotect, ac yna nodi'ch cyfrinair. :-)
Lleihawyd y sylw hwn gan y safonwr ar y wefan
pan fyddaf yn imput y cod mae'n dod i fyny gyda "gwall amser rhedeg 1004?? gan amlygu'r canlynol mewn melyn... s.Protect Password:=pass
Lleihawyd y sylw hwn gan y safonwr ar y wefan
Rwy'n sydyn yn cael y gwall 1004 hefyd. Rwyf wedi bod yn defnyddio'r macro ers misoedd ond nawr ni fydd yn rhedeg.
Lleihawyd y sylw hwn gan y safonwr ar y wefan
Helo, roeddwn i'n cael y mater hwn hefyd. Mae'n troi allan na all redeg os ydych wedi dewis yr holl daflenni yn y llyfr gwaith. Ceisiwch ddewis un ddalen yn unig ac yna rhedeg.
Lleihawyd y sylw hwn gan y safonwr ar y wefan
Rwy'n sydyn yn cael y mater gwall 1004. Wedi bod yn defnyddio'r macro ers misoedd bellach mae'n methu ar hap.
Lleihawyd y sylw hwn gan y safonwr ar y wefan
Yr wyf yn sydyn yn cael y gwall 1004 hefyd. Unrhyw un yn dod o hyd i ateb?
Lleihawyd y sylw hwn gan y safonwr ar y wefan
pan wnes i actifadu'r VBA hwn, hypergyswllt ddim yn gweithio. sut alla i wneud iddyn nhw weithio? tnx :)
Lleihawyd y sylw hwn gan y safonwr ar y wefan
Diolch! Mae hyn yn wych, roeddwn i hyd yn oed yn gallu addasu'r cod VBA fel y gallwn ddad-ddiogelu pob dalen ar unwaith! :) Sub unprotect_all_sheets() top: pass = InputBox("cyfrinair?") repass = InputBox("Gwirio Cyfrinair") Os Na (pasio = repass) Yna MsgBox "gwnaethoch chi boo boo" GoTo top Diwedd If For i = 1 I Worksheets.Count Next For Every s Yn ActiveWorkbook.Worksheets s.Unprotect Password:=pasio Next Exit Sub wps: MsgBox "Rwy'n meddwl bod gennych rai dalennau sydd eisoes wedi'u diogelu. Dad-ddiogelwch bob tudalen B4 sy'n rhedeg y Macro hwn." Diwedd Is
Lleihawyd y sylw hwn gan y safonwr ar y wefan
Hei, mae angen rhywfaint o help arnaf, roedd y cod uchod yn ddefnyddiol iawn, ond mae'n cloi'r math (hidlo auto hefyd) a allwch chi ddarparu cod i ddatrys y broblem honno a hefyd lle byddai'n cael ei fewnosod. Diolch ymlaen llaw.
Lleihawyd y sylw hwn gan y safonwr ar y wefan
Mae gen i dabiau siart a thaflenni gwaith yn fy llyfr gwaith Excel 2013. Mae'r codio VBA uchod yn gweithio ar gyfer diogelu'r taflenni gwaith ond nid y tabiau siart ar wahân. Sut mae diogelu'r tabiau siartiau lluosog a thaflenni gwaith lluosog yn fy llyfr gwaith â chyfrinair? Diolch!
Lleihawyd y sylw hwn gan y safonwr ar y wefan
Helo Defnyddiais y cod hwn nawr, ni fydd yn derbyn fy nghyfrinair i fynd yn ôl i mewn i fy nhaenlen!!
Lleihawyd y sylw hwn gan y safonwr ar y wefan
Sut mae cuddio'r cyfrinair gan ddefnyddio'r dull VBA? Ni allaf ddod o hyd i'r wybodaeth hon trwy google neu ffeiliau cymorth F1. Diolch ymlaen llaw!
Lleihawyd y sylw hwn gan y safonwr ar y wefan
Diolch am yr offeryn rhyfeddod llawn i amddiffyn a dad-ddiogelu'r holl ddalennau ar y tro. Arweiniwch fi os gwelwch yn dda Gallaf ddad-ddiogelu pob taflen yn fy llyfr gwaith ar y tro ond pan fyddaf yn rhedeg amddiffyn pob taflen Cod VBA yna dim ond 4 taflen gyntaf sy'n cael eu diogelu a gorffwys neu eu gadael heb eu diogelu. Helpwch fi i ddatrys y mater.
Lleihawyd y sylw hwn gan y safonwr ar y wefan
Rwy'n ceisio defnyddio hwn mewn llyfr gwaith a rennir ond rwy'n cael gwall Microsoft Visual Basic "Gwall amser rhedeg '1004": Gwall wedi'i ddiffinio gan gymhwysiad neu wedi'i ddiffinio gan wrthrych "Rwy'n edrych am awgrymiadau ar sut i fynd o gwmpas hyn. Unrhyw byddai cymorth yn cael ei werthfawrogi
Lleihawyd y sylw hwn gan y safonwr ar y wefan
Yn digwydd pan fydd y ddalen eisoes wedi'i chloi
Nid oes unrhyw sylwadau wedi'u postio yma eto
Gadewch eich sylwadau
Postio fel Gwestai
×
Graddiwch y swydd hon:
0   Cymeriadau
Lleoliadau a Awgrymir