Gültigkeit zuweisen und Blattschutz.
08.08.2003 17:13:04
Dieter
mit folgendem Makro weise ich nach einem Ereignis der Zelle D10 eine Gültigkeit in Form einer Liste (Ber20, Ber40, Ber60) zu.
Private Sub ComboBox3_Change()
Sheets("Eingabe").[D10].Activate
If [A5].Value = "20" Then
With [D10].Validation
.Delete
.Add Type:=xlValidateList, _
AlertStyle:=xlValidAlertStop, _
Operator:=xlEqual, Formula1:="=Ber20"
.IgnoreBlank = True
.InCellDropdown = True
End With
ElseIf [A5].Value = "40" Then
With [D10].Validation
.Delete
.Add Type:=xlValidateList, _
AlertStyle:=xlValidAlertStop, _
Operator:=xlEqual, Formula1:="=Ber40"
.IgnoreBlank = True
.InCellDropdown = True
End With
ElseIf [A5].Value = "60" Then
With [D10].Validation
.Delete
.Add Type:=xlValidateList, _
AlertStyle:=xlValidAlertStop, _
Operator:=xlEqual, Formula1:="=Ber60"
.IgnoreBlank = True
.InCellDropdown = True
End With
End If
Sheets("Eingabe").[D8].Activate
End Sub
Das fuktioniert auch wunderbar. Ich habe von allen Zellen im Blatt bis auf drei, die mit dem Makro nichts zu tun haben den Zellschutz entfernt. Wenn ich nun den Blattschutz aktiviere um den Inhalt dieser drei Zellen zu schützen, bleibt das Makro hängen und der Debugger zeigt mir die dritte Zeile in der With Anweisung (die zweimal umgebrochene), die gerade zutrifft, als Fehlerquelle an.
Hebe ich den Blattschutz wieder auf, fuktioniert alles wieder wie gehabt.
Sieht da jemand eine Lösung, oder gibt es eine andere Art den Inhalt (Text) sicher zu schützen? Die Methode mit "ScrollArea" ist schon im Blatt vorhanden, kommt also nicht in Betracht.
Bin für jeden brauchbaren Tip dankbar.
Gruß Dieter