Wie sperren und entsperren Sie bestimmte Zellen mit einem Kontrollkästchen in Excel?
In diesem Artikel wird die Verwendung eines Kontrollkästchens zum Sperren und Entsperren einer Reihe angegebener Zellen in Excel beschrieben.
Sperren und entsperren Sie bestimmte Zellen mit einem Kontrollkästchen mithilfe des VBA-Codes
Sperren und entsperren Sie bestimmte Zellen mit einem Kontrollkästchen mithilfe des VBA-Codes
Das folgende VBA-Skript kann Ihnen helfen, einen Bereich angegebener Zellen zu entsperren oder zu sperren, wenn Sie ein Kontrollkästchen im Arbeitsblatt aktivieren oder deaktivieren. Bitte gehen Sie wie folgt vor.
1. Zunächst müssen Sie dem Zellenbereich, den Sie mit einem Kontrollkästchen sperren und entsperren müssen, einen Namen geben.
Hier wähle ich Bereich A1: A14, gebe einen Namen ein LockRng in die Name und Vorname Box, und drücken Sie dann die Enter Schlüssel. Siehe Screenshot:
2. Das Arbeitsblatt enthält das Kontrollkästchen, mit dem Sie Zellen sperren und entsperren. Klicken Sie mit der rechten Maustaste auf die Registerkarte Blatt, und klicken Sie dann auf Code anzeigen aus dem Kontextmenü.
Note: Das Kontrollkästchen sollte beim Einfügen ActiveX sein.
3. Beim Auftauchen Microsoft Visual Basic für Applikationen Fenster kopieren Sie bitte den folgenden VBA-Code und fügen Sie ihn in das ein Code Fenster.
VBA-Code: Sperren oder entsperren Sie einen Bereich bestimmter Zellen mit einem Kontrollkästchen
Private Sub CheckBox1_Click()
Range("LockRng").Select
On Error Resume Next
If CheckBox1.Value = True Then
Selection.Locked = Fals
MsgBox "Range cells " & Selection.Address & " has been unlocked", vbInformation, "Kutools for Excel"
Else
Selection.Locked = True
MsgBox "Range cells " & Selection.Address & " has been locked", vbInformation, "Kutools for Excel"
End If
End Sub
Note: Im Code ist Checkbox1 der Name des Kontrollkästchens, LockRng der Name der angegebenen Bereichszelle. Sie können sie nach Bedarf ändern.
4. Drücken Sie die Taste Andere + Q Tasten gleichzeitig zum Schließen der Microsoft Visual Basic für Applikationen Fenster.
Jetzt können Sie den Code testen. Wenn Sie das Kontrollkästchen deaktivieren, a Kutools for Excel Das Dialogfeld zeigt an, dass der angegebene Bereich gesperrt wurde. Klicken Sie auf OK .
Wenn Sie das Kontrollkästchen aktivieren, werden alle Zellen im angegebenen Bereich entsperrt und Sie erhalten eine Kutools for Excel Dialogfeld wie unten rechts gezeigt.
In Verbindung stehende Artikel:
- Wie filtere ich Daten basierend auf dem Kontrollkästchen in Excel?
- Wie kann ich das Kontrollkästchen ausblenden, wenn die Zeile in Excel ausgeblendet ist?
- Wie erstelle ich eine Dropdown-Liste mit mehreren Kontrollkästchen in Excel?
- Wie markiere ich eine Zelle oder Zeile mit einem Kontrollkästchen 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!