Sub RemoveEditRanges()
Dim ws As Worksheet, ual As UserAccessList, aer As AllowEditRange
Set ws = ThisWorkbook.Sheets("Protection")
ws.Unprotect "Excel2003"
For Each aer In ws.Protection.AllowEditRanges
aer.Delete
Next
ws.Protect "Excel2003"
End Sub