如何检查工作表或工作簿是否在Excel中受保护？

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

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

在Excel中一次轻松保护或取消保护工作簿中的多个工作表：

Kutools for Excels 保护工作表 和 取消保护工作表

实用程序可以帮助您轻松地在Excel中一次保护或取消保护活动工作簿中的多个工作表。 见下面的截图：

下载完整功能 30-天自由踪迹 Kutools for Excel 现在！

最佳办公生产力工具

在Word，Excel，PowerPoint中启用选项卡式编辑和阅读，发布者，Access，Visio和Project。 在同一窗口的新选项卡中而不是在新窗口中打开并创建多个文档。 每天将您的工作效率提高50％，并减少数百次鼠标单击！