Festlegen, wann eine Excel-Tabelle geschützt ist – Der Spreadsheet Guru

Sub SheetProtectionSummary ()
‚ZWECK: Listen Sie alle Blätter auf, für die der Schutz aktiviert ist
‚QUELLE: www.thespreadsheetguru.com/the-code-vault

Dim sht Wie Arbeitsblatt
Dim VisibleSheetList Wie String
Dim HiddenSheetList Wie String

‚Durch jedes Blatt schlingen und auf Schutz prüfen
Zum Jeder sht Im ActiveWorkbook.Worksheets

Wenn sht.ProtectContents = Wahr Dann
Wenn sht.Visible = xlSheetVisible Dann
VisibleSheetList = VisibleSheetList & vbNewLine & „-“ & sht.Name
Sonst
HiddenSheetList = HiddenSheetList & vbNewLine & „-“ & sht.Name
Ende Wenn
Ende Wenn

Nächster sht

Ergebnisse anzeigen
Wenn HiddenSheetList = „“ und VisibleSheetList = „“ Dann
MsgBox „In dieser Arbeitsmappe wurden derzeit keine Arbeitsblätter gefunden, die geschützt sind.“
Sonst
MsgBox „In den folgenden Arbeitsblättern wurde der Blattschutz aktiviert:“ & _
vbNewLine & vbNewLine & „Visble Worksheets:“ & VisibleSheetList & _
vbNewLine & vbNewLine & „Versteckte Arbeitsblätter:“ & HiddenSheetList ,, „Schutzzusammenfassung“
Ende Wenn

Ende Sub

Source link

Der Beitrag Festlegen, wann eine Excel-Tabelle geschützt ist – Der Spreadsheet Guru erschien zuerst auf Anfänger Kurse.

from
https://fuer-anfaenger.info/festlegen-wann-eine-excel-tabelle-geschuetzt-ist-der-spreadsheet-guru/