Bonjour
J'ai mis ce code dans ThisWorkBook, quand je veux écrire sur ma feuil1 on me demande mon MdP "0000" que je tape
il m'est répondu que le MdP est erroné et ma feuil1 n'est pas déprotégée
Si vous avez une solution je suis preneur
Cordialement
Private Sub Workbook_BeforeSave(ByVal SaveAsUI As Boolean, Cancel As Boolean)
ThisWorkbook.Worksheets("Feuil1").Protect Password = "0000"
End Sub