Bonjour,
essayez avec un ActiveSheet.Unprotect en début de procédure
et un ActiveSheet.Protect en fin de procédure.
Ici dans les deux cas il n'y a pas de mot de passe...
Ou bien attendez que le Maréchal passe...
@ bientôt
LouReeD
hahahaha Maréchal lol . hihihi non merci à vous LouReed j essai ça
ActiveSheet.Unprotect
Private Sub boutonafficher_Click()
'déclaration des variables
et a la fin cela donne ça
End If
Next x
.AddItem "Total"
.List(i, 6) = Range("L4").Text
End With
End Sub
ActiveSheet.Protect
et cela me ramene a la premiere ligne comme errore compil.
j avais trouver le code suivant mais marche pas ,je suis une bille
Option Explicit
Private Sub Workbook_Open()
Sheets("NomFeuille").Protect "toto", userinterfaceonly:=True
End Sub