VBA/Excel/Access/Word/Excel/Range Permission

Add Edit Range

   <source lang="vb">

Sub AddEditRange()

   Dim ws As Worksheet, ual As UserAccessList, aer As AllowEditRange, usr As UserAccess
   Set ws = ThisWorkbook.Sheets("Protection")
   ws.Unprotect "Excel2003"
   Set aer = ws.Protection.AllowEditRanges.Add("Edit Range", Range("UserEditRange"), "pass1")
   Set usr = aer.Users.Add("Power Users", True)
   ws.Protect "Excel2003"

End Sub

</source>
   
  

Remove Edit Ranges

   <source lang="vb">

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

</source>