Range protect allowformating

Bonjour j'aimerais pouvoir modifier le format dans une feuille protejer mais sur un range defini j'ai essayer un truc mais sa change rien ^^'

Sub Selection()
    Dim WS As Worksheet
For Each WS In Sheets(Array("Janvier", "Fevrier", "Mars", "Avril", "Mai", "Juin", "Juillet", "Aout", "Septembre", "Octobre", "Novembre", "Decembre"))
WS.Unprotect PW
WS.Range("B9:AJ65").Select
.Selection.Locked = False
WS.Protect PW
Next
End Sub

Je suis prenneur de conseil merci

Bonjour,

à tester,

WS.Protect Password:=PW, AllowFormattingCells:=True

Keran Latos a écrit :

Bonjour j'aimerais pouvoir modifier le format dans une feuille protejer mais sur un range defini j'ai essayer un truc mais sa change rien ^^'

Sub Selection()
    Dim WS As Worksheet
For Each WS In Sheets(Array("Janvier", "Fevrier", "Mars", "Avril", "Mai", "Juin", "Juillet", "Aout", "Septembre", "Octobre", "Novembre", "Decembre"))
WS.Unprotect PW
WS.Range("B9:AJ65").Select
.Selection.Locked = False
WS.Protect PW
Next
End Sub

Je suis prenneur de conseil merci

Alors un conseil : évites les Select inutiles !

Sub Selection()
    Dim WS As Worksheet
For Each WS In Sheets(Array("Janvier", "Fevrier", "Mars", "Avril", "Mai", "Juin", "Juillet", "Aout", "Septembre", "Octobre", "Novembre", "Decembre"))
WS.Unprotect PW
WS.Range("B9:AJ65").Locked = False
WS.Protect PW
Next
End Sub

Ceci dit, il n'est pas possible de limiter l'autorisation de modification du format à une plage de cellules, soit c'est toute la feuille (voir la réponse de I20100) soit c'est rien.

Merci a vous deux j'ai finalement trouver grace a vous .

Sub Selection()
Dim WS As Worksheet
For Each WS In Sheets(Array("Janvier", "Fevrier", "Mars", "Avril", "Mai", "Juin", "Juillet", "Aout", "Septembre", "Octobre", "Novembre", "Decembre"))
    WS.Unprotect PW
    WS.Range("B9:AJ65").Locked = False
    WS.Range("B5:AF5").Locked = False
    WS.Protect PW, DrawingObjects:=True, Contents:=True, Scenarios:=True, AllowFormattingCells:=True

Next
End Sub

Cordialement Latos