Zum sperren bestimmter Zellen, sondern ermöglichen das filtern und Sortieren

Gibt es eine Reihe von Menschen mit dieser Schwierigkeit. Die vorherrschende Antwort ist, dass Sie nicht schützen können Inhalte Bearbeiten, während so dass ungehindert Sortieren. Ihre Optionen sind:

1) Erlauben die Bearbeitung und Sortierung 🙁

2) Anwenden von Schutz und Schaltflächen erstellen, mit code, um das Sortieren mit VBA. Es gibt andere Beiträge, die erklären, wie dies zu tun. Ich denke, es gibt zwei Methoden, entweder (1) Sie erhalten den code, um den Schutz des Blattes aufheben, die Sortierung angewendet werden soll, dann wieder das Arbeitsblatt schützen, oder (2) das Blatt geschützt, mit UserInterfaceOnly:=True.

3) Lorie Antwort, die nicht erlauben den Benutzern das auswählen von Zellen (https://stackoverflow.com/a/15390698/269953)

4) Eine Lösung, die ich noch nicht gesehen, diskutiert ist die Verwendung von VBA, einige Basis-Schutz. Zum Beispiel, erkennen und wiederherstellen von änderungen, die mit Worksheet_Change. Es ist weit von einer idealen Lösung jedoch.

5) Sie halten das Blatt geschützt, wenn der Benutzer die Auswahl der Daten und ungeschützt, wenn der Benutzer die Kopfzeile ausgewählt ist. Dies lässt unzählige Möglichkeiten, wie die Benutzer durcheinanderbringen könnte die Daten zwar auch, dass einige usability-Probleme, aber zumindest reduziert sich die Quote von lästigen Kollegen gedankenlos unerwünschte änderungen vornehmen.

Private Sub Worksheet_SelectionChange(ByVal Target As Range)
    If (Target.row = HEADER_ROW) Then
        wsMainTable.Unprotect Password:=PROTECTION_PASSWORD
    Else
        wsMainTable.Protect Password:=PROTECTION_PASSWORD, UserInterfaceOnly:=True
    End If
End Sub

Ich kam gerade mit einem kniffligen Weg, um fast die gleiche Funktionalität. Anstelle des Schutzes der Platte die normaler Weise mit einem Ereignishandler, etwas ungeschehen zu machen der Benutzer versucht, zu tun.

Fügen Sie den folgenden, um die worksheet-Modul:

Private Sub Worksheet_Change(ByVal Target As Range)
    If Target.Locked = True Then
        Application.EnableEvents = False
        Application.Undo
        Application.EnableEvents = True
    End If
End Sub

Wenn der Benutzer etwas tut zum ändern einer Zelle, die gesperrt ist, wird die Aktion sofort rückgängig gemacht. Das temporäre deaktivieren der Ereignisse zu halten, ist der Untergang selbst durch das auslösen dieses Ereignisses, die sich in einer unendlichen Schleife.

Sortieren und filtern lösen nicht das Change-Ereignis, so dass diese Funktionen aktiviert bleiben.

Beachten Sie, dass diese Lösung verhindert, dass das ändern oder löschen von Zellinhalt, aber nicht verhindern, dass Formate geändert werden. Ein entschlossener Benutzer könnte es umgehen, indem Sie einfach die Einstellung, die die Zellen entsperrt werden.

Lorie s Antwort ist gut, aber wenn ein Benutzer wählt einen Bereich aus, der enthält gesperrte und nicht gesperrte Zellen, die Daten in der gesperrten/geschützten Zellen gelöscht werden kann.

Isaac ' s Antwort ist Super, aber funktioniert nicht, wenn der Benutzer markiert einen Bereich, der sowohl einen gesperrten und nicht gesperrten Zellen.

Ich veränderte Isaaks-code ein bisschen, bis die änderungen rückgängig machen, wenn eine der Zellen in der Ziel-range sind gesperrt. Es zeigt auch eine Meldung, die erklärt, warum die Aktion wurde rückgängig gemacht. Kombiniert mit Lorie Antwort, ich war in der Lage, das gewünschte Ergebnis zu erzielen, in der Lage zu Sortieren/filtern einer geschützten Blatt, während immer noch so dass der Benutzer änderungen an einer ungeschützten Zelle.

Folgen Sie den Anweisungen in Lorie Antwort, dann legte Sie den folgenden code in das worksheet-Modul:

Private Sub Worksheet_Change(ByVal Target As Range)
    For Each i In Target
       If i.Locked = True Then
            Application.EnableEvents = False
            Application.Undo
            Application.EnableEvents = True
            MsgBox "Your action was undone because it made changes to a locked cell.", , "Action Undone"
        Exit For
        End If
    Next i
End Sub

Ich weiß, das ist super alt, aber kommt immer wenn ich google dieses Problem. Sie können den Schutz aufheben der Auswahl wie in der oben genannten Zellen und fügen Sie dann Daten-Validierung, um die ungeschützten Zellen Referenz etwas unerhört wie "423fdgfdsg3254fer" und dann, wenn Benutzer versuchen, Bearbeiten Sie die Zellen, Sie werden nicht in der Lage, aber du bist Sortieren und filtern funktioniert jetzt.

In Excel 2007, entsperren Sie die Zellen, die Sie wollen, geben Sie Ihre Daten in. Gehen Sie zur Überprüfung

 > Protect Sheet
 > Select Locked Cells (already selected)
 > Select unlocked Cells (already selected)
 > (and either) select Sort (or) Auto Filter 

Kein VB erforderlich