Hallo Ihr,
ich will in einer Tabelle je nach Abhängigkeit sperren,teilsperren bzw freigeben......sperren und freigeben funzt prima, währenddessen das teilentsperren den Laufzeitfehler 13 - Typen unverträglich liefert und daraufhin alle Felder enstperrt sind; das ganze wird mit ner Eingabemaske angezeigt.
Wo liegt der Fehler?
Dim D As String
D = Sheets("Tabelle1").[C8].Value
If D = "100" Then
With Sheets("Tabelle2")
.Unprotect Password:="Ja"
.Range("A2:F150").Locked = False
End With
ElseIf D = "200" Then
With Sheets("Daten")
.Protection.AllowEditRanges.Add Title:="Bereich1", Range:="A8:F150", Password:="JaJa"
End With
ElseIf D "100" Or D "200" Or D = "" Then
With Sheets("Tabelle2")
.Unprotect Password:="Ja"
.Range("A2:F150").Locked = True
.Protect Password:="Ja"
End With
End If
Diesen Code habe ich in DieseArbeitsmappe unter Private_SelectionChange...
Der Kompiler highlightet die Zeile .Protection.Allow.....
Danke für Hilfe
Peter S.