vba: restrictions Issue

[bamaisgreat]

I am having trouble running the code below. I have resricted values in the cells using data valadation. Is there a way if the code below is used that the restrictions are took away ???

Sub Brackets()
 ActiveSheet.Unprotect
    With ActiveCell
        .Value = .Value & "(pcs.)"
    End With
    SendKeys "{F2}{LEFT}{LEFT}{LEFT}{LEFT}{LEFT}"
     ActiveSheet.Protect
End Sub