Note: The other languages of the website are Google-translated. Back to English
Mewngofnodi  \/ 
x
or
x
Cofrestru  \/ 
x

or

Sut i amddiffyn pob llyfr gwaith mewn ffolder ar unwaith yn Excel?

Yn Excel, gallwch amddiffyn llyfr gwaith i atal defnyddwyr eraill rhag ei ​​olygu, ond a ydych erioed wedi delweddu amddiffyn nifer o lyfrau gwaith ar unwaith? Yma, rwy'n cyflwyno rhai triciau ar amddiffyn yr holl lyfrau gwaith mewn ffolder a thaflenni lluosog mewn llyfr gwaith yn Excel.

Amddiffyn llyfrau gwaith mewn ffolder ar unwaith gyda VBA

Amddiffyn dalennau lluosog ar unwaith gyda Kutools ar gyfer Excel syniad da3

Tab Swyddfa Galluogi Golygu a Pori Tabbed yn y Swyddfa, a Gwneud Eich Gwaith yn Haws Orau ...
Mae Kutools for Excel yn Datrys y rhan fwyaf o'ch Problemau, ac yn Cynyddu Eich Cynhyrchedd 80%
  • Ailddefnyddio Unrhyw beth: Ychwanegwch y fformwlâu, siartiau ac unrhyw beth arall a ddefnyddir fwyaf cymhleth i'ch ffefrynnau, a'u hailddefnyddio'n gyflym yn y dyfodol.
  • Mwy nag 20 o nodweddion testun: Rhif Detholiad o Llinyn Testun; Tynnu neu Dynnu Rhan o Testunau; Trosi Rhifau ac Arian Cyfred yn Eiriau Saesneg.
  • Uno Offer: Llyfrau Gwaith a Thaflenni Lluosog yn Un; Uno Celloedd Lluosog / Rhesi / Colofnau Heb Golli Data; Uno Rhesi a Swm Dyblyg.
  • Hollti Offer: Rhannwch Ddata yn Daflenni Lluosog Yn Seiliedig ar Werth; Un Llyfr Gwaith i Ffeiliau Lluosog Excel, PDF neu CSV; Un Golofn i Golofnau Lluosog.
  • Gludo Sgipio Rhesi Cudd / Hidlo; Cyfrif A Swm yn ôl Lliw Cefndir; Anfon E-byst wedi'u Personoli at Dderbynwyr Lluosog mewn Swmp.
  • Hidlo Gwych: Creu cynlluniau hidlo datblygedig a'u cymhwyso i unrhyw daflenni; Trefnu yn yn ôl wythnos, dydd, amlder a mwy; Hidlo gan feiddgar, fformwlâu, sylw ...
  • Mwy na 300 o nodweddion pwerus; Yn gweithio gyda'r Swyddfa 2007-2019 a 365; Yn cefnogi pob iaith; Defnydd hawdd yn eich menter neu sefydliad.

swigen dde glas saeth Amddiffyn llyfrau gwaith mewn ffolder ar unwaith gyda VBA

Er mwyn amddiffyn llyfrau gwaith mewn ffolder benodol, gallwch gymhwyso cod macro i'w ddatrys.

1. Galluogi llyfr gwaith newydd, a gwasgwch Alt + F11 allweddi i agor y Microsoft Visual Basic ar gyfer Applications ffenestr, a chlicio Mewnosod > modiwle, a gludo islaw'r cod i'r Modiwlau sgript.

VBA: Amddiffyn llyfrau gwaith mewn ffolder.

Sub ProtectAll()
    Dim xWorkBooks As Workbook
    Dim xExitFile As String
    Dim xPassWord As Variant
    Dim xStrPath As String
    Dim xFileDialog As FileDialog
    Dim xFile As String
    On Error Resume Next
    Set xFileDialog = Application.FileDialog(msoFileDialogFolderPicker)
    xFileDialog.AllowMultiSelect = False
    xFileDialog.Title = "Select a folder [Kutools for Excel]"
    If xFileDialog.Show = -1 Then
        xStrPath = xFileDialog.SelectedItems(1)
    End If
    If xStrPath = "" Then
        Exit Sub
    Else
        xStrPath = xStrPath + "\"
    End If
    xPassWord = Application.InputBox("Enter password", "Kutools for Excel", , , , , , 2)
    If (xPassWord = False) Or (xPassWord = "") Then
        MsgBox "Password cannot be blank!", vbInformation, "Kutools for Excel"
        Exit Sub
    End If
    xFile = "*.xls"
    xExitFile = Dir(xStrPath & xFile)
    On Error Resume Next
    Application.ScreenUpdating = False
    Do While xExitFile <> ""
        Set xWorkBooks = Workbooks.Open(xStrPath & xExitFile)
        Application.DisplayAlerts = False
        xWorkBooks.SaveAs Filename:=xWorkBooks.FullName, Password:=xPassWord
        Application.DisplayAlerts = True
        Workbooks(xExitFile).Close False
        Set xWorkBooks = Nothing
        xExitFile = Dir
    Loop
    Application.ScreenUpdating = True
    MsgBox "Successfully protect!", vbInformation, "Kutools for Excel"
End Sub

 

doc amddiffyn pob llyfr gwaith ffolder 1

2. Gwasgwch F5 allwedd, ac a Dewiswch ffolder ffenestr yn galw allan i chi ddewis ffolder i amddiffyn ei holl daflenni gwaith.
doc amddiffyn pob llyfr gwaith ffolder 2

3. Cliciwch OK ac mae deialog yn galw allan am nodi cyfrinair ar gyfer amddiffyn llyfrau gwaith.
doc amddiffyn pob llyfr gwaith ffolder 3

4. Cliciwch OK, mae deialog yn ymddangos i'ch atgoffa bod yr holl lyfrau gwaith yn y ffolder a ddewiswyd wedi'u diogelu'n llwyddiannus gydag un cyfrinair.
doc amddiffyn pob llyfr gwaith ffolder 4

Pan fyddwch chi'n agor y llyfrau gwaith y gwnaethoch chi eu gwarchod gan y cod uchod, mae deialog yn galw allan am nodi cyfrinair. Gweler y screenshot:
doc amddiffyn pob llyfr gwaith ffolder 5

Tip: Mae'r cod hwn yn gweithio ar gyfer fersiwn Excel 2007 neu uwch, os ydych chi am ei gymhwyso i amddiffyn fersiwn is, gallwch chi newid xFile = "* .xls" i xFile = "* .xlsx" yn y cod.


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

Mewn gwirionedd, bydd yn amlach amddiffyn taflenni lluosog mewn llyfr gwaith yn ein gwaith beunyddiol. Ond yn Excel, mae angen i chi amddiffyn taflenni fesul un gyda'i swyddogaeth adeiledig. Fodd bynnag, mae yna offeryn pwerus - Kutools ar gyfer Excel, ei Taflen Waith Amddiffyn gall cyfleustodau eich helpu i amddiffyn pob dalen neu ddalen ddethol o'r llyfr gwaith ar unwaith.

Kutools ar gyfer Excel, gyda mwy na 120 swyddogaethau Excel defnyddiol, gwella'ch effeithlonrwydd gweithio ac arbed eich amser gweithio.

Ar ôl gosod am ddim Kutools ar gyfer Excel, gwnewch fel y nodir isod:

1. Galluogi'r llyfr gwaith rydych chi am amddiffyn ei daflenni, a chlicio Menter > Taflen Waith Amddiffyn. Gweler y screenshot:
doc amddiffyn pob llyfr gwaith ffolder 6

2. Yn y Taflen Waith Amddiffyn deialog, gallwch wirio'r taflenni rydych chi am eu gwarchod fel y mae angen i chi o'r rhestr. Gweler y screenshot:
doc amddiffyn pob llyfr gwaith ffolder 7

3. Cliciwch Ok, ac mae deialog arall yn galw allan i chi fynd i mewn ac aildeipio'r cyfrinair, gweler y screenshot:
doc amddiffyn pob llyfr gwaith ffolder 8

4. Cliciwch Ok, ac mae deialog yn galw allan i'ch atgoffa i amddiffyn taflenni gwaith yn llwyddiannus.
doc amddiffyn pob llyfr gwaith ffolder 9

Ar gyfer amddiffyn y taflenni hyn, does ond angen clicio Menter > Taflen Waith Amddiffyn i nodi cyfrinair ar gyfer amddiffyn.
doc amddiffyn pob llyfr gwaith ffolder 10

lawrlwytho doc 1


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
Say something here...
symbols left.
You are guest
or post as a guest, but your post won't be published automatically.
Loading comment... The comment will be refreshed after 00:00.
  • To post as a guest, your comment is unpublished.
    Martin · 1 years ago
    Brilliant. Saves me nearly an hour every month. Thank you.
  • To post as a guest, your comment is unpublished.
    Mary · 3 years ago
    can you do the same code but for unprotecting? with option to browse for the folder
  • To post as a guest, your comment is unpublished.
    P · 3 years ago
    I'm getting a syntax error for the following: <span style="background-color...
    • To post as a guest, your comment is unpublished.
      Jessica · 6 months ago
      Did you fix this ? How?

  • To post as a guest, your comment is unpublished.
    ckshah · 4 years ago
    workbook protect ...great program....
    very helpful