Mega Code Archive

 

Categories / VisualBasic Script / Excel

 

Remove user

Sub RemoveUser()     Dim ws As Worksheet, rng As Range, aer As AllowEditRange     Set ws = ThisWorkbook.Sheets("Protection")     ws.Unprotect     Set aer = ws.Protection.AllowEditRanges("User Range")     aer.Users("Power Users").Delete End Sub