[Resolved]Protect and Allow Edit Ranges

[gtg689a]

Hello! What is the correct code to protect a sheet but allow a rnage to be edited?

My code below keeps bombing out?

ActiveSheet.Protection.AllowEditRanges.Add _
    Title:="Range1", _
    Range:=Range("A15:G1500")
   
    
    ActiveSheet.Protect "password"

the error is "application defined or object defined error"