deprotection et reprotection sheets vba

bonjour,
voilà
j'ouvre un fichier depuis un autre pour y inscrire une info
dans le code ci dessous c'est juste "test"
la feuille ou j'ecris "test" est proteger par mot de passe.
dans mon code je l'enleve avant d'ecrire,
mais lorsque je veux le remettre, ma feuille se protege,
sauf que je veux tout bloquer sauf les format de cellule..
et je n'y arrive pas
a chaque fois la selection des cellule verrouillees ou pas sont cochées...
comment faire..

merci !!

Code:

---

1 2 3 4 5 6 7 8 9

Sub tt() Workbooks.Open ThisWorkbook.Path & "\INTERIMIZER 2011.xls" Worksheets("INTERIMIZER").Unprotect Password:="****" Range("b6").Value = "test" Worksheets("INTERIMIZER").Protect Password:="****", Contents:=False, AllowFormattingCells:=True Worksheets("INTERIMIZER").EnableSelection = xlNoSelection ActiveWorkbook.Close True ThisWorkbook.Close True End Sub

---