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 : Sélectionner tout - Visualiser dans une fenêtre à part
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