Comment désactiver la modification dans une zone de texte pour empêcher la saisie utilisateur dans Excel ?

Cet article traite de la désactivation de la modification dans une zone de texte (contrôle ActiveX) ou plusieurs zones de texte (contrôle ActiveX) pour empêcher la saisie utilisateur dans Excel.

Désactiver la modification dans une zone de texte en modifiant ses propriétés
Désactiver la modification dans plusieurs zones de texte avec du code VBA

Désactiver la modification dans une zone de texte en modifiant ses propriétés

Cette section vous montrera comment modifier les propriétés d'une zone de texte pour désactiver sa modification. Veuillez procéder comme suit.

1. Activez le Mode Création en cliquant sur Développeur > Mode Création. Voir capture d'écran :

2. Cliquez avec le bouton droit sur la zone de texte et sélectionnez Propriétés dans le menu contextuel, comme indiqué dans la capture d'écran ci-dessous.

3. Dans la boîte de dialogue Propriétés qui s'ouvre, sélectionnez Non dans la case Activé, puis fermez la boîte de dialogue Propriétés. Voir capture d'écran :

Maintenant, la zone de texte sélectionnée est grisée et ne peut pas être modifiée.

Découvrez la magie d'Excel avec Kutools AI

• Exécution intelligente : Effectuez des opérations sur les cellules, analysez les données et créez des graphiques, le tout piloté par des commandes simples.
• Formules personnalisées : Générez des formules adaptées pour rationaliser vos flux de travail.
• Codage VBA : Écrivez et implémentez du code VBA sans effort.
• Interprétation des formules : Comprenez facilement des formules complexes.
• Traduction de texte : Surmontez les barrières linguistiques dans vos feuilles de calcul.

Améliorez vos capacités Excel avec des outils alimentés par l'IA. Téléchargez maintenant et découvrez une efficacité sans précédent !

Désactiver la modification dans plusieurs zones de texte avec du code VBA

Si vous souhaitez désactiver la modification dans plusieurs zones de texte dans une feuille de calcul, veuillez appliquer le code VBA ci-dessous.

1. Dans la feuille de calcul contenant plusieurs cases à cocher dont vous devez désactiver la modification, cliquez sur Développeur > Insérer > Case à cocher (contrôle ActiveX) pour insérer une case à cocher dans la feuille de calcul. Voir capture d'écran :

2. Cliquez avec le bouton droit sur la case à cocher et sélectionnez Afficher le code dans le menu contextuel. Voir capture d'écran :

3. Dans la fenêtre Microsoft Visual Basic for Applications, remplacez le code original par le code VBA ci-dessous.

Code VBA : Désactiver la modification dans plusieurs zones de texte

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

Remarques :

1. Dans le code, CheckBox1 est le nom de votre case à cocher insérée. Et TextBox1, TextBox2, et TextBox3 sont les zones de texte dont vous désactiverez la modification dans la feuille de calcul. Veuillez les changer selon vos besoins.

2. Pour désactiver la modification pour plus de zones de texte, ajoutez le nom de la zone de texte entouré de guillemets doubles dans la ligne xArr = Array("TextBox1", "TextBox2", "TextBox3").

4. Ensuite, enregistrez et fermez le code, désactivez le Mode Création, maintenant, cocher la case rendra toutes les zones de texte spécifiées non modifiables dans la feuille de calcul. Voir capture d'écran :

Remarque : Si vous décochez la case, les zones de texte peuvent être modifiées à nouveau.

Articles connexes :

• Comment sélectionner automatiquement le texte d'une zone de texte lorsqu'elle est sélectionnée dans Excel ?
• Comment activer l'autocomplétion dans une zone de texte lors de la saisie dans Excel ?
• Comment effacer le contenu d'une zone de texte lorsqu'elle est cliquée dans Excel ?
• Comment concaténer les textes de plusieurs cellules dans une zone de texte dans Excel ?
• Comment formater une zone de texte en pourcentage dans Excel ?