Mega Code Archive

 

Categories / VisualBasic Script / Access

 

Delete user list

Sub DeleteUserList()     Dim ws As Worksheet, ual As UserAccessList, aer As AllowEditRange, _       usr As UserAccess     Set ws = ThisWorkbook.Sheets("Protection")     ws.Unprotect "Excel2003"     Set aer = ws.Protection.AllowEditRanges("Edit Range")     Set ual = aer.Users     ual.DeleteAll     ws.Protect "Excel2003" End Sub