Remove Edit Ranges : User Access « Access « VBA / Excel / Access / Word






  1. VBA / Excel / Access / Word
  2. Access
  3. User Access

Remove Edit Ranges

 
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








Related examples in the same category

1.Add Edit Range
2.Show Edit Ranges
3.Unlock Edit Range
4.Build user list
5.Delete user list