Получение имени пользователя довольно просто:
username = Environ("UserName")
Это также возможно с помощью вызовов API, что подробно здесь
Затем вы можете проверить это имя пользователя поВаш список администраторов.Если они есть в списке, вы можете снять защиту с рабочей книги.
ThisWorkbook.Unprotect