Wie sperre oder entsperre ich Zellen basierend auf Werten in einer anderen Zelle in Excel?
In einigen Fällen müssen Sie möglicherweise Zellen basierend auf Werten in einer anderen Zelle sperren oder entsperren. Beispielsweise muss der Bereich B1: B4 entsperrt werden, wenn die Zelle A1 den Wert "Akzeptieren" enthält. und zu sperren, wenn Zelle A1 den Wert "Ablehnen" enthält. Wie können Sie dies erreichen? Dieser Artikel kann Ihnen helfen.
Sperren oder Entsperren von Zellen basierend auf Werten in einer anderen Zelle mit VBA-Code
Sperren oder Entsperren von Zellen basierend auf Werten in einer anderen Zelle mit VBA-Code
Mit dem folgenden VBA-Code können Sie Zellen basierend auf dem Wert in einer anderen Zelle in Excel sperren oder entsperren.
1. Klicken Sie mit der rechten Maustaste auf die Registerkarte Blatt (das Blatt mit Zellen, die Sie basierend auf Werten in einer anderen Zelle sperren oder entsperren müssen), und klicken Sie auf Code anzeigen aus dem Kontextmenü.
2. Kopieren Sie anschließend den folgenden VBA-Code und fügen Sie ihn in das Codefenster ein.
VBA-Code: Sperren oder Entsperren von Zellen basierend auf Werten in einer anderen Zelle
Private Sub Worksheet_Change(ByVal Target As Range)
If Range("A1") = "Accepting" Then
Range("B1:B4").Locked = False
ElseIf Range("A1") = "Refusing" Then
Range("B1:B4").Locked = True
End If
End Sub
3. Drücken Sie die Taste Andere + Q Tasten gleichzeitig zum Schließen der Microsoft Visual Basic für Applikationen Fenster.
Wenn Sie von nun an den Wert "Akzeptieren" in Zelle A1 eingeben, wird der Bereich B1: B4 entsperrt.
Bei Eingabe des Wertes „Ablehnen“ in Zelle A1 wird der angegebene Bereich B1: B4 automatisch gesperrt.
In Verbindung stehende Artikel:
- Wie sperre ich alle Zellenreferenzen in Formeln gleichzeitig in Excel?
- Wie sperren oder schützen Sie Zellen nach der Dateneingabe oder Eingabe in Excel?
- Wie sperre ich ein Bild in oder innerhalb einer Zelle in Excel?
Beste Office-Produktivitätstools
Verbessern Sie Ihre Excel-Kenntnisse mit Kutools für Excel und erleben Sie Effizienz wie nie zuvor. Kutools für Excel bietet über 300 erweiterte Funktionen, um die Produktivität zu steigern und Zeit zu sparen. Klicken Sie hier, um die Funktion zu erhalten, die Sie am meisten benötigen ...
Office Tab Bringt die Oberfläche mit Registerkarten in Office und erleichtert Ihnen die Arbeit erheblich
- Aktivieren Sie das Bearbeiten und Lesen von Registerkarten in Word, Excel und PowerPoint, Publisher, Access, Visio und Project.
- Öffnen und erstellen Sie mehrere Dokumente in neuen Registerkarten desselben Fensters und nicht in neuen Fenstern.
- Steigert Ihre Produktivität um 50 % und reduziert jeden Tag Hunderte von Mausklicks für Sie!