Comment protéger les cellules en fonction de la date dans Excel?
Normalement, nous pouvons protéger la feuille de calcul pour empêcher d'autres personnes de modifier ou de modifier les valeurs de cellule, mais, parfois, vous devez protéger les cellules en fonction de la date. Par exemple, je souhaite protéger d'autres cellules, mais autoriser uniquement la modification des valeurs de cellule de la date du jour, comme illustré ci-dessous, cet article explique comment protéger les cellules en fonction de la date.
Protégez toutes les lignes sauf la ligne de date du jour avec le code VBA
Protégez toutes les lignes que la date est passée avec le code VBA
Protégez toutes les lignes sauf la ligne de date du jour avec le code VBA
Autorisez uniquement la modification de la ligne correspondant à la date du jour, le code suivant peut vous aider, procédez comme suit:
1. Cliquez avec le bouton droit sur l'onglet de la feuille dont vous souhaitez protéger les cellules en fonction de la date, puis choisissez Voir le code dans le menu contextuel, dans le popped out Microsoft Visual Basic pour applications , veuillez copier et coller le code suivant dans le module vide:
Code VBA: Protégez toutes les lignes sauf la ligne de date du jour:
Private Sub Worksheet_SelectionChange(ByVal Target As Range)
'Updateby Extendoffice 20161025
If Range("E" & Selection.Row).Value <> Date Then
ActiveSheet.Protect Password:="111111"
MsgBox "Only today's date row can be edited!", vbInformation, "Kutools for Excel"
ElseIf Range("E" & Selection.Row).Value = Date Then
ActiveSheet.Unprotect Password:="111111"
ActiveSheet.EnableSelection = xlNoRestrictions
End If
End Sub
Notes: Dans le code ci-dessus, la lettre E est l'en-tête de colonne où se trouve la date, "111111»Est le mot de passe pour protéger cette feuille. Vous pouvez les modifier selon vos besoins.
2. Ensuite, enregistrez et fermez cette fenêtre de code.
(1.) Si vous cliquez sur d'autres cellules au-delà de la ligne de date d'aujourd'hui, une boîte de dialogue apparaîtra pour vous rappeler que la cellule ne peut pas être modifiée, voir capture d'écran:
(2.) Si vous cliquez et modifiez la ligne égale la date du jour, elle sera modifiée avec succès, voir capture d'écran:
Protégez toutes les lignes que la date est passée avec le code VBA
Si vous devez protéger toutes les lignes dont la date est passée, autorisez uniquement la modification des lignes de date d'aujourd'hui et de demain, veuillez appliquer le code VBA suivant:
1. Cliquez avec le bouton droit sur l'onglet de la feuille dont vous souhaitez protéger les cellules en fonction de la date, puis choisissez Voir le code dans le menu contextuel, dans le popped out Microsoft Visual Basic pour applications , veuillez copier et coller le code suivant dans le module vide:
Code VBA: la date de protection de toutes les lignes est passée:
Private Sub Worksheet_Change(ByVal Target As Excel.Range)
'Updateby Extendoffice 20161025
Dim xRow As Long
xRow = 2
ThisWorkbook.ActiveSheet.Unprotect Password:="111111"
ThisWorkbook.ActiveSheet.Cells.Locked = False
Do Until IsEmpty(Cells(xRow, 5))
If Cells(xRow, 5) < Date Then
Rows(xRow).Locked = True
End If
xRow = xRow + 1
Loop
ThisWorkbook.ActiveSheet.Protect Password:="111111"
End Sub
Notes: Dans le code ci-dessus, le numéro 5 est le numéro de colonne où se trouve la date, "111111»Est le mot de passe pour protéger cette feuille. Vous pouvez les modifier selon vos besoins.
3. Ensuite, enregistrez et fermez cette fenêtre de code.
(1.) Si vous cliquez sur la date de la cellule est passée, une boîte de dialogue apparaîtra pour vous rappeler que la cellule ne peut pas être modifiée, voir capture d'écran:
(2.) Si vous cliquez sur la cellule de lignes pour essayer de changer les valeurs à la date d'aujourd'hui ou à la date future, elle sera modifiée avec succès, voir capture d'écran:
Les meilleurs outils de productivité de bureau
Kutools for Excel résout la plupart de vos problèmes et augmente votre productivité de 80%
- Réutilisation: Insérer rapidement formules complexes, graphiques et tout ce que vous avez utilisé auparavant; Crypter les cellules avec mot de passe; Créer une liste de diffusion et envoyer des e-mails ...
- Barre Super Formula (modifiez facilement plusieurs lignes de texte et de formule); Disposition de lecture (lire et modifier facilement un grand nombre de cellules); Coller dans la plage filtréeplus
- Fusionner les cellules / lignes / colonnes sans perdre de données; Contenu des cellules divisées; Combiner des lignes / colonnes en double... Empêcher les cellules en double; Comparer les gammesplus
- Sélectionnez Dupliquer ou Unique Lignes; Sélectionnez les lignes vides (toutes les cellules sont vides); Super Find et Fuzzy Find dans de nombreux classeurs; Sélection aléatoire ...
- Copie exacte Plusieurs cellules sans changer la référence de formule; Créer automatiquement des références à plusieurs feuilles; Insérer des puces, Cases à cocher et plus encore ...
- Extrait du texte, Ajouter du texte, Supprimer par position, Supprimer l'espace; Créer et imprimer des sous-totaux de pagination; Conversion entre le contenu et les commentaires des cellulesplus
- Super filtre (enregistrer et appliquer des schémas de filtrage à d'autres feuilles); Tri avancé par mois / semaine / jour, fréquence et plus; Filtre spécial par gras, italique ...
- Combiner des classeurs et des feuilles de travail; Fusionner les tableaux en fonction des colonnes clés; Diviser les données en plusieurs feuilles; Conversion par lots xls, xlsx et PDFplus
- Plus de 300 fonctionnalités puissantes. Prend en charge Office / Excel 2007-2021 et 365. Prend en charge toutes les langues. Déploiement facile dans votre entreprise ou organisation. Fonctionnalités complètes Essai gratuit de 30 jours. Garantie de remboursement de 60 jours.
Office Tab apporte une interface à onglets à Office et simplifie considérablement 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!
