Access VisualBasic Script

  1. Home
  2. VisualBasic Script
  3. Access
  4. 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