Eine Zelle schützen, aber die Dropdown-Liste funktionieren lassen

25093
johnnnieyy

Ich möchte eine Zelle schützen, in der sich eine Dropdown-Liste befindet, aber ich möchte trotzdem, dass die Dropdown-Liste funktioniert.

Wenn ich versuche, es zu schützen, kann der Benutzer die Dropdown-Liste nicht verwenden, um andere Elemente oder Makros auszuwählen.

Ich bekomme diese Fehlermeldung

"Die Zelle oder das Diagramm, die Sie ändern möchten, ist geschützt und daher schreibgeschützt. Um eine geschützte Zelle oder ein geschütztes Diagramm zu ändern, entfernen Sie zunächst den Schutz mit dem Befehl Ungeschütztes Blatt (Registerkarte" Überprüfen ", Gruppe" Änderungen "). Sie werden möglicherweise zur Eingabe eines Kennworts aufgefordert . "

4

3 Antworten auf die Frage

4
rfportilla

Das Dropdown ist an die Zelle angehängt. Dort werden die Daten gespeichert. Die Validierung garantiert die Gültigkeit der Daten.

Wenn Sie dies noch nicht getan haben, stellen Sie sicher, dass die Zelle nicht gesperrt ist. Klicken Sie mit der rechten Maustaste auf die Zelle, klicken Sie auf Zellen formatieren, und wechseln Sie zur Registerkarte Schutz. Das Kontrollkästchen Gesperrt sollte deaktiviert sein.

Vergiss nicht, es richtig zu kennzeichnen! ;-) rfportilla vor 8 Jahren 0
Sie können jedoch leicht Daten in diese Zelle einfügen, wenn sie nicht geschützt ist Firee vor 8 Jahren 0
Es gibt keine Wahl. Die Validierung garantiert jedoch, dass die Daten akzeptabel sind. rfportilla vor 8 Jahren 0
0
Catherine

Auf meinem Computer (PC, auf dem Excel 2010 ausgeführt wird) scheint die Dropdown-Liste selbst direkt rechts an die Zelle angehängt zu sein. Wenn ich also eine Dropdown-Liste in A7 haben möchte, muss ich sowohl A7 als auch B7 entsperren.

Dies kann ein Fehler sein, aber es ist eine relativ einfache Lösung.

0
Raja Sekhar

In geschützten Blättern:

Fügen Sie den folgenden Link in die Arbeitsmappe ein

Option Explicit  Private Sub Worksheet_Change(ByVal Target As Range)  Dim wsh As Variant For Each wsh In Worksheets(Array("Sheet1")) wsh.EnableOutlining = True wsh.Protect UserInterfaceOnly:=True, Password:="", _ DrawingObjects:=False, _ Contents:=True, _ Scenarios:=True, _ AllowFormattingCells:=False, _ AllowFormattingColumns:=False, _ AllowFormattingRows:=False, _ AllowInsertingColumns:=False, _ AllowInsertingRows:=False, _ AllowInsertingHyperlinks:=False, _ AllowDeletingColumns:=False, _ AllowDeletingRows:=False, _ AllowSorting:=False, _ AllowFiltering:=False, _ AllowUsingPivotTables:=False Next wsh  Dim Oldvalue As String Dim Newvalue As String  On Error GoTo Exitsub If Target.Address = "$C$2" Then 'As required If Target.SpecialCells(xlCellTypeAllValidation) Is Nothing Then GoTo Exitsub Else: If Target.Value = "" Then GoTo Exitsub Else Application.EnableEvents = False Newvalue = Target.Value Application.Undo Oldvalue = Target.Value If Oldvalue = "" Then Target.Value = Newvalue Else Target.Value = Oldvalue & ", " & Newvalue End If End If End If   Exitsub: Application.EnableEvents = True  End Sub
Willkommen bei Superuser! Wenn Sie eine Antwort geben, ist es vorzuziehen, eine Erklärung zu geben, warum Ihre Antwort (http://superuser.com/help/how-to-answer) die richtige ist. Dies gilt insbesondere für alte Fragen. Bitte überlegen Sie, Ihre Antwort zu bearbeiten und zu erklären, warum dies die Lösung ist. Stephen Rauch vor 7 Jahren 0

Verwandte Probleme