since my columns are protected let me know how can i used fill color using vba

this is code i used to lock few column

i want let user fill color to there ROW

please let me know

 ActiveSheet.Unprotect Password:="password"

          Dim sh As Worksheet
          Dim rng As AllowEditRange

          Set sh = ActiveSheet

          For Each rng In sh.Protection.AllowEditRanges
          rng.Delete
           Next rng

         ActiveSheet.Protection.AllowEditRanges.Add Title:="Range1", Range:=Range("P2:BJ1000")
         ActiveSheet.protect Password:="password", DrawingObjects:=True, Contents:=True, Scenarios:=True, AllowFiltering:=True