Conas a sheiceáil an bhfuil an bhileog oibre nó an leabhar oibre cosanta in Excel?
Más mian leat a sheiceáil an bhfuil bileog oibre nó leabhar oibre áirithe cosanta nó nach bhfuil in Excel, is féidir leis an alt seo cabhrú leat.
Seiceáil an bhfuil an bhileog oibre cosanta le cód VBA
Seiceáil an bhfuil an leabhar oibre cosanta le cód VBA
Seiceáil an bhfuil an bhileog oibre cosanta le cód VBA
Is féidir leis an gcód VBA seo a leanas cabhrú leat a sheiceáil go héasca cén bhileog oibre atá cosanta nó gan chosaint sa leabhar oibre reatha. Déan mar a leanas le do thoil.
1. Brúigh Eile + F11 eochracha ag an am céanna chun an Microsoft Visual Basic d’Fheidhmchláir fhuinneog.
2. Sa Microsoft Visual Basic d’Fheidhmchláir fuinneog, cliceáil Ionsáigh > Modúil. Agus ansin cóipeáil agus greamaigh an cód VBA thíos i bhfuinneog an Chóid.
Cód VBA: Seiceáil an bhfuil an bhileog oibre cosanta nó nach bhfuil
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. Brúigh an F5 eochair chun an cód a rith, ansin a Kutools le haghaidh Excel tagann bosca dialóige aníos, roghnaigh cill le do thoil chun na torthaí seiceála a aimsiú, agus cliceáil ar deireadh ar an OK cnaipe.
nótaí:
1. Más é an cill a roghnaigh tú i mbileog oibre faoi chosaint, ceann eile Kutools le haghaidh Excel popfaidh dialóg suas, cliceáil an OK cnaipe, sábhálfar an toradh seiceála i mbileog oibre nua cruthaithe.
2. A mhalairt ar fad, má tá an chill roghnaithe i mbileog oibre gan chosaint, taispeánfar an toradh seiceála sa raon roghnaithe láithreach.
Is féidir leat an toradh seiceála a fheiceáil mar atá thíos ar an scáileán:
Seiceáil an bhfuil an leabhar oibre cosanta le cód VBA
Chomh maith leis sin, is féidir leat a sheiceáil an bhfuil leabhar oibre gníomhach cosanta nó nach bhfuil le cód VBA. Déan mar a leanas le do thoil.
1. Brúigh Eile + F11 eochracha ag an am céanna chun an Microsoft Visual Basic d’Fheidhmchláir fhuinneog.
2. Sa Microsoft Visual Basic d’Fheidhmchláir fuinneog, cliceáil Ionsáigh > Modúil. Agus ansin cóipeáil agus greamaigh an cód VBA thíos i bhfuinneog an Chóid.
Cód VBA: Seiceáil an bhfuil an leabhar oibre cosanta nó nach bhfuil
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. Brúigh an F5 eochair chun an cód a rith.
Gheobhaidh tú ceann de na boscaí dialóige seo a leanas bunaithe ar do leabhar oibre.
Bileoga oibre iolracha a chosaint nó a chosaint go héasca i leabhar oibre in Excel ag an am céanna:
An Kutools le haghaidh Excel's Bileog Oibre a Chosaint agus Bileog Oibre Gan Chosaint is féidir le fóntais cabhrú leat iliomad bileoga oibre a chosaint nó a chosaint i leabhar oibre gníomhach in Excel ag an am céanna. Féach thíos an pictiúr:
Íoslódáil rian iomlán saor in aisce 30 lá de Kutools le haghaidh Excel anois!
Uirlisí Táirgiúlachta Oifige is Fearr
Supercharge Do Scileanna Excel le Kutools le haghaidh Excel, agus Éifeachtúlacht Taithí Cosúil Ná Roimhe. Kutools le haghaidh Excel Tairiscintí Níos mó ná 300 Ardghnéithe chun Táirgiúlacht a Treisiú agus Sábháil Am. Cliceáil anseo chun an ghné is mó a theastaíonn uait a fháil ...
Tugann Tab Oifige comhéadan Tabbed chuig Office, agus Déan Do Obair i bhfad Níos Éasca
- Cumasaigh eagarthóireacht agus léamh tabbed i Word, Excel, PowerPoint, Foilsitheoir, Rochtain, Visio agus Tionscadal.
- Oscail agus cruthaigh cáipéisí iolracha i gcluaisíní nua den fhuinneog chéanna, seachas i bhfuinneoga nua.
- Méadaíonn do tháirgiúlacht 50%, agus laghdaíonn sé na céadta cad a tharlaíonn nuair luch duit gach lá!