ich steh scheinbar total auf der Leitung! Ich möchte mit einem Button prüfen, ob ein Blatt geschützt ist oder nicht, und habe dazu folgendes zu Testen ausprobiert:
~ start ~
Sub test()
If ActiveSheet.Protect = True Then
MsgBox "geschützt"
ActiveSheet.Unprotect
Range("A1").Select
Exit Sub
Else
MsgBox " frei"
ActiveSheet.Protect
End If
Range("B1").Select
End Sub
~end~
Und dabei bekomme ich immer "geschützt" als Meldung, auch wenn das Blatt sicher ungeschützt ist!
Auch wenn ich bei sicher ungeschütztem Blatt folgendes eingebe, kommt immer die Meldung "geschützt":
~start~
Sub test()
If ActiveSheet.Protect = True Then
MsgBox "geschützt"
ActiveSheet.Unprotect
Range("A1").Select
End If
End Sub
~end~
Und ich hab keine Chance drauf zu kommen, woran das liegt! Kann mir bitte eine/r helfen?
Vielen Dank im Voraus
Gruß
Franz