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

Cet article traite 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 des cellules spécifiées avec une case à cocher en utilisant du code VBA

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

Le script VBA ci-dessous peut vous aider à déverrouiller ou verrouiller une plage de cellules spécifiées lors de la sélection ou désélection d'une case à cocher dans une feuille de calcul. Veuillez procéder comme suit.

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

Ici, je sélectionne la plage A1:A14, je tape un nom LockRng dans la zone Nom, puis j'appuie sur la touche Entrée. Voir capture d'écran :

2. Dans la feuille de calcul contenant la case à cocher que vous utiliserez pour verrouiller et déverrouiller les cellules, faites un clic droit sur l'onglet Feuille, puis cliquez sur Affichage du code dans le menu contextuel.

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

3. Dans la fenêtre Microsoft Visual Basic for Applications qui apparaît, veuillez copier et coller le code VBA ci-dessous dans la fenêtre Code.

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 = False
        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

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

4. Appuyez simultanément sur les touches Alt + Q pour fermer la fenêtre Microsoft Visual Basic for Applications.

Vous pouvez maintenant tester le code. Lorsque vous décochez la case à cocher, une boîte de dialogue Kutools pour Excel apparaîtra pour vous informer que la plage spécifiée a été verrouillée, veuillez cliquer sur le bouton OK.

Lorsque vous cochez la case à cocher, toutes les cellules de la plage spécifiée seront déverrouillées et vous obtiendrez une boîte de dialogue Kutools pour Excel comme illustré dans la capture d'écran ci-dessous à droite.

Articles connexes :

• Comment filtrer des données en fonction d'une case à cocher dans Excel ?
• Comment masquer une 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 ?