Jak sprawdzić, czy arkusz lub skoroszyt jest chroniony w programie Excel?
Jeśli chcesz sprawdzić, czy określony arkusz lub skoroszyt jest chroniony, czy nie w programie Excel, ten artykuł może Ci pomóc.
Sprawdź, czy arkusz roboczy jest chroniony kodem VBA
Sprawdź, czy skoroszyt jest chroniony kodem VBA
Sprawdź, czy arkusz roboczy jest chroniony kodem VBA
Poniższy kod VBA może pomóc w łatwym sprawdzeniu, który arkusz roboczy jest chroniony lub niezabezpieczony w bieżącym skoroszycie. Wykonaj następujące czynności.
1. naciśnij inny + F11 klawisze jednocześnie, aby otworzyć Microsoft Visual Basic for Applications okno.
2. w Microsoft Visual Basic for Applications okno, kliknij wstawka > Moduł. A następnie skopiuj i wklej poniższy kod VBA do okna Code.
Kod VBA: sprawdź, czy arkusz roboczy jest chroniony, czy nie
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. wciśnij F5 klucz do uruchomienia kodu, a następnie a Kutools dla programu Excel pojawi się okno dialogowe, wybierz komórkę do zlokalizowania wyników sprawdzania, a na koniec kliknij OK przycisk.
Uwagi:
1. Jeśli wybrana komórka w chronionym arkuszu roboczym, inna Kutools dla programu Excel pojawi się okno dialogowe, kliknij OK przycisk, wynik sprawdzenia zostanie zapisany w nowo utworzonym arkuszu.
2. Wręcz przeciwnie, jeśli wybrana komórka znajduje się w niezabezpieczonym arkuszu, wynik sprawdzenia zostanie natychmiast wyświetlony w wybranym zakresie.
Możesz zobaczyć wynik sprawdzania, jak na poniższym zrzucie ekranu:
Sprawdź, czy skoroszyt jest chroniony kodem VBA
Możesz również sprawdzić, czy aktywny skoroszyt jest chroniony, czy nie za pomocą kodu VBA. Wykonaj następujące czynności.
1. naciśnij inny + F11 klawisze jednocześnie, aby otworzyć Microsoft Visual Basic for Applications okno.
2. w Microsoft Visual Basic for Applications okno, kliknij wstawka > Moduł. A następnie skopiuj i wklej poniższy kod VBA do okna Code.
Kod VBA: Sprawdź, czy skoroszyt jest chroniony, czy nie
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. wciśnij F5 klucz do uruchomienia kodu.
Otrzymasz jedno z następujących okien dialogowych opartych na skoroszycie.
Z łatwością chroń lub wyłącz ochronę wielu arkuszy w skoroszycie jednocześnie w programie Excel:
Połączenia Kutools dla programu Excel's Chroń arkusz roboczy i Nie chroń arkusza narzędzia mogą pomóc w łatwej ochronie lub wyłączeniu ochrony wielu arkuszy w aktywnym skoroszycie jednocześnie w programie Excel. Zobacz zrzut ekranu poniżej:
Pobierz teraz pełną funkcję 30-dniową darmową ścieżkę Kutools dla programu Excel!
Najlepsze narzędzia biurowe
Zwiększ swoje umiejętności Excela dzięki Kutools for Excel i doświadcz wydajności jak nigdy dotąd. Kutools dla programu Excel oferuje ponad 300 zaawansowanych funkcji zwiększających produktywność i oszczędzających czas. Kliknij tutaj, aby uzyskać funkcję, której najbardziej potrzebujesz...
Karta Office wprowadza interfejs z zakładkami do pakietu Office i znacznie ułatwia pracę
- Włącz edycję i czytanie na kartach w programach Word, Excel, PowerPoint, Publisher, Access, Visio i Project.
- Otwieraj i twórz wiele dokumentów w nowych kartach tego samego okna, a nie w nowych oknach.
- Zwiększa produktywność o 50% i redukuje setki kliknięć myszką każdego dnia!