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 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 SubNotes: 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?
Meilleurs outils de productivité bureautique
Améliorez vos compétences Excel avec Kutools for Excel et faites l'expérience d'une efficacité comme jamais auparavant. Kutools for Excel offre plus de 300 fonctionnalités avancées pour augmenter la productivité et gagner du temps. Cliquez ici pour obtenir la fonctionnalité dont vous avez le plus besoin...
Office Tab apporte une interface à onglets à Office et facilite grandement votre travail
- Activer l'édition et la lecture par onglets dans Word, Excel, PowerPoint, Publisher, Access, Visio et Project.
- Ouvrez et créez plusieurs documents dans de nouveaux onglets de la même fenêtre, plutôt que dans de nouvelles fenêtres.
- Augmente votre productivité de 50% et réduit des centaines de clics de souris chaque jour!
