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