Excel - Proteccion de hoja

Hola,
tengo un procedimiento que se ejecuta bien, pero que cuando protejo la hoja de calculo con una clave me dice que no puede asignar los valores y da error.
el procedimiento es el siguiente:

Sub POSELIGNESSAISSIE(F, S)
On Error GoTo TraitementErreur
'Call POSELIGNESSAISSIE(F, "$A$11:$A$900")
'F = un nombre de hoja del libro excel
'S = un rango("$A$11:$A$900")
Sheets(F).Range(S).Select
Selection.Borders(xlDiagonalDown).LineStyle = xlNone
Selection.Borders(xlDiagonalUp).LineStyle = xlNone
With Selection.Borders(xlEdgeLeft)
.LineStyle = xlContinuous
.ColorIndex = 0
.TintAndShade = 0
.Weight = xlThin
End With
With Selection.Borders(xlEdgeTop)
.LineStyle = xlContinuous
.ColorIndex = 0
.TintAndShade = 0
.Weight = xlThin
End With
With Selection.Borders(xlEdgeBottom)
.LineStyle = xlContinuous
.ColorIndex = 0
.TintAndShade = 0
.Weight = xlThin
End With
With Selection.Borders(xlEdgeRight)
.LineStyle = xlContinuous
.ColorIndex = 0
.TintAndShade = 0
.Weight = xlThin
End With
With Selection.Borders(xlInsideVertical)
.LineStyle = xlContinuous
.ColorIndex = 0
.TintAndShade = 0
.Weight = xlThin
End With
With Selection.Borders(xlInsideHorizontal)
.LineStyle = xlContinuous
.ColorIndex = 0
.TintAndShade = 0
.Weight = xlThin
End With
Range("C11").Select
'****************************************Traitement d'erreurs
RepriseProgramme:
Exit Sub
TraitementErreur:
MsgBox Err.Number & " - " & Err.Description & " - " & "Erreur dans redessiner les lignes des cellules"
End Sub

¿Como podria hacer para que me funcione con la hoja protegida lo mismo que conla hoja desprotegida?
Si alguien puede ayudarme gracias de antemano.
Un saludo
José