Come disabilitare la modifica nella casella di testo per impedire l'inserimento dell'utente in Excel?
Questo articolo parla della disabilitazione della modifica in una casella di testo (controllo ActiveX) o più caselle di testo (controllo ActiveX) per impedire l'immissione da parte dell'utente in Excel.
Disabilita la modifica in una casella di testo modificandone le proprietà
Disabilita la modifica in più caselle di testo tramite codice VBA
Disabilita la modifica in una casella di testo modificandone le proprietà
Questa sezione ti mostrerà come modificare le proprietà di una casella di testo per disabilitare la modifica di questa casella di testo. Si prega di fare quanto segue.
1. Attivare la modalità di progettazione facendo clic su Costruttori > Modalità di progettazione. Vedi screenshot:
2. Fare clic con il pulsante destro del mouse sulla casella di testo e fare clic Properties dal menu contestuale come mostrato nell'immagine sottostante.
3. In apertura Properties finestra di dialogo, selezionare Falso nel abilitato casella e quindi chiudere la finestra di dialogo Proprietà. Vedi screenshot:
Ora la casella di testo selezionata è grigia e non può essere modificata.
Disabilita la modifica in più caselle di testo tramite codice VBA
Se si desidera disabilitare la modifica in più caselle di testo in un foglio di lavoro, applicare il codice VBA sottostante.
1. Nel foglio di lavoro contiene più caselle di controllo che è necessario disabilitare la modifica, fare clic su Costruttori > inserire > Casella di controllo (controllo ActiveX) per inserire una casella di controllo nel foglio di lavoro. Vedi screenshot:
2. Fare clic con il pulsante destro del mouse sulla casella di controllo e selezionare Visualizza codice dal menu contestuale. Vedi screenshot:
3. Nel Microsoft Visual Basic, Applications Edition finestra, sostituire il codice originale con il codice VBA sottostante.
Codice VBA: disabilita la modifica in più caselle di testo
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 SubNote:
1. Nel codice, CheckBox1 è il nome della casella di controllo inserita. E Casella di testo1, Casella di testo2e Casella di testo3 sono le caselle di testo che disabiliterete la modifica nel foglio di lavoro. Si prega di cambiarli come necessario.
2. Per disabilitare la modifica per più caselle di testo, aggiungere il nome della casella di testo racchiuso tra virgolette doppie nella riga xArr = Array ("TextBox1", "TextBox2", "TextBox3").
4. Quindi salvare e chiudere il codice, disattivare la modalità di progettazione, ora, selezionando la casella di controllo, tutte le caselle di testo specificate non potranno essere modificate nel foglio di lavoro. Vedi screenshot:
Note:: Se deselezioni la casella di controllo, le caselle di testo possono essere nuovamente modificate.
Articoli correlati:
- Come selezionare automaticamente il testo di una casella di testo quando è selezionata in Excel?
- Come completare automaticamente una casella di testo durante la digitazione in Excel?
- Come cancellare il contenuto della casella di testo quando si fa clic in Excel?
- Come concatenare testi di più celle in una casella di testo in Excel?
- Come formattare una casella di testo come percentuale in Excel?
I migliori strumenti per la produttività in ufficio
Potenzia le tue competenze di Excel con Kutools per Excel e sperimenta l'efficienza come mai prima d'ora. Kutools per Excel offre oltre 300 funzionalità avanzate per aumentare la produttività e risparmiare tempo. Fai clic qui per ottenere la funzionalità di cui hai più bisogno...
Office Tab porta l'interfaccia a schede in Office e semplifica notevolmente il tuo lavoro
- Abilita la modifica e la lettura a schede in Word, Excel, PowerPoint, Publisher, Access, Visio e Project.
- Apri e crea più documenti in nuove schede della stessa finestra, piuttosto che in nuove finestre.
- Aumenta la produttività del 50% e riduce ogni giorno centinaia di clic del mouse!
