Blattschutzstatus

wie kann ich überprüfen, in einem Modul, ob ein Blatt einer Arbeitsmappe schreibgeschützt ist oder nicht.

Hintergrund ist, dass ich, sollte jemand mit einem Crack-Programm meinen Schreibschutz löschen, Ihn entsprchend hinweisen will dass dies illegal ist und die Berechnungen auf seien eigen Verantwortung geschieht..

Danke
Marc

ich habe es jetz nicht ausführlich getestet

Sub Test()
    If Sheets("Tabelle1").ProtectContents = True Then
        MsgBox "Erst entsperren, Schlaule"
    End If
End Sub

Griuß Hajo