Bonjour,
J'essaye de verrouiller des cellules après une saisie:
Mon code ne fonctionne pas:
J'ai mis ce code dans la Feuil1:
Et celui là dans le ThisWoorkBook
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
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