Hoe controleert u of een werkblad of een werkmap in Excel beveiligd is?
Wilt u controleren of een specifiek werkblad of een hele werkmap in Excel beveiligd is? Dit artikel helpt u daarbij.
Controleer of een werkblad is beveiligd met VBA-code
Controleer of een werkmap is beveiligd met VBA-code
Controleer of een werkblad is beveiligd met VBA-code
Met de volgende VBA-code controleert u eenvoudig welk werkblad in het huidige werkboek beveiligd of onbeveiligd is. Volg hiervoor de onderstaande stappen.
1. Druk tegelijkertijd op Alt+F11 om het venster Microsoft Visual Basic for Applications te openen.
2. Klik in het venster Microsoft Visual Basic for Applications op Invoegen > Module. Kopieer en plak vervolgens de onderstaande VBA-code in het codevenster.
VBA-code: Controleer of een werkblad al dan niet is beveiligd
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. Druk op de toets F5 om de code uit te voeren. Vervolgens verschijnt een Kutools voor Excel-dialoogvenster. Selecteer een cel om de controle-uitkomsten in te plaatsen en klik ten slotte op de knop OK.
Opmerkingen:
1. Als de geselecteerde cel zich in een beveiligd werkblad bevindt, verschijnt er nog een Kutools voor Excel-dialoogvenster. Klik op de knop OK om het controle-resultaat op te slaan in een nieuw aangemaakt werkblad.
2. Als de geselecteerde cel zich in een onbeveiligd werkblad bevindt, verschijnt het controle-resultaat direct in het geselecteerde bereik.
U kunt het controle-resultaat zien in de onderstaande schermafbeelding:
Controleer of een werkmap is beveiligd met VBA-code
U kunt ook VBA-code gebruiken om te controleren of het huidige werkboek beveiligd is. Volg hiervoor de onderstaande stappen.
1. Druk tegelijkertijd op Alt+F11 om het venster Microsoft Visual Basic for Applications te openen.
2. In het Microsoft Visual Basic for Applications-venster klikt u op Invoegen > Module. Kopieer en plak vervolgens de onderstaande VBA-code in het codevenster.
VBA-code: Controleer of een werkmap al dan niet is beveiligd
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. Druk op de toets F5 om de code uit te voeren.
U krijgt, afhankelijk van uw werkmap, één van de volgende dialoogvensters te zien.
Beveilig of hef de beveiliging van meerdere werkbladen in een werkmap tegelijkertijd eenvoudig op in Excel:
De hulpmiddelen Kutools voor Excel – Werkblad beveiligen en Werkblad deblokkeren – helpen u om meerdere werkbladen in het huidige werkboek tegelijkertijd eenvoudig te beveiligen of te deblokkeren in Excel. Zie de onderstaande schermafbeelding:
Kutools voor Excel– Geef Excel een boost met meer dan 300 essentiële hulpmiddelen, waardoor uw werk sneller en eenvoudiger verloopt, en profiteer van AI-functies voor slimmere gegevensverwerking en productiviteit.Nu verkrijgen
Beste Office-productiviteitshulpmiddelen
Geef uw Excel-vaardigheden een boost met Kutools voor Excel en ervaar efficiëntie zoals nooit tevoren.Kutools voor Excel biedt meer dan 300 geavanceerde functies om de productiviteit te verhogen en Tijd besparen.Klik hier om de functie te krijgen die u het meest nodig heeft...
Office Tab brengt een tabbladinterface naar Office en maakt uw werk veel eenvoudiger
- Schakel tabbladbewerking en -lezen in voor Word, Excel, PowerPoint, Publisher, Access, Visio en Project.
- Open en maak meerdere documenten aan in nieuwe tabbladen binnen hetzelfde venster, in plaats van in afzonderlijke vensters.
- Verhoogt uw productiviteit met 50 % en bespaart u dagelijks honderden muisklikken!
Alle Kutools-add-ins in één installatieprogramma.
Kutools for Office bundelt add-ins voor Excel, Word, Outlook en PowerPoint, plus Office Tab Pro—ideaal voor teams die met meerdere Office-apps werken.
- Alles-in-één suite— add-ins voor Excel, Word, Outlook & PowerPoint plus Office Tab Pro
- Één installatieprogramma, één licentie— binnen enkele minuten klaar (MSI-geschikt)
- Werkt beter samen— gestroomlijnde productiviteit in alle Office-apps
- 30 dagen volledig functionele proefversie— geen registratie, geen creditcard
- Beste prijs-kwaliteitverhouding— bespaar ten opzichte van het afzonderlijk kopen van add-ins