Hoppa till huvudinnehåll

Hur kontrollerar jag om kalkylblad eller arbetsbok är skyddad i Excel?

Om du vill kontrollera om ett visst kalkylblad eller arbetsbok är skyddat eller inte i Excel kan den här artikeln hjälpa dig.

Kontrollera om kalkylbladet är skyddat med VBA-kod
Kontrollera om arbetsboken är skyddad med VBA-kod


Kontrollera om kalkylbladet är skyddat med VBA-kod

Följande VBA-kod kan hjälpa dig att enkelt kontrollera vilket kalkylblad som är skyddat eller oskyddat i den aktuella arbetsboken. Vänligen gör enligt följande.

1. Tryck andra + F11 samtidigt för att öppna Microsoft Visual Basic för applikationer fönster.

2. I Microsoft Visual Basic för applikationer fönstret klickar Insert > Modulerna. Kopiera och klistra sedan in VBA-koden nedan i kodfönstret.

VBA-kod: Kontrollera om kalkylbladet är skyddat eller inte

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. tryck på F5 nyckel för att köra koden, sedan a Kutools för Excel dialogrutan dyker upp, välj en cell för att hitta kontrollresultaten och klicka slutligen på OK knapp.

Anmärkningar:

1. Om cellen du valde i ett skyddat kalkylblad, en annan Kutools för Excel dialogrutan dyker upp, klicka på OK knappen, kommer kontrollresultatet att sparas i ett nytt skapat kalkylblad.

2. Tvärtom, om den markerade cellen finns i ett oskyddat kalkylblad, kommer kontrollresultatet att visas i det valda intervallet omedelbart.

Du kan se kontrollresultatet som nedanstående skärmdump:


Kontrollera om arbetsboken är skyddad med VBA-kod

Du kan också kontrollera om en aktiv arbetsbok är skyddad eller inte med VBA-kod. Vänligen gör enligt följande.

1. Tryck andra + F11 samtidigt för att öppna Microsoft Visual Basic för applikationer fönster.

2. I Microsoft Visual Basic för applikationer fönstret klickar Insert > Modulerna. Kopiera och klistra sedan in VBA-koden nedan i kodfönstret.

VBA-kod: Kontrollera om arbetsboken är skyddad eller inte

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. tryck på F5 för att köra koden.

Du kommer att få en av följande dialogrutor baserat på din arbetsbok.


Skydda eller avskydda enkelt flera kalkylblad i en arbetsbok samtidigt i Excel:

Smakämnen Kutools för Excel's Skydda kalkylbladet och Avskydda kalkylbladet verktyg kan hjälpa dig att enkelt skydda eller avskydda flera kalkylblad i aktiv arbetsbok samtidigt i Excel. Se nedanstående skärmdump:
Ladda ner hela funktionen 30-dagars gratis spår av Kutools för Excel nu!

Bästa kontorsproduktivitetsverktyg

Populära funktioner: Hitta, markera eller identifiera dubbletter   |  Ta bort tomma rader   |  Kombinera kolumner eller celler utan att förlora data   |   Rund utan formel ...
Superuppslag: Flera kriterier VLookup    VLookup med flera värden  |   VSök över flera ark   |   Fuzzy Lookup ....
Avancerad rullgardinslista: Skapa snabbt en rullgardinslista   |  Beroende rullgardinslista   |  Flervals-rullgardinslista ....
Kolumnhanterare: Lägg till ett specifikt antal kolumner  |  Flytta kolumner  |  Växla synlighetsstatus för dolda kolumner  |  Jämför intervall och kolumner ...
Utvalda funktioner: Rutnätsfokus   |  Designvy   |   Stor formelbar    Arbetsbok & Bladhanterare   |  Resursbibliotek (Automatisk text)   |  Datumväljare   |  Kombinera arbetsblad   |  Kryptera/Dekryptera celler    Skicka e-postmeddelanden efter lista   |  Superfilter   |   Specialfilter (filtrera fet/kursiv/genomstruken...) ...
Topp 15 verktygssatser12 text verktyg (lägga till text, Ta bort tecken, ...)   |   50 + Diagram Typer (Gantt Chart, ...)   |   40+ Praktiskt Formler (Beräkna ålder baserat på födelsedag, ...)   |   19 Införande verktyg (Infoga QR-kod, Infoga bild från sökväg, ...)   |   12 Konvertering verktyg (Siffror till ord, Valutaväxling, ...)   |   7 Slå ihop och dela verktyg (Avancerade kombinera rader, Dela celler, ...)   |   ... och mer

Uppgradera dina Excel-färdigheter med Kutools för Excel och upplev effektivitet som aldrig förr. Kutools för Excel erbjuder över 300 avancerade funktioner för att öka produktiviteten och spara tid.  Klicka här för att få den funktion du behöver mest...

kte-flik 201905


Fliken Office ger ett flikgränssnitt till Office och gör ditt arbete mycket enklare

  • Aktivera flikredigering och läsning i Word, Excel, PowerPoint, Publisher, Access, Visio och Project.
  • Öppna och skapa flera dokument i nya flikar i samma fönster, snarare än i nya fönster.
  • Ökar din produktivitet med 50 % och minskar hundratals musklick för dig varje dag!
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