Wie sperren oder schützen Sie Zellen nach der Dateneingabe oder Eingabe in Excel?
Angenommen, Sie haben ein Arbeitsblatt und nur ein bestimmter Bereich leerer Zellen muss eingegeben werden. Nach Abschluss der Dateneingabe müssen die Zellen automatisch gesperrt werden, um Änderungen erneut zu verhindern. Wie können Sie dies erreichen? Dieser Artikel kann Ihnen helfen.
Sperren oder schützen Sie Zellen nach der Dateneingabe oder Eingabe mit VBA-Code
Sperren oder schützen Sie Zellen nach der Dateneingabe oder Eingabe mit VBA-Code
Beispielsweise ist der bestimmte Bereich von leeren Zellen A1: F8. Gehen Sie wie folgt vor, um diese Zellen nach der Dateneingabe in Excel zu sperren.
1. Bitte entsperren Sie zuerst diesen Bereich, wählen Sie die Zellen aus, klicken Sie mit der rechten Maustaste und wählen Sie dann Format Cells im Kontextmenü und in der Format Cells Dialogfeld, deaktivieren Sie das Kontrollkästchen Verschlossen Kasten unter dem Sicherheit Klicken Sie auf die Registerkarte OK Taste. Siehe Screenshot:
2 Klicken Bewertung > Schutzblatt. Geben Sie ein Kennwort an, um dieses Arbeitsblatt zu schützen.
3. Klicken Sie mit der rechten Maustaste auf die Registerkarte Blatt und wählen Sie Code anzeigen aus dem Kontextmenü. Kopieren Sie dann den folgenden VBA-Code und fügen Sie ihn in das Codefenster ein. Siehe Screenshot:
VBA-Code: Sperren oder schützen Sie Zellen nach der Dateneingabe oder -eingabe
Dim mRg As Range
Dim mStr As String
Private Sub Worksheet_BeforeDoubleClick(ByVal Target As Range, Cancel As Boolean)
If Not Intersect(Range("A1:F8"), Target) Is Nothing Then
Set mRg = Target.Item(1)
mStr = mRg.Value
End If
End Sub
Private Sub Worksheet_Change(ByVal Target As Range)
Dim xRg As Range
On Error Resume Next
Set xRg = Intersect(Range("A1:F8"), Target)
If xRg Is Nothing Then Exit Sub
Target.Worksheet.Unprotect Password:="123"
If xRg.Value <> mStr Then xRg.Locked = True
Target.Worksheet.Protect Password:="123"
End Sub
Private Sub Worksheet_SelectionChange(ByVal Target As Range)
If Not Intersect(Range("A1:F8"), Target) Is Nothing Then
Set mRg = Target.Item(1)
mStr = mRg.Value
End If
End Sub
Note: Im Code ist „A1: F8“ der Bereich, in dem Sie Daten eingeben müssen. und "123" ist das Passwort dieses geschützten Arbeitsblatts. Bitte ändern Sie sie nach Bedarf.
4. Drücken Sie Andere + Q Tasten gleichzeitig zum Schließen der Microsoft Visual Basic für Applikationen Fenster.
Nach Abschluss der Dateneingabe in die Zellen des Bereichs A1: F8 werden diese automatisch gesperrt. Wenn Sie versuchen, einen Zelleninhalt dieses Bereichs zu ändern, wird ein Dialogfeld mit einer Eingabeaufforderung angezeigt. Siehe Screenshot:
In Verbindung stehende Artikel:
- Wie sperre ich alle Zellenreferenzen in Formeln gleichzeitig in Excel?
- Wie sperre oder entsperre ich Zellen basierend auf Werten in einer anderen Zelle 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!