mit nachfolgendem Code will ich abfragen, ob eine bestimmte Tabelle geschützt ist oder nicht.
Function TabelleGeschuetzt(s As String) As Boolean
If Worksheets(s).ProtectContents = True Then
TabelleGeschuetzt True
Else
TabelleGeschuetzt = False
End If
End Function
Scheint nicht gut zu sein, dann wenn ich in den Direktbereich?TabelleGeschuetzt("Check")
eingebe, stoppt der Code auf Zeile If Worksheets ... und die Variable s hat den Wert wahr.
Wer kann mir weiterhelfen?
Danke und Gruss, Peter