Wie deaktiviere ich die Bearbeitung im Textfeld, um Benutzereingaben in Excel zu verhindern?
In diesem Artikel wird das Deaktivieren der Bearbeitung in einem Textfeld (ActiveX Control) oder mehreren Textfeldern (ActiveX Control) behandelt, um Benutzereingaben in Excel zu verhindern.
Deaktivieren Sie die Bearbeitung in einem Textfeld, indem Sie dessen Eigenschaften ändern
Deaktivieren Sie die Bearbeitung in mehreren Textfeldern nach VBA-Code
Deaktivieren Sie die Bearbeitung in einem Textfeld, indem Sie dessen Eigenschaften ändern
In diesem Abschnitt erfahren Sie, wie Sie die Eigenschaften eines Textfelds ändern, um die Bearbeitung dieses Textfelds zu deaktivieren. Bitte gehen Sie wie folgt vor.
1. Schalten Sie den Entwurfsmodus ein, indem Sie auf klicken Entwickler:in / Unternehmen > Entwurfsmodus. Siehe Screenshot:
2. Klicken Sie mit der rechten Maustaste auf das Textfeld und klicken Sie auf Ferienhäuser aus dem Kontextmenü wie unten Screenshot gezeigt.
3. In der Öffnung Ferienhäuser Dialogfeld auswählen falsch der Aktiviert und schließen Sie dann das Dialogfeld Eigenschaften. Siehe Screenshot:
Jetzt ist das ausgewählte Textfeld grau und kann nicht mehr bearbeitet werden.
Deaktivieren Sie die Bearbeitung in mehreren Textfeldern nach VBA-Code
Wenn Sie die Bearbeitung in mehreren Textfeldern in einem Arbeitsblatt deaktivieren möchten, wenden Sie den folgenden VBA-Code an.
1. Klicken Sie im Arbeitsblatt mit mehreren Kontrollkästchen, die Sie zum Deaktivieren der Bearbeitung benötigen, auf Entwickler:in / Unternehmen > Insert > Kontrollkästchen (ActiveX Control) um ein Kontrollkästchen in das Arbeitsblatt einzufügen. Siehe Screenshot:
2. Klicken Sie mit der rechten Maustaste auf das Kontrollkästchen und wählen Sie Code anzeigen aus dem Kontextmenü. Siehe Screenshot:
3. In dem Microsoft Visual Basic für Applikationen Fenster, bitte ersetzen Sie den Originalcode durch den folgenden VBA-Code.
VBA-Code: Deaktivieren Sie die Bearbeitung in mehreren Textfeldern
Private Sub CheckBox1_Click()
Dim xTextBox As OLEObject
Dim xFlag As Boolean
Dim I As Long
Dim xArr
xArr = Array("TextBox1", "TextBox2", "TextBox3")
xFlag = True
If Me.CheckBox1 Then xFlag = False
For Each xTextBox In ActiveSheet.OLEObjects
If TypeName(xTextBox.Object) = "TextBox" Then
For I = 0 To UBound(xArr)
If xTextBox.Name = xArr(I) Then
xTextBox.Enabled = xFlag
End If
Next
End If
Next
End Sub
Notizen:
1. Im Code CheckBox1 ist der Name Ihres eingefügten Kontrollkästchens. Und TextBox1, TextBox2 und TextBox3 sind die Textfelder, in denen Sie die Bearbeitung im Arbeitsblatt deaktivieren. Bitte ändern Sie sie nach Bedarf.
2. Um die Bearbeitung für weitere Textfelder zu deaktivieren, fügen Sie bitte den Textfeldnamen mit doppelten Anführungszeichen in die Zeile ein xArr = Array ("TextBox1", "TextBox2", "TextBox3").
4. Speichern und schließen Sie dann den Code und deaktivieren Sie den Entwurfsmodus. Wenn Sie das Kontrollkästchen aktivieren, können alle angegebenen Textfelder im Arbeitsblatt nicht mehr bearbeitet werden. Siehe Screenshot:
Note: Wenn Sie das Kontrollkästchen deaktivieren, können die Textfelder erneut bearbeitet werden.
In Verbindung stehende Artikel:
- Wie wähle ich automatisch Text eines Textfelds aus, wenn es in Excel ausgewählt wird?
- Wie vervollständige ich ein Textfeld beim Eingeben in Excel automatisch?
- Wie lösche ich den Inhalt des Textfelds, wenn ich in Excel klicke?
- Wie verkette ich Texte mehrerer Zellen in ein Textfeld in Excel?
- Wie formatiere ich ein Textfeld als Prozentsatz 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!