Guten Morgen,
hiermit wollte ich prüfen ob Schutz drin ist:
If ActiveSheet.Unprotect(getStrPasswort) = False Then
MsgBox "Sie müssen erst Schutz aufheben"
Else
ActiveSheet.Range("A10").Select
End If
klappt nicht,
mfg Walter