Excel VBA Only Allow Administrator to Modify Workbook

Question

I am having some issues with VBA to allow only Administrators to modify an excel workbook. Can anyone help me with the code to make this happen? Thanks!

Answer 1

Getting the username is fairly straightfoward:

 username = Environ("UserName")

It is also possible through API calls, which is detailed here

You can then check that username against your list of administrators. If they are in the list, you can then unprotect the workbook.

 ThisWorkbook.Unprotect