Всем доброго дня!  
Просмотрел несколько тем об авторизации, но в основном они касаются защиты или ограничения доступа.    
А мне необходимо организовать простую систему регистрации пользователей (по имени профиля), так что-бы пользователю, который в первый раз открывает файл, выскочила форма, в которую предлагается ввести Настоящее имя и инициалы и при нажатии кнопки "Сохранить" данные об имени профиля и Настоящем имени сотрудника вносилась отдельный лист (базу сотрудников). При последующих открытиях файла с этого с того же профиля, производилась проверка и переменной, которая отвечает за имя сотрудника (Например name_uzer) присваивалось "настоящее имя" (Например Сидоров В. в место имени профиля или компьтера Sidorov_uchotnaia_gruppa_12354GTRJ ), а формочка с просьбой внести данные, больше не выскакивала (не зачем лишний раз беспокоить пользователя).  
Ранее я решал проблему таким образом:  
 
Private Sub Workbook_Open()  
'-----------------------------------------------  
Dim u_name As String  
' Присваиваем переменной u_name имя профиля сотрудника  
u_name = CreateObject("WScript.Network").UserName  
 
Производим проверку, если значение u_name было внесено, присваиваем Человеко - понятное имя сотрудника, переменной nam либо используем имя профиля, если имени в списках нет  
Select Case u_name  
 
 Case "i.krasnova"  
     nam = "Краснова И. Е."  
 
 Case "v.horbunova"  
     nam = "Горбунова В. С."  
 Case "r.oliinyk"  
     nam = "Олийнык Р. И."  
 Case Else  
     nam = Application.UserName  
End Select  
 
'----------------------------------------------  
 
End Sub  
 
Однако, при добавлении сотрудника, приходиться снова лезть в макросы, а после того как к нам присоединились еще несколько десятков предприятий, такой способ стал бесполезен.  
Если кто нибудь сталкивался с таким вопросом, прошу у Вас помощи.  
Заранее благодарен!