Salut Valou
Je pense que la soluce de mytå est au poil, dans ton cas...
Cela pourrait donner, dans ThisWorbook
Private Sub Workbook_BeforeSave(ByVal SaveAsUI As Boolean, Cancel As Boolean)
Sheets("date").Activate
ActiveSheet.Unprotect ("TOTO")
'Pour les cellules A1 a J10
For rangee = 1 To 10
For colonne = 1 To 10
If Cells(colonne, rangee).Locked = "false" Then Cells(colonne, rangee).Locked = "true"
Next colonne
Next rangee
ActiveSheet.Protect DrawingObjects:=True, Contents:=True, Scenarios:=True
ActiveSheet.Protect DrawingObjects:=True, Contents:=True, Scenarios:=True, Password:="TOTO"
End Sub
Mais bien sûr, une fois sauvegardée, même par erreur, il serait impossible d'effectuer des modifications, sans le mot de passe (TOTO)...
Prévoit donc des copies de sauvegardes...
Merci de nous indiquer si ça fonctionne.
A Bientôt,
William