Comment verrouiller ou protéger des cellules dans Excel après y avoir saisi des données ?
Supposons que vous disposiez d’une feuille de calcul dans laquelle seule une plage spécifique de cellules vides nécessite une saisie de données. Une fois cette saisie terminée, vous souhaitez que ces cellules soient automatiquement verrouillées afin d’éviter toute modification ultérieure. Comment procéder ? Cet article peut vous aider.
Verrouiller ou protéger des cellules après la saisie ou l’entrée de données à l’aide d’un code VBA
Verrouiller ou protéger des cellules après la saisie ou l’entrée de données à l’aide d’un code VBA
Par exemple, la plage spécifique de cellules vides est A1:F8. Voici comment verrouiller ces cellules après y avoir saisi des données dans Excel.
1. Commencez par déverrouiller cette plage en sélectionnant les cellules, en cliquant avec le bouton droit, puis en choisissant Définir le format des cellules dans le menu contextuel. Dans la boîte de dialogue Définir le format des cellules, décochez la case Verrouillé sous l’onglet Protection, puis cliquez sur le bouton OK. Voir la capture d’écran :
2. Cliquez sur Révision > Protéger la feuille, puis spécifiez un mot de passe pour protéger cette feuille de calcul.
3. Cliquez avec le bouton droit sur l’onglet de la feuille, puis sélectionnez Afficher le code dans le menu contextuel. Copiez ensuite le code VBA ci-dessous et collez-le dans la fenêtre Code. Voir la capture d’écran :
Code VBA : Verrouiller ou protéger des cellules après la saisie ou l’entrée de données
Dim mRg As Range
Dim mStr As String
Private Sub Worksheet_BeforeDoubleClick(ByVal Target As Range, Cancel As Boolean)
If Not Intersect(Range("A1:F8"), Target) Is Nothing Then
Set mRg = Target.Item(1)
mStr = mRg.Value
End If
End Sub
Private Sub Worksheet_Change(ByVal Target As Range)
Dim xRg As Range
On Error Resume Next
Set xRg = Intersect(Range("A1:F8"), Target)
If xRg Is Nothing Then Exit Sub
Target.Worksheet.Unprotect Password:="123"
If xRg.Value <> mStr Then xRg.Locked = True
Target.Worksheet.Protect Password:="123"
End Sub
Private Sub Worksheet_SelectionChange(ByVal Target As Range)
If Not Intersect(Range("A1:F8"), Target) Is Nothing Then
Set mRg = Target.Item(1)
mStr = mRg.Value
End If
End Sub
Remarque : dans le code, « A1:F8 » correspond à la plage dans laquelle vous devez saisir vos données, et « 123 » est le mot de passe de la feuille protégée. Adaptez-les selon vos besoins.
4. Appuyez simultanément sur les touches Alt + Q pour fermer la fenêtre Microsoft Visual Basic pour Applications.
Une fois la saisie des données terminée dans les cellules de la plage A1:F8, celles-ci seront automatiquement verrouillées. Toute tentative de modification du contenu d’une de ces cellules fera apparaître une boîte de dialogue. Voir la capture d’écran :
Articles associés:
- Comment verrouiller d’un seul coup toutes les références de cellules dans les formules Excel ?
- Comment verrouiller ou déverrouiller une sélection en fonction de la valeur d’une autre cellule dans Excel ?
- Comment verrouiller une image à une cellule ou à l’intérieur d’une cellule dans Excel ?
Meilleurs outils de productivité Office
Boostez vos compétences Excel avec Kutools pour Excel et découvrez une efficacité inégalée.Kutools pour Excel propose plus de 300 fonctionnalités avancées pour améliorer votre 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 rend votre travail bien plus facile
- Activez 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 vous fait économiser des centaines de clics de souris chaque jour !
Tous les compléments Kutools. Un seul installateur
Kutools for Office regroupe les compléments pour Excel, Word, Outlook et PowerPoint, ainsi que Office Tab Pro, ce qui en fait le choix idéal pour les équipes travaillant à travers les applications Office.
- Suite tout-en-un— Compléments Excel, Word, Outlook et PowerPoint + Office Tab Pro
- Un seul installateur, une seule licence— installation en quelques minutes (compatible MSI)
- Fonctionne mieux ensemble— productivité optimisée dans toutes les applications Office
- Essai gratuit de 30 jours avec toutes les fonctionnalités— aucune inscription, aucune carte bancaire
- Meilleur rapport qualité-prix— économisez par rapport à l’achat de compléments individuels