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 verrouiller et déverrouiller des cellules spécifiées avec une case à cocher dans Excel?

Cet article parle d'utiliser une case à cocher pour verrouiller et déverrouiller une plage de cellules spécifiées dans Excel.

Verrouiller et déverrouiller les cellules spécifiées avec une case à cocher en utilisant le code VBA


flèche bleue droite bulle Verrouiller et déverrouiller les cellules spécifiées avec une case à cocher en utilisant le code VBA


Le script VBA ci-dessous peut vous aider à déverrouiller ou verrouiller une plage de cellules spécifiées lorsque vous cochez ou décochez une case dans la feuille de calcul. S'il vous plaît faire comme suit.

1. Tout d'abord, vous devez spécifier un nom pour la plage de cellules que vous devez verrouiller et déverrouiller avec une case à cocher.

Ici, je sélectionne la plage A1: A14, saisissez un nom LockRng dans le Nom boîte, puis appuyez sur Entrer clé. Voir la capture d'écran:

2. Dans la feuille de calcul contient la case à cocher que vous utiliserez pour verrouiller et déverrouiller les cellules, cliquez avec le bouton droit sur l'onglet Feuille, puis cliquez sur Voir le code dans le menu contextuel.

Note: La case à cocher doit être case à cocher ActiveX lors de l'insertion.

3. Dans le popping up Microsoft Visual Basic pour applications fenêtre, s'il vous plaît copiez et collez le code VBA ci-dessous dans le Code fenêtre.

Code VBA: Verrouille ou déverrouille une plage de cellules spécifiées avec une case à cocher

Private Sub CheckBox1_Click()
    Range("LockRng").Select
    On Error Resume Next
    If CheckBox1.Value = True Then
        Selection.Locked = Fals
        MsgBox "Range cells " & Selection.Address & " has been unlocked", vbInformation, "Kutools for Excel"
    Else
        Selection.Locked = True
        MsgBox "Range cells " & Selection.Address & " has been locked", vbInformation, "Kutools for Excel"
    End If
End Sub

Note: Dans le code, Checkbox1 est le nom de la case à cocher, LockRng est le nom de la cellule de plage spécifiée. Vous pouvez les changer selon vos besoins.

4. appuie sur le autre + Q touches simultanément pour fermer le Microsoft Visual Basic pour applications fenêtre.

Maintenant vous pouvez tester le code. Lorsque vous décochez la case, un Kutools for Excel la boîte de dialogue apparaîtra pour vous indiquer que la plage spécifiée a été verrouillée, veuillez cliquer sur OK .

En cochant la case, toutes les cellules de la plage spécifiée seront déverrouillées et vous obtiendrez une Kutools for Excel boîte de dialogue comme ci-dessous droite capture d'écran montré.


flèche bleue droite bulleArticles connexes:



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.