Wie können Sie mithilfe eines Kontrollkästchens festgelegte Zellen in Excel sperren und entsperren?
Dieser Artikel zeigt, wie Sie mit einem Kontrollkästchen einen festgelegten Zellbereich in Excel sperren und entsperren können.
Festgelegte Zellen mit einem Kontrollkästchen mithilfe von VBA-Code sperren und entsperren
Festgelegte Zellen mit einem Kontrollkästchen mithilfe von VBA-Code sperren und entsperren
Das folgende VBA-Skript unterstützt Sie dabei, einen festgelegten Zellbereich beim Aktivieren oder Deaktivieren eines Kontrollkästchens im Arbeitsblatt automatisch zu entsperren bzw. zu sperren. Gehen Sie dazu wie folgt vor:
1. Benennen Sie zunächst den Zellbereich, den Sie mithilfe eines Kontrollkästchens sperren und entsperren möchten.
Hier markiere ich den Bereich A1:A14, gebe im Feld Name den Namen LockRng ein und drücke anschließend die Enter-Taste. Siehe Screenshot:
2. Klicken Sie im Arbeitsblatt, das das gewünschte Kontrollkästchen zum Sperren und Entsperren der Auswahl enthält, mit der rechten Maustaste auf die Blattregisterkarte und wählen Sie im Kontextmenü Code anzeigen.
Hinweis: Beim Einfügen muss das Kontrollkästchen ein ActiveX-Kontrollkästchen sein.
3. Fügen Sie im erscheinenden Fenster Microsoft Visual Basic for Applications den folgenden VBA-Code in das Code-Fenster ein.
VBA-Code: Einen Bereich festgelegter Zellen mit einem Kontrollkästchen sperren oder entsperren
Private Sub CheckBox1_Click()
Range("LockRng").Select
On Error Resume Next
If CheckBox1.Value = True Then
Selection.Locked = False
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 SubHinweis: Im Code ist „Checkbox1“ der Name des Kontrollkästchens und „LockRng“ der Name der Zelle mit dem eingeschränkten Bereich. Sie können diese Namen beliebig anpassen.
4. Drücken Sie gleichzeitig die Tasten Alt + Q, um das Fenster Microsoft Visual Basic for Applications zu schließen.
Sie können den Code nun testen: Sobald Sie das Kontrollkästchen deaktivieren, erscheint ein Kutools für Excel-Dialogfeld mit der Meldung, dass der begrenzte Bereich gesperrt wurde. Klicken Sie auf die Schaltfläche OK.
Wenn Sie das Kontrollkästchen aktivieren, werden alle Zellen im eingeschränkten Bereich entsperrt, und Sie erhalten ein Kutools für Excel-Dialogfeld wie im rechten Screenshot unten dargestellt.
Verwandte Artikel:
- Wie filtert man Daten anhand eines Kontrollkästchens in Excel?
- Wie blendet man ein Kontrollkästchen aus, wenn die zugehörige Zeile in Excel ausgeblendet ist?
- Wie erstellt man in Excel eine Dropdown-Liste mit mehreren Kontrollkästchen?
- Wie hebt man eine Zelle oder Zeile in Excel mithilfe eines Kontrollkästchens hervor?
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 zur Steigerung der Produktivität und Zeit sparen.Klicken Sie hier, um die Funktion zu erhalten, die Sie am dringendsten benötigen...
Office Tab bringt eine tabbasierte Oberfläche in Office und macht Ihre Arbeit viel einfacher
- Aktivieren Sie tabbasiertes Bearbeiten und Lesen in Word, Excel, PowerPoint, Publisher, Access, Visio und Project.
- Öffnen und erstellen Sie mehrere Dokumente in neuen Registerkarten desselben Fensters – statt jedes in einem separaten Fenster zu öffnen.
- Steigert Ihre Produktivität um 50 % und erspart Ihnen täglich Hunderte von Mausklicks!
Alle Kutools-Add-Ins – ein Installationsprogramm
Kutools for Office-Paket bündelt Add-Ins für Excel, Word, Outlook und PowerPoint sowie Office Tab Pro – ideal für Teams, die mit mehreren Office-Anwendungen arbeiten.
- Alles-in-einem-Paket— Add-Ins für Excel, Word, Outlook & PowerPoint sowie Office Tab Pro
- Ein Installationsprogramm, eine Lizenz— innerhalb weniger Minuten eingerichtet (MSI-fähig)
- Funktioniert besser zusammen— optimierte Produktivität über alle Office-Anwendungen hinweg
- 30-tägige Vollversion zum Testen— keine Registrierung, keine Kreditkarte erforderlich
- Bestes Preis-Leistungs-Verhältnis— sparen Sie im Vergleich zum Kauf einzelner Add-Ins