Sub FeuillesP()
Dim F As Worksheet
For Each F In Worksheets
F.Protect
Next F
End Sub
Sub FeuillesDP()
Dim F As Worksheet
For Each F In Worksheets
F.UnProtect
Next F
End Sub
oligui à dit:Merci pour ta réponse,
Je ne sais quoi faire avec ta réponse.
Peut tu me détailler afin que je puisse le faire correctement.
Merci
oLi
oligui à dit:En fait, je ne te suit pas dutout.
Je ne sais meme pas ou inserer cela dans mon fichier
Peut etre, devrais-je t envoyer mon fichier pour que tu le fasse pour moi ?
Un perdu
oLI