Как проверить, защищен ли лист или книга в Excel?
Если вы хотите проверить, защищен ли определенный рабочий лист или книга в Excel, эта статья может вам помочь.
Проверьте, защищен ли рабочий лист кодом VBA
Проверьте, защищена ли книга кодом VBA
Проверьте, защищен ли рабочий лист кодом VBA
Следующий код VBA может помочь вам легко проверить, какой лист защищен или незащищен в текущей книге. Пожалуйста, сделайте следующее.
1. Нажмите другой + F11 клавиши одновременно, чтобы открыть Microsoft Visual Basic для приложений окно.
2. в Microsoft Visual Basic для приложений окна, нажмите Вставить > Модули. Затем скопируйте и вставьте приведенный ниже код VBA в окно кода.
Код VBA: проверьте, защищен ли рабочий лист или нет
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 Sub3. нажмите F5 ключ для запуска кода, затем Kutools for Excel появится диалоговое окно, выберите ячейку для поиска результатов проверки и, наконец, нажмите кнопку OK .
Заметки:
1. Если выбранная вами ячейка на защищенном листе, другая Kutools for Excel появится диалоговое окно, щелкните значок OK кнопку, результат проверки будет сохранен на новом созданном листе.
2. Напротив, если выбранная ячейка находится на незащищенном листе, результат проверки будет немедленно отображаться в выбранном диапазоне.
Вы можете увидеть результат проверки, как показано на скриншоте ниже:
Проверьте, защищена ли книга кодом VBA
Кроме того, вы можете проверить, защищена ли активная книга кодом VBA. Пожалуйста, сделайте следующее.
1. Нажмите другой + F11 клавиши одновременно, чтобы открыть Microsoft Visual Basic для приложений окно.
2. в Microsoft Visual Basic для приложений окна, нажмите Вставить > Модули. Затем скопируйте и вставьте приведенный ниже код VBA в окно кода.
Код VBA: проверьте, защищена ли книга или нет
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 Sub3. нажмите F5 ключ для запуска кода.
Вы получите одно из следующих диалоговых окон на основе вашей книги.
С легкостью защитите или снимите защиту сразу с нескольких листов в книге в Excel:
Ассоциация Kutools for Excel's Защитить лист и Снять защиту листа утилиты могут помочь вам легко защитить или снять защиту сразу нескольких листов в активной книге в Excel. См. Снимок экрана ниже:
Загрузите полнофункциональную 30-дневную бесплатную версию Kutools for Excel прямо сейчас!
Лучшие инструменты для офисной работы
Улучшите свои навыки работы с Excel с помощью Kutools for Excel и почувствуйте эффективность, как никогда раньше. Kutools for Excel предлагает более 300 расширенных функций для повышения производительности и экономии времени. Нажмите здесь, чтобы получить функцию, которая вам нужна больше всего...
Вкладка Office: интерфейс с вкладками в Office и упрощение работы
- Включение редактирования и чтения с вкладками в Word, Excel, PowerPoint, Издатель, доступ, Visio и проект.
- Открывайте и создавайте несколько документов на новых вкладках одного окна, а не в новых окнах.
- Повышает вашу продуктивность на 50% и сокращает количество щелчков мышью на сотни каждый день!
