Come disabilitare la modifica in una casella di testo per impedire l'inserimento da parte dell'utente in Excel?

Questo articolo parla della disattivazione della modifica in una casella di testo (ActiveX Control) o in più caselle di testo (ActiveX Control) per impedire l'inserimento da parte dell'utente in Excel.

Disabilitare la modifica in una casella di testo modificandone le proprietà
Disabilitare la modifica in più caselle di testo tramite codice VBA

Disabilitare la modifica in una casella di testo modificandone le proprietà

Questa sezione ti mostrerà come modificare le proprietà di una casella di testo per disabilitarne la modifica. Procedi come segue.

1. Attiva la Modalità Progettazione facendo clic su Sviluppatore > Modalità Progettazione. Vedi screenshot:

2. Fai clic con il tasto destro sulla casella di testo e seleziona Proprietà dal menu contestuale, come mostrato nello screenshot sottostante.

3. Nella finestra di dialogo Proprietà che si apre, seleziona No nella casella Abilitato e poi chiudi la finestra di dialogo Proprietà. Vedi screenshot:

Ora la casella di testo selezionata è grigia e non può essere modificata.

Sblocca la Magia di Excel con Kutools AI

• Esecuzione Intelligente: Esegui operazioni sulle celle, analizza i dati e crea grafici — tutto guidato da semplici comandi.
• Formule Personalizzate: Genera formule su misura per ottimizzare i tuoi flussi di lavoro.
• Codifica VBA: Scrivi e implementa codice VBA senza sforzo.
• Interpretazione delle Formule: Comprendi facilmente formule complesse.
• Traduzione del Testo: Superare le barriere linguistiche all'interno dei tuoi fogli di calcolo.

Potenzia le tue capacità di Excel con strumenti alimentati dall'IA. Scarica Ora ed esperisci un'efficienza mai vista prima!

Disabilitare la modifica in più caselle di testo tramite codice VBA

Se desideri disabilitare la modifica in più caselle di testo in un foglio di lavoro, applica il seguente codice VBA.

1. Nel foglio di lavoro contenente più caselle di controllo in cui vuoi disabilitare la modifica, fai clic su Sviluppatore > Inserisci > Casella di controllo (ActiveX Control) per inserire una casella di controllo nel foglio di lavoro. Vedi screenshot:

2. Fai clic con il tasto destro sulla casella di controllo e seleziona Visualizza Codice dal menu contestuale. Vedi screenshot:

3. Nella finestra Microsoft Visual Basic for Applications, sostituisci il codice originale con il seguente codice VBA.

Codice VBA: Disabilitare 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 tua casella di controllo inserita. E TextBox1, TextBox2 e TextBox3 sono le caselle di testo in cui disabiliterai la modifica nel foglio di lavoro. Cambiali secondo necessità.

2. Per disabilitare la modifica per altre caselle di testo, aggiungi il nome della casella di testo racchiuso tra virgolette doppie nella riga xArr = Array("TextBox1", "TextBox2", "TextBox3").

4. Quindi salva e chiudi il codice, disattiva la Modalità Progettazione, ora, selezionando la casella di controllo renderà tutte le caselle di testo specificate non modificabili nel foglio di lavoro. Vedi screenshot:

Nota: Se deselezioni la casella di controllo, le caselle di testo potranno essere nuovamente modificate.

Articoli correlati:

• Come selezionare automaticamente il testo di una casella di testo quando viene selezionata in Excel?
• Come abilitare il completamento automatico di una casella di testo durante la digitazione in Excel?
• Come cancellare il contenuto di una casella di testo quando viene cliccata in Excel?
• Come concatenare i testi di più celle in una casella di testo in Excel?
• Come formattare una casella di testo come percentuale in Excel?