Przejdź do głównej zawartości

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

🤖 Pomocnik AI Kutools: Zrewolucjonizuj analizę danych w oparciu o: Inteligentne wykonanie   |  Wygeneruj kod  |  Twórz niestandardowe formuły  |  Analizuj dane i generuj wykresy  |  Wywołaj funkcje Kutools...
Popularne funkcje: Znajdź, wyróżnij lub zidentyfikuj duplikaty   |  Usuń puste wiersze   |  Łącz kolumny lub komórki bez utraty danych   |   Okrągły bez wzoru ...
Super wyszukiwanie: Wiele kryteriów VLookup    Wiele wartości VLookup  |   Przeglądanie pionowe na wielu arkuszach   |   Wyszukiwanie rozmyte ....
Zaawansowana lista rozwijana: Szybko twórz listę rozwijaną   |  Zależna lista rozwijana   |  Lista rozwijana wielokrotnego wyboru ....
Menedżer kolumn: Dodaj określoną liczbę kolumn  |  Przesuń kolumny  |  Przełącz stan widoczności ukrytych kolumn  |  Porównaj zakresy i kolumny ...
Polecane funkcje: Fokus siatki   |  Widok projektu   |   Duży pasek formuły    Menedżer skoroszytów i arkuszy   |  Biblioteka zasobów (Automatyczny tekst)   |  Selektor dat   |  Połącz arkusze   |  Szyfruj/odszyfruj komórki    Wysyłaj e-maile według listy   |  Super filtr   |   Specjalny filtr (filtruj pogrubienie/kursywa/przekreślenie...) ...
15 najlepszych zestawów narzędzi12 Tekst Tools (Dodaj tekst, Usuń znaki, ...)   |   50 + Wykres rodzaje (Wykres Gantta, ...)   |   40+ Praktyczne Wzory (Oblicz wiek na podstawie urodzin, ...)   |   19 Wprowadzenie Tools (Wstaw kod QR, Wstaw obraz ze ścieżki, ...)   |   12 Konwersja Tools (Liczby na słowa, Przeliczanie walut, ...)   |   7 Połącz i podziel Tools (Zaawansowane wiersze łączenia, Podział komórki, ...)   |   ... i więcej

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...

Opis


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!
Comments (0)
No ratings yet. Be the first to rate!
There are no comments posted here yet
Please leave your comments in English
Posting as Guest
×
Rate this post:
0   Characters
Suggested Locations