Excel VisualBasic Script

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