XL 2010 filtre feuille proteger

bjr;
svp j'aimerai appliquer ce code sur une feuille protegee
merci

j'ai mis un textbox sur ma feuille nommé : raison_sociale

Private Sub raison_sociale_Change()
If raison_sociale.Value <> "" Then
ActiveSheet.Range("A3:k3").AutoFilter Field:=3, Criteria1:="=*" & raison_sociale.Value & "*"
Else
ActiveSheet.Range("A3:k3").AutoFilter Field:=3
End If

End Sub