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 Sub

Note:

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?