So prüfen Sie, ob ein Arbeitsblatt oder eine Arbeitsmappe in Excel geschützt ist?
Möchten Sie prüfen, ob ein bestimmtes Arbeitsblatt oder eine bestimmte Arbeitsmappe in Excel geschützt ist? Dann hilft Ihnen dieser Artikel weiter.
Prüfen Sie mit VBA-Code, ob ein Arbeitsblatt geschützt ist
Prüfen Sie mit VBA-Code, ob eine Arbeitsmappe geschützt ist
Prüfen Sie mit VBA-Code, ob ein Arbeitsblatt geschützt ist
Der folgende VBA-Code ermöglicht es Ihnen, auf einen Blick zu prüfen, welche Arbeitsblätter in der aktuellen Arbeitsmappe geschützt oder ungeschützt sind. Gehen Sie dazu wie folgt vor:
1. Drücken Sie gleichzeitig die Tasten Alt+F11, um das Fenster Microsoft Visual Basic für Applikationen zu öffnen.
2. Klicken Sie im Fenster Microsoft Visual Basic für Applikationen auf Einfügen > Modul. Kopieren Sie anschließend den folgenden VBA-Code und fügen Sie ihn in das Code-Fenster ein.
VBA-Code: Prüfen, ob ein Arbeitsblatt geschützt ist oder nicht
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. Drücken Sie die Taste F5, um den Code auszuführen. Anschließend erscheint ein Kutools für Excel-Dialogfeld. Wählen Sie eine Zelle zur Ausgabe der Prüfergebnisse aus und klicken Sie abschließend auf die Schaltfläche OK.
Hinweise:
1. Befindet sich die ausgewählte Zelle in einem geschützten Arbeitsblatt, erscheint ein weiteres Kutools für Excel-Dialogfeld. Klicken Sie auf die Schaltfläche OK, damit das Prüfergebnis in einem neu erstellten Arbeitsblatt gespeichert wird.
2. Befindet sich die ausgewählte Zelle in einem ungeschützten Arbeitsblatt, wird das Prüfergebnis sofort im Bereich „Auswählen“ angezeigt.
Sie können das Prüfergebnis im folgenden Screenshot sehen:
Prüfen Sie mit VBA-Code, ob eine Arbeitsmappe geschützt ist
Sie können auch einen VBA-Code verwenden, um zu prüfen, ob die aktuelle Arbeitsmappe geschützt ist. Gehen Sie dazu wie folgt vor:
1. Drücken Sie Alt + F11, um das Fenster Microsoft Visual Basic für Applikationen zu öffnen.
2. Im Microsoft Visual Basic für Applikationen-Fenster auf Einfügen > Modul klicken. Anschließend den folgenden VBA-Code kopieren und in das Code-Fenster einfügen.
VBA-Code: Prüfen, ob eine Arbeitsmappe geschützt ist oder nicht
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. Drücken Sie die Taste F5, um den Code auszuführen.
Je nach Zustand Ihrer Arbeitsmappe wird eines der folgenden Dialogfelder angezeigt.
Schützen oder heben Sie den Schutz mehrerer Arbeitsblätter in einer Arbeitsmappe gleichzeitig in Excel ganz einfach auf:
Mit den Funktionen Kutools für Excel: Arbeitsblatt schützen und Arbeitsblatt entsperren können Sie mehrere Arbeitsblätter in der aktuellen Arbeitsmappe gleichzeitig schützen oder deren Schutz aufheben. Siehe folgender Screenshot:
Kutools für Excel– Erweitern Sie Excel mit über 300 unverzichtbaren Tools, um Ihre Arbeit schneller und einfacher zu erledigen, und nutzen Sie KI-Funktionen für intelligentere Datenverarbeitung und höhere Produktivität.Jetzt herunterladen
Beste Office-Produktivitätstools
Verbessern Sie Ihre Excel-Kenntnisse mit Kutools für Excel und erleben Sie Effizienz wie nie zuvor.Kutools für Excel bietet über 300 erweiterte Funktionen zur Steigerung der Produktivität und Zeit sparen.Klicken Sie hier, um die Funktion zu erhalten, die Sie am dringendsten benötigen...
Office Tab bringt eine tabbasierte Oberfläche in Office und macht Ihre Arbeit viel einfacher
- Aktivieren Sie tabbasiertes Bearbeiten und Lesen in Word, Excel, PowerPoint, Publisher, Access, Visio und Project.
- Öffnen und erstellen Sie mehrere Dokumente in neuen Registerkarten desselben Fensters – statt jedes in einem separaten Fenster zu öffnen.
- Steigert Ihre Produktivität um 50 % und erspart Ihnen täglich Hunderte von Mausklicks!
Alle Kutools-Add-Ins – ein Installationsprogramm
Kutools for Office-Paket bündelt Add-Ins für Excel, Word, Outlook und PowerPoint sowie Office Tab Pro – ideal für Teams, die mit mehreren Office-Anwendungen arbeiten.
- Alles-in-einem-Paket— Add-Ins für Excel, Word, Outlook & PowerPoint sowie Office Tab Pro
- Ein Installationsprogramm, eine Lizenz— innerhalb weniger Minuten eingerichtet (MSI-fähig)
- Funktioniert besser zusammen— optimierte Produktivität über alle Office-Anwendungen hinweg
- 30-tägige Vollversion zum Testen— keine Registrierung, keine Kreditkarte erforderlich
- Bestes Preis-Leistungs-Verhältnis— sparen Sie im Vergleich zum Kauf einzelner Add-Ins