Astuce: Les autres langues sont Google-Traduction. Vous pouvez visiter le English version de ce lien.
Se connecter
x
or
x
x
S'enregistrer
x

or

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

Cet article parle de désactiver la modification dans une zone de texte (contrôle ActiveX) ou plusieurs zones de texte (contrôle ActiveX) pour empêcher l'utilisateur de saisir dans Excel.

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

Désactiver l'édition dans plusieurs zones de texte par 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 la modification de cette zone de texte. S'il vous plaît faire comme suit.

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

2. Cliquez avec le bouton droit sur la zone de texte et cliquez sur Propriétés à partir du menu contextuel comme ci-dessous capture d'écran illustré.

3. Dans l'ouverture Propriétés boîte de dialogue, sélectionnez Faux le Activé boîte, puis fermez la boîte de dialogue Propriétés. Voir la capture d'écran:

La zone de texte sélectionnée est maintenant grise et ne peut pas être modifiée.


Désactiver l'édition dans plusieurs zones de texte par code VBA

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

1. Dans la feuille de calcul contient plusieurs cases à cocher 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 la capture d'écran:

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

3. dans le Microsoft Visual Basic pour applications fenêtre, s'il vous plaît remplacer le code original avec ci-dessous le code VBA.

Code VBA: désactiver l'édition 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 que vous allez désactiver la modification dans la feuille de calcul. S'il vous plaît, changez-les selon vos besoins.

2. Pour désactiver l'édition de plusieurs zones de texte, ajoutez le nom de la zone de texte contenant des guillemets dans la ligne xArr = Array ("TextBox1", "TextBox2", "TextBox3").

4. Ensuite, enregistrez et fermez le code, désactivez le mode de conception, maintenant, en cochant la case, toutes les zones de texte spécifiées ne pourront pas être modifiées dans la feuille de calcul. Voir la capture d'écran:

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


Articles Liés:



Outils de productivité recommandés

Office Tab

étoile d'or1 Apportez des onglets pratiques à Excel et à d'autres logiciels Office, tout comme Chrome, Firefox et Internet Explorer.

Kutools for Excel

étoile d'or1 Incroyable! Augmentez votre productivité dans les minutes 5. Ne nécessite pas de compétences particulières, économisez deux heures par jour!

étoile d'or1 300 Nouvelles fonctionnalités pour Excel, rendent Excel facile et puissant:

  • Fusionner des cellules / lignes / colonnes sans perdre de données.
  • Combiner et consolider plusieurs feuilles et classeurs.
  • Comparez les gammes, copiez plusieurs gammes, convertissez le texte en date, l'unité et la conversion de devise.
  • Compter par couleurs, sous-totaux de recherche, tri avancé et super filtre,
  • Plus Sélectionner / Insérer / Supprimer / Texte / Format / Lier / Commenter / Classeurs / Feuilles de calcul Outils ...

Capture d'écran de Kutools pour Excel

Say something here...
symbols left.
You are guest ( Sign Up? )
or post as a guest, but your post won't be published automatically.
Loading comment... The comment will be refreshed after 00:00.

Be the first to comment.