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

Sut i wirio a yw taflen waith neu lyfr gwaith wedi'i gwarchod yn Excel?

Os ydych chi am wirio a yw taflen waith neu lyfr gwaith penodol wedi'i gwarchod ai peidio yn Excel, gall yr erthygl hon eich helpu chi.

Gwiriwch a yw'r daflen waith wedi'i gwarchod â chod VBA
Gwiriwch a yw'r llyfr gwaith wedi'i warchod â chod VBA


Gwiriwch a yw'r daflen waith wedi'i gwarchod â chod VBA


Gall y cod VBA canlynol eich helpu i wirio pa daflen waith sydd wedi'i gwarchod neu heb ddiogelwch yn y llyfr gwaith cyfredol yn hawdd. Gwnewch fel a ganlyn.

1. Gwasgwch 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 Mewnosod > Modiwlau. Ac yna copïwch a gludwch y cod VBA isod i mewn i ffenestr y Cod.

Cod VBA: Gwiriwch a yw'r daflen waith wedi'i gwarchod ai peidio

Sub GetProtectedSheets()
    Dim sh As Worksheet
    Dim xSaveSht As Worksheet
    Dim xSaveToRg As Range
    Dim xSaveToRg1 As Range
    Dim xTxt As String
    On Error Resume Next
    xTxt = ActiveWindow.RangeSelection.Address
    Set xSaveToRg = Application.InputBox("Please select a cell for saving the checking result:", "Kutools for Excel", xTxt, , , , , 8)
    If xSaveToRg Is Nothing Then Exit Sub
    If xSaveToRg.Worksheet.ProtectContents Then
        If MsgBox("This worksheet is protected, would you like to create a new sheet to save the checking result?", vbInformation + vbYesNo, "Kutools for Excel") = vbYes Then
            Set xSaveSht = ThisWorkbook.Worksheets.Add
            Set xSaveToRg = xSaveSht.Cells(1)
        Else
            Exit Sub
        End If
    End If
    Set xSaveToRg = xSaveToRg.Cells(1)
    Set xSaveToRg1 = xSaveToRg.Offset(0, 1)
    xSaveToRg.Value = "Protected worksheet"
    xSaveToRg1.Value = "Unprotected worksheet"
    Set xSaveToRg = xSaveToRg.Offset(1)
    Set xSaveToRg1 = xSaveToRg1.Offset(1)
    For Each sh In Worksheets
        If sh.Name <> xSaveSht.Name Then
            If sh.ProtectContents Then
                xSaveToRg.Value = sh.Name
                Set xSaveToRg = xSaveToRg.Offset(1)
            Else
                xSaveToRg1.Value = sh.Name
                Set xSaveToRg1 = xSaveToRg1.Offset(1)
            End If
        End If
    Next
End Sub

3. Gwasgwch y F5 allwedd i redeg y cod, yna a Kutools ar gyfer Excel blwch deialog yn ymddangos, dewiswch gell ar gyfer lleoli'r canlyniadau gwirio, ac yn olaf cliciwch y OK botwm.

Nodiadau:

1. Os yw'r gell a ddewisoch mewn taflen waith warchodedig, un arall Kutools ar gyfer Excel bydd dialog yn popio i fyny, cliciwch y OK botwm, bydd y canlyniad gwirio yn cael ei gadw mewn taflen waith newydd wedi'i chreu.

2. I'r gwrthwyneb, os yw'r gell a ddewiswyd mewn taflen waith heb ddiogelwch, bydd y canlyniad gwirio yn cael ei arddangos yn yr ystod a ddewiswyd ar unwaith.

Gallwch weld y canlyniad gwirio fel isod screenshot:


Gwiriwch a yw'r llyfr gwaith wedi'i warchod â chod VBA

Hefyd, gallwch wirio a yw llyfr gwaith gweithredol wedi'i amddiffyn ai peidio gyda chod VBA. Gwnewch fel a ganlyn.

1. Gwasgwch 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 Mewnosod > Modiwlau. Ac yna copïwch a gludwch y cod VBA isod i mewn i ffenestr y Cod.

Cod VBA: Gwiriwch a yw'r llyfr gwaith wedi'i amddiffyn ai peidio

Sub IsWorkbookProtected()
With ActiveWorkbook
  If .ProtectWindows Or .ProtectStructure Then
    MsgBox "This workbook is password protected"
  Else
    MsgBox "This workbook is not password protected"
  End If
End With
End Sub

3. Gwasgwch y F5 allwedd i redeg y cod.

Fe gewch chi un o'r blychau deialog canlynol yn seiliedig ar eich llyfr gwaith.


Gwarchod neu amddiffyn yn hawdd daflenni gwaith lluosog mewn llyfr gwaith ar unwaith yn Excel:

Mae practis meddygol Kutools ar gyfer Excel's Taflen Waith Amddiffyn ac Taflen Waith Amddiffyn gall cyfleustodau eich helpu chi i amddiffyn neu amddiffyn nifer o daflenni gwaith yn hawdd mewn llyfr gwaith gweithredol ar unwaith yn Excel. Gweler isod screenshot:
Dadlwythwch y nodwedd lawn 30-diwrnod llwybr rhad ac am ddim o Kutools ar gyfer Excel nawr!


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 (0)
Dim sgôr eto. Byddwch y cyntaf i sgorio!
Nid oes unrhyw sylwadau wedi'u postio yma eto
Gadewch eich sylwadau
Postio fel Gwestai
×
Graddiwch y swydd hon:
0   Cymeriadau
Lleoliadau a Awgrymir