Note: The other languages of the website are Google-translated. Back to English
Inloggen  \/ 
x
or
x
Registreer  \/ 
x

or

Hoe controleer ik of het werkblad of de werkmap in Excel is beveiligd?

Als u wilt controleren of een bepaald werkblad of werkmap al dan niet in Excel is beveiligd, kan dit artikel u helpen.

Controleer of het werkblad is beveiligd met VBA-code
Controleer of de werkmap is beveiligd met VBA-code


Controleer of het werkblad is beveiligd met VBA-code


Met de volgende VBA-code kunt u eenvoudig controleren welk werkblad in de huidige werkmap is beveiligd of onbeschermd. Ga als volgt te werk.

1. druk op anders + F11 toetsen tegelijkertijd om het Microsoft Visual Basic voor toepassingen venster.

2. In de Microsoft Visual Basic voor toepassingen venster klikt Invoegen > Module. En kopieer en plak vervolgens de onderstaande VBA-code in het codevenster.

VBA-code: controleer of het werkblad is beveiligd of niet

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. druk de F5 sleutel om de code uit te voeren, en dan een Kutools for Excel dialoogvenster verschijnt, selecteer een cel om de controleresultaten te zoeken en klik ten slotte op OK knop.

Notes:

1. Als de cel die u hebt geselecteerd in een beschermd werkblad, een andere Kutools for Excel dialoogvenster zal verschijnen, klik op het OK knop, wordt het controleresultaat opgeslagen in een nieuw gemaakt werkblad.

2. Als de geselecteerde cel zich daarentegen in een onbeschermd werkblad bevindt, wordt het controleresultaat onmiddellijk in het geselecteerde bereik weergegeven.

U kunt het controleresultaat zien zoals onder screenshot:


Controleer of de werkmap is beveiligd met VBA-code

U kunt ook controleren of een actieve werkmap al dan niet is beveiligd met VBA-code. Ga als volgt te werk.

1. druk op anders + F11 toetsen tegelijkertijd om het Microsoft Visual Basic voor toepassingen venster.

2. In de Microsoft Visual Basic voor toepassingen venster klikt Invoegen > Module. En kopieer en plak vervolgens de onderstaande VBA-code in het codevenster.

VBA-code: controleer of de werkmap is beveiligd of niet

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. druk de F5 sleutel om de code uit te voeren.

U krijgt een van de volgende dialoogvensters op basis van uw werkmap.


Beveilig eenvoudig meerdere werkbladen in een werkmap in Excel of maak de beveiliging ervan ongedaan:

Het Kutools for Excel's Bescherm werkblad als Beveiliging werkblad opheffen Met hulpprogramma's kunt u eenvoudig meerdere werkbladen in een actieve werkmap tegelijk in Excel beveiligen of de beveiliging ervan opheffen. Zie onderstaande screenshot:
Download nu het volledige gratis 30-daagse gratis parcours van Kutools voor Excel!


De beste tools voor kantoorproductiviteit

Kutools voor Excel lost de meeste van uw problemen op en verhoogt uw productiviteit met 80%

  • visfuik: Snel invoegen complexe formules, grafieken en alles wat je eerder hebt gebruikt; Versleutel cellen met wachtwoord; Maak een mailinglijst en stuur e-mails ...
  • Super Formula-balk (bewerk eenvoudig meerdere regels tekst en formule); Lay-out lezen (gemakkelijk grote aantallen cellen lezen en bewerken); Plakken in gefilterd bereik...
  • Voeg cellen / rijen / kolommen samen zonder gegevens te verliezen; Gespleten cellen inhoud; Combineer dubbele rijen / kolommen... Voorkom dubbele cellen; Vergelijk Ranges...
  • Selecteer Dupliceren of Uniek Rijen; Selecteer lege rijen (alle cellen zijn leeg); Super zoeken en fuzzy zoeken in veel werkboeken; Willekeurige selectie ...
  • Exacte kopie Meerdere cellen zonder de formuleverwijzing te wijzigen; Maak automatisch verwijzingen naar meerdere bladen; Plaats kogels, Selectievakjes en meer ...
  • Extraheer tekst, Tekst toevoegen, Verwijderen op positie, Ruimte verwijderen; Paging-subtotalen maken en afdrukken; Converteren tussen celinhoud en opmerkingen...
  • Super filter (bewaar en pas filterschema's toe op andere bladen); Geavanceerd sorteren per maand / week / dag, frequentie en meer; Speciaal filter door vet, cursief ...
  • Combineer werkmappen en werkbladen; Tabellen samenvoegen op basis van sleutelkolommen; Gegevens splitsen in meerdere bladen; Batch Converteer xls, xlsx en PDF...
  • Meer dan 300 krachtige functies. Ondersteunt Office / Excel 2007-2019 en 365. Ondersteunt alle talen. Eenvoudig te implementeren in uw onderneming of organisatie. Gratis proefperiode van 30 dagen met volledige functies. 60 dagen geld-terug-garantie.
kte tabblad 201905

Office-tabblad Brengt een interface met tabbladen naar Office en maakt uw werk veel gemakkelijker

  • Schakel bewerken en lezen met tabbladen in Word, Excel, PowerPoint in, Publisher, Access, Visio en Project.
  • Open en maak meerdere documenten in nieuwe tabbladen van hetzelfde venster in plaats van in nieuwe vensters.
  • Verhoogt uw productiviteit met 50% en vermindert elke dag honderden muisklikken voor u!
officetab onderkant
Say something here...
symbols left.
You are guest
or post as a guest, but your post won't be published automatically.
Loading comment... The comment will be refreshed after 00:00.

Be the first to comment.