Verrouiller Cellule aprés saisie

Boostez vos compétences Excel avec notre communauté !

Rejoignez Excel Downloads, le rendez-vous des passionnés où l'entraide fait la force. Apprenez, échangez, progressez – et tout ça gratuitement ! 👉 Inscrivez-vous maintenant !

Florian53

XLDnaute Impliqué
Bonjour,

J'essaye de verrouiller des cellules après une saisie:

Mon code ne fonctionne pas:

J'ai mis ce code dans la Feuil1:

Private Sub Worksheet_Change(ByVal Target As Range)
If Not IsDate(Target.Value) Then Target.Locked = True
End Sub

Et celui là dans le ThisWoorkBook

Private Sub Workbook_Open()
Sheets("Feuil1").Protect Password:="admin", userinterfaceonly:=True
End Sub

Je dois bien déverrouiller les cellules en question et après protéger ma feuille avec:
- Sélectionner les cellules déverrouiller.
- Mettre mot de passe "admin"

C'est bien ça?

Merci à vous
 
Re : Verrouiller Cellule aprés saisie

Bonsoir,

je ne comprends pas votre demande, en particulier cette phrase


"Je dois bien déverrouiller les cellules en question et après protéger ma feuille avec:
- Sélectionner les cellules déverrouiller.
- Mettre mot de passe "admin"
"

==============

Par défaut toutes les cellules excel sont à l'état verrouillé, mais le verouillage ne prend effet que si la protection est activée.

avec votre code, si par défaut vous avez déverrouillé toutes les cellules, toutes les cellules dans lesquelles vous n'avez pas saisi de date seront vérouillées à la prochaine ouverture du classeur.


GIBI
 
Re : Verrouiller Cellule aprés saisie

Le principe est qu'il faut que je remplisse une date dans une cellule ou un texte et que celle si se verrouille automatiquement, donc je suppose que si mon code verrouille ma cellule je dois la déverrouiller. Car par défaut toutes les cellules sont verrouiller dans excel.
 
- Navigue sans publicité
- Accède à Cléa, notre assistante IA experte Excel... et pas que...
- Profite de fonctionnalités exclusives
Ton soutien permet à Excel Downloads de rester 100% gratuit et de continuer à rassembler les passionnés d'Excel.
Je deviens Supporter XLD

Discussions similaires

Réponses
4
Affichages
237
  • Question Question
Microsoft 365 worksheet_change
Réponses
29
Affichages
545
Réponses
16
Affichages
1 K
Réponses
14
Affichages
476
Réponses
7
Affichages
1 K
Retour