Code to hide worksheets based on Active Directory login?

Is there VBA code to hide/unhide specific worksheets based on system
Active Directory login? Or, if not that, code to ask for a login to the
workbook and then hide/unhide sheets based on that?

Thanks,

JEJ