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

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

Show Edit Ranges

 

Sub ShowEditRanges()
    Dim ws As Worksheet, ual As UserAccessList, aer As AllowEditRange
    Set ws = ThisWorkbook.Sheets("Protection")
    For Each aer In ws.Protection.AllowEditRanges
        Debug.Print aer.Title, aer.Range.Address
    Next
End Sub

 

Related examples in the same category