¿Cómo deshabilitar la edición en un cuadro de texto para evitar que el usuario escriba en Excel?

Este artículo trata sobre cómo deshabilitar la edición en un cuadro de texto (Control ActiveX) o en varios cuadros de texto (Control ActiveX) para evitar que el usuario escriba en Excel.

Deshabilitar la edición en un cuadro de texto cambiando sus propiedades
Deshabilitar la edición en varios cuadros de texto mediante código VBA

Deshabilitar la edición en un cuadro de texto cambiando sus propiedades

Esta sección le mostrará cómo cambiar las propiedades de un cuadro de texto para deshabilitar su edición. Por favor, siga los siguientes pasos.

1. Active el Modo Diseño haciendo clic en Desarrollador > Modo Diseño. Ver captura de pantalla:

2. Haga clic derecho en el cuadro de texto y seleccione Propiedades desde el menú contextual como se muestra en la siguiente captura de pantalla.

3. En el cuadro de diálogo Propiedades que se abre, seleccione No en el cuadro Habilitado y luego cierre el cuadro de diálogo Propiedades. Ver captura de pantalla:

Ahora el cuadro de texto seleccionado está en gris y no se puede editar.

Descubre la Magia de Excel con Kutools AI

• Ejecución Inteligente: Realiza operaciones en celdas, analiza datos y crea gráficos, todo impulsado por comandos simples.
• Fórmulas Personalizadas: Genera fórmulas adaptadas para optimizar tus flujos de trabajo.
• Codificación VBA: Escribe e implementa código VBA sin esfuerzo.
• Interpretación de Fórmulas: Comprende fórmulas complejas con facilidad.
• Traducción de Texto: Supera las barreras del idioma dentro de tus hojas de cálculo.

Potencia tus capacidades de Excel con herramientas impulsadas por IA. ¡Descarga Ahora y experimenta una eficiencia como nunca antes!

Deshabilitar la edición en varios cuadros de texto mediante código VBA

Si desea deshabilitar la edición en varios cuadros de texto en una hoja de cálculo, por favor, aplique el siguiente código VBA.

1. En la hoja de cálculo que contiene varios cuadros de verificación en los que necesita deshabilitar la edición, haga clic en Desarrollador > Insertar > Cuadro de verificación (Control ActiveX) para insertar un cuadro de verificación en la hoja de cálculo. Ver captura de pantalla:

2. Haga clic derecho en el cuadro de verificación y seleccione Ver código desde el menú contextual. Ver captura de pantalla:

3. En la ventana Microsoft Visual Basic para Aplicaciones, reemplace el código original con el siguiente código VBA.

Código VBA: Deshabilitar la edición en varios cuadros de texto

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

Notas:

1. En el código, CheckBox1 es el nombre del cuadro de verificación insertado. Y TextBox1, TextBox2 y TextBox3 son los cuadros de texto en los que deshabilitará la edición en la hoja de cálculo. Cambie estos nombres según sea necesario.

2. Para deshabilitar la edición de más cuadros de texto, agregue el nombre del cuadro de texto entre comillas dobles en la línea xArr = Array("TextBox1", "TextBox2", "TextBox3").

4. Luego guarde y cierre el código, desactive el Modo Diseño; ahora, al marcar el cuadro de verificación, todos los cuadros de texto especificados no podrán ser editados en la hoja de cálculo. Ver captura de pantalla:

Nota: Si desmarca el cuadro de verificación, los cuadros de texto podrán volver a ser editados.

Artículos relacionados:

• ¿Cómo seleccionar automáticamente el texto de un cuadro de texto cuando se selecciona en Excel?
• ¿Cómo autocompletar un cuadro de texto mientras se escribe en Excel?
• ¿Cómo borrar el contenido de un cuadro de texto cuando se hace clic en Excel?
• ¿Cómo concatenar textos de varias celdas en un cuadro de texto en Excel?
• ¿Cómo formatear un cuadro de texto como un porcentaje en Excel?