Protéger les feuilles de la modification par macro

Par macro, je crée un document sous un autre répertoire.
Je souhaites protéger les feilles de ce nouveau fichier contre la modification avec un mot de passe (qui peut être visible en dur dans la macro).
Comment peut-on faire ça par macro?

Bonjour,

tu peux essayer quelque chose dans le genre :

Code:

---

1 2 3 4 5 6 7 8 9 10 11

Sub creation_classeur() Dim wbk As Workbook, wks As Worksheet Set wbk = Workbooks.Add wbk.SaveAs "c:\test.xls" For Each wks In wbk.Worksheets wks.Protect "motdepasse" Next wks wbk.Close True Set wks = Nothing Set wbk = Nothing End Sub

---

dadavyvy
merci beaucoup pour ta réponse, j'ai été long à tester, mais ça marche
:D