Comment verrouiller et déverrouiller des cellules spécifiées avec une case à cocher dans Excel?

Cet article parle de l'utilisation d'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 à l'aide du code VBA

Verrouiller et déverrouiller les cellules spécifiées avec une case à cocher à l'aide du 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. Veuillez 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 Verrouillage into the Prénom boîte, puis appuyez sur la 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.

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

3. Dans le pop-up Microsoft Visual Basic pour applications , veuillez copier et coller le code VBA ci-dessous dans le Code fenêtre.

Code VBA: verrouiller ou déverrouiller 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

Notes: 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.

Vous pouvez maintenant 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 le OK .

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

Articles connexes:

• Comment filtrer les données en fonction de la case à cocher dans Excel?
• Comment masquer la case à cocher lorsque la ligne est masquée dans Excel?
• Comment créer une liste déroulante avec plusieurs cases à cocher dans Excel?
• Comment mettre en évidence une cellule ou une ligne avec une case à cocher dans Excel?