Mega Code Archive

 

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