Hoe schakelt u bewerken uit in een tekstvak om gebruikersinvoer te voorkomen in Excel?
Dit artikel beschrijft hoe u bewerken uitschakelt in één of meerdere tekstvakken (ActiveX-besturingselementen) in Excel om gebruikersinvoer te voorkomen.
Bewerken uitschakelen in een tekstvak door de eigenschappen ervan te wijzigen
Bewerken uitschakelen in meerdere tekstvakken met VBA-code
Bewerken uitschakelen in een tekstvak door de eigenschappen ervan te wijzigen
In deze sectie leert u hoe u de eigenschappen van een tekstvak aanpast om bewerken uit te schakelen. Volg hiervoor de onderstaande stappen.
1. Schakel de ontwerpmodus in door te klikken op Ontwikkelaar > Ontwerpmodus. Zie de afbeelding hieronder:
2. Klik met de rechtermuisknop op het tekstvak en selecteer Eigenschappen in het contextmenu, zoals in de onderstaande afbeelding wordt weergegeven.
3. Selecteer in het geopende dialoogvenster Eigenschappen Nee bij Ingeschakeld en sluit vervolgens het dialoogvenster Eigenschappen. Zie onderstaande afbeelding:
Het geselecteerde tekstvak is nu grijs weergegeven en kan niet worden bewerkt.
Ontgrendel de magie van Excel met KUTOOLS AI
- Slimme uitvoering: Voer celbewerkingen uit, analyseer gegevens en maak grafieken — allemaal met eenvoudige opdrachten.
- aangepaste formules: Genereer op maat gemaakte formules om uw workflows te stroomlijnen.
- VBA-programmeren: Schrijf en implementeer VBA-code moeiteloos.
- Formule-uitleg: Begrijp complexe formules moeiteloos.
- Tekstvertaling: Doorbreek taalbarrières in uw spreadsheets.
Bewerken uitschakelen in meerdere tekstvakken met VBA-code
Als u het bewerken van meerdere tekstvakken op een werkblad wilt uitschakelen, past u de onderstaande VBA-code toe.
1. Ga naar het werkblad met de selectievakjes waarvoor u bewerken wilt uitschakelen en klik op Ontwikkelaar > Invoegen > Selectievakje (ActiveX-besturingselement) om een selectievakje in het werkblad in te voegen. Zie onderstaande afbeelding:
2. Klik met de rechtermuisknop op het selectievakje en kies Code weergeven in het contextmenu. Zie de afbeelding hieronder:
3. Vervang in het venster Microsoft Visual Basic for Applications de oorspronkelijke code door de onderstaande VBA-code.
VBA-code: Bewerken uitschakelen in meerdere tekstvakken
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 SubOpmerkingen:
1. In de code is CheckBox1 de naam van uw ingevoegde selectievakje. En TextBox1, TextBox2 en TextBox3 zijn de tekstvakken waarvoor u bewerken wilt uitschakelen op het werkblad. Pas deze namen indien nodig aan.
2. Als u het bewerken van meerdere tekstvakken wilt uitschakelen, voegt u de naam van het tekstvak tussen dubbele aanhalingstekens toe aan de regel xArr = Array("TextBox1", "TextBox2", "TextBox3").
4. Voer daarna de code **Opslaan en sluiten** uit, schakel de ontwerpmodus uit en controleer of het aanvinken van het selectievakje ervoor zorgt dat alle opgegeven tekstvakken op het werkblad niet meer bewerkbaar zijn. Zie onderstaande afbeelding:
Opmerking: Als u het selectievakje uitschakelt, kunt u de tekstvakken weer bewerken.
Gerelateerde artikelen:
- Hoe wijzigt u de tekst in een tekstvak zodra deze is geselecteerd in Excel?
- Hoe schakelt u automatisch aanvullen in voor een tekstvak terwijl u typt in Excel?
- Hoe wis je de inhoud van een tekstvak zodra erop wordt geklikt in Excel?
- Hoe combineert u tekst uit meerdere cellen in één tekstvak in Excel?
- Hoe formatteert u een tekstvak als percentage in Excel?
Beste Office-productiviteitshulpmiddelen
Geef uw Excel-vaardigheden een boost met Kutools voor Excel en ervaar efficiëntie zoals nooit tevoren.Kutools voor Excel biedt meer dan 300 geavanceerde functies om de productiviteit te verhogen en Tijd besparen.Klik hier om de functie te krijgen die u het meest nodig heeft...
Office Tab brengt een tabbladinterface naar Office en maakt uw werk veel eenvoudiger
- Schakel tabbladbewerking en -lezen in voor Word, Excel, PowerPoint, Publisher, Access, Visio en Project.
- Open en maak meerdere documenten aan in nieuwe tabbladen binnen hetzelfde venster, in plaats van in afzonderlijke vensters.
- Verhoogt uw productiviteit met 50 % en bespaart u dagelijks honderden muisklikken!
Alle Kutools-add-ins in één installatieprogramma.
Kutools for Office bundelt add-ins voor Excel, Word, Outlook en PowerPoint, plus Office Tab Pro—ideaal voor teams die met meerdere Office-apps werken.
- Alles-in-één suite— add-ins voor Excel, Word, Outlook & PowerPoint plus Office Tab Pro
- Één installatieprogramma, één licentie— binnen enkele minuten klaar (MSI-geschikt)
- Werkt beter samen— gestroomlijnde productiviteit in alle Office-apps
- 30 dagen volledig functionele proefversie— geen registratie, geen creditcard
- Beste prijs-kwaliteitverhouding— bespaar ten opzichte van het afzonderlijk kopen van add-ins