Mega Code Archive

 

Categories / VisualBasic Script / 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