ich möchte gern in einer Zelle anzeigen lassen, ob der Blattschutz für das aktuelle Tab eingeschaltet / aktiv ist.
Ist so etwas mit Formel oder ... möglich ?
Freu mich sehr auf einen Tipp :)
Besten Gruss
Werner
Option Explicit
Private Sub Workbook_SheetActivate(ByVal Sh As Object)
MsgBox IIf(ActiveSheet.ProtectContents, "geschützt :-(", "nicht geschützt :-)")
End Sub
Bei jedem Wechsel auf ein anderes Register bekommst Du so die Meldung.