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
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/
from
https://anfangertipps.tumblr.com/post/625132442934788096
No comments:
Post a Comment