Unlock Edit Range : User Access « Access « VBA / Excel / Access / Word






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

Unlock Edit Range

 

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








Related examples in the same category

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