Форма авторизации для проектов VBA

Код открыт, - меняйте под свои нужды как угодно.
Техподдержки по бесплатным макросам нет.
Хотите готовое решение, - можем сделать под заказ.

При нажатии кнопки ВХОД, сохраняйте в глобальную переменную значения из текстовых полей «логин» и «пароль»,
а потом используйте их в коде

If GetNewAL >= AL_USER Then
   MsgBox "Приветствую вас, " & UserName, vbInformation
   ИзменитьВидимостьЛистов True
End If

Там всё сделано под пару логин-пароль
Если оставить только логин (или пароль) - много переделывать надо
(потому, подсказать не смогу, - работы много по переделке)
Код открыт, - можете сами доработать под свои нужды

1) программа (в виде файла Excel) не устанавливается
2) ATPVBAEN.xlam и FUNCRES.XLAM - это надстройки, которые идут вместе с Excel/
Они у вас были там и до запуска моей программы
(или же вы их активировали, поставив галочки в окне подключения надстроек)

Аккаунты хранятся в пользовательских свойствах файла:
http://excelvba.ru/code/CustomDocumentProperties

Вывести на лист все аккаунты можно таким кодом:

Sub test()
    On Error Resume Next:   arr = AllAccountsArray(ThisWorkbook)
    Worksheets.Add.Cells(1).Resize(UBound(arr, 1) + 1, UBound(arr, 2) + 1).Value = arr
End Sub

На листе получится таблица из 4 столбцов:
1 - индекс
2 - логин
3 - пароль
4 - уровень доступа

Наверное, потому, что на компе не установлен русский языковой пакет.

У меня (и у всех, кто пользовался этой программой), всё корректно отображается.

Какая информация? Логины и пароли?
Так они не в реестре хранятся, а в свойствах файла Excel.

В реестре только ставится отметка после первого запуска файла (для отключения кнопки редактирования учетных записей, при втором и последующих запусках файла)
Это вы сами сможете убрать в коде (я уже не помню, зачем я так сделал, - потому лучше это дело удалить)

А как вы его удалите, если список пользователей доступен для изменения только при первом запуске файла?

Ну а если пользователь успешно авторизовался под максимальным уровнем доступа - зачем ему запрещать изменять\удалять свою учетную запись?

PS: Что конкретно изменить - так сразу не могу сказать.
Код писал давно, и уже плохо понимаю, что и как там сделано.
Поглядел код - многое дорабатывать надо (добавлять проверки в процедуры DeleteAllAccounts и DeleteAccount, предварительно вычисляя уровень доступа для текущей учетной записи)

Александр, пароль можно было легко найти, прочитав все комменты к статье.
На всякий случай, добавил пароль и в текст статьи.

Как реализовать - не подскажу.
На форумах однажды видел подобное - там очень много кода, много ограничений на работы макроса
(например, если файл в общем доступе, то работать не будет, если макросы выключены - тоже работать не будет)
Чтобы учесть все нюансы - придётся написать ОЧЕНЬ много кода.
Я бы за такое не взялся. И вам не советую (если только вы не хотите посвятить свою жизнь изучению программирования на примере этой задачи)

Макросов для сбора данных из книг - множество, в том числе и у меня на сайте.
Google вам поможет из все найти. Сможете их адаптировать под своб задачу, или нет, - зависит от структуры таблиц в ваших файлах.
Если наделаете там кучу украшательств - типа объединённых ячеек, пустых строк и столбцов, промежуточные заголовки, и т.д. - то будет сложновато.
Если же сделаете нормальные таблицы - то с макросом проблем не возникнет.

RALF, реализовать это весьма сложно.
Excel не предназначен для такого (хотя, в Excel 2013, что-то подобное вроде есть)

Проще сделать несколько файлов (отдельные книги Excel для каждого пользователя),
а потом макросом собирать информацию из этих файлов в один.

Это вы задаёте настройки для прав доступа макросов.

Т.е., например, макрос проверяет уровень доступа, и, если он равен 1, сообщает пользователю, что он не имеет права что-то там делать,
а если уровень доступа больше 5, - то выполняет действие без предупреждения.
Как-то так.
Это всё никак не сказывается на встроенном функционале Excel.

Чтобы подобное разграничение прав работало, надо защитить лист и книгу паролем,
и уже макросом, при уровне доступа больше определённого значения, временно снимать установленную защиту,
чтобы пользователь мог редактировать документ, или производить иные действия.

А с чего они будут отображаться?
Вы код смотрели?

Private Sub Workbook_Open()
    ' предоставляем пользователю возможность авторизоваться
    If GetNewAL >= AL_USER Then
        ' ваш код (пользователь удачно залогинился)
        ИзменитьВидимостьЛистов True
    End If
 
    If AL >= AL_ADMINISTRATOR Then    ' (пользователь залогинился как "администратор")
        MsgBox "Приветствую вас, Администратор", vbInformation
    End If
End Sub

Напишите так:

If GetNewAL > 0 Then
        ' ваш код (пользователь удачно залогинился)
        ИзменитьВидимостьЛистов True
    End If

или

If GetNewAL >= AL_GUEST  Then
        ' ваш код (пользователь удачно залогинился)
        ИзменитьВидимостьЛистов True
    End If

или так:

If GetNewAL > AL_UNKNOWN  Then
        ' ваш код (пользователь удачно залогинился)
        ИзменитьВидимостьЛистов True
    End If

Только я не стал дописывать эти две строки:...

Без этих строк теряется смысл этого обработчика...
Представим, что вы авторизовались под админом, внесли изменения, сохранили файл, потом нажали "крестик", и выбрали вариант "закрыть без сохранения".
В этом случае файл останется сохранённым с открытыми листами...

Если 9 - это разработчик, 3 - администратор, 2 - уверенный пользователь и 1 - пользователь, то зачем нужны 4,5,6,7 и 8?

Названия именованным константам даны лишь для примера.
Вам ничто не мешает присваивать переменной AL любые значения (любые числа от -дофига до +дофига), без оглядки на константы.
Например, AL = 55, или AL = -48

Или же, для удобства использования в коде, изменить константы как угодно:

Public Enum AccessLevels
    AL_UNKNOWN = 0
    AL_GUEST = 1
    AL_USER = 15
    ADMINISTRATOR = 777
    AL_ROOT = 1000
    DUMMY = -666.6
End Enum

Можно попробовать добавить такой код в модуль книги:

Private Sub Workbook_BeforeClose(Cancel As Boolean) ' перед закрытием файла
    AL = AL_UNKNOWN ' обнуляем уровень доступа
    MySave ' принудительно сохраняем файл
    ThisWorkbook.Saved = True
End Sub

Исправленный файл можно загрузить по ссылке http://excelvba.ru/XL_Files/Sample__18-12-2011__14-51-50.zip

Что-то у меня на начальную форму при первом запуске не выходит...

А, может, вы когда-то уже запускали этот файл у себя на компе?
Вот что я вижу при открытии: http://ExcelVBA.ru/pictures/20110704-p4l-51kb.jpg

Дело в том, что при первом запуске программа делает запись в реестре.
Обратите внимание на эту функцию:

Function FirstRun() As Boolean
    FirstRun = GetSetting(Application.Name, "Authentication", WORKBOOK_ID, "") = ""
End Function

Const WORKBOOK_ID = "123456"

В реестре появляется запись, что книга "123456" уже запускалась, и при следующем её открытии вы уже не увидите кнопки добавления (редактирования) учётных записей):
http://ExcelVBA.ru/pictures/20110704-1pg-43kb.jpg

Выяснил недостаток: Login - Case Sensitive - не удобно, т.к. обычно - нет.

Это не баг, это фича ))
Хотите изменить - просто добавьте директиву

Option Compare Text

Лучше внести изменения в код проверки логина и пароля - чтобы только логин был нечувствительным:

Function CheckAccount(ByVal Login As String, ByVal Password As String) As AccessLevels
    ' проверяет имя пользователя и пароль среди аккаунтов, сохранённых в файле
    ' если такая учётная запись присутствует, функция возвращает уровень доступа
    On Error Resume Next
    arr = AllAccountsArray(ThisWorkbook)
    For i = LBound(arr) To UBound(arr)
        If UCase(arr(i, 1)) = UCase(Login) And arr(i, 2) = Password Then
            CheckAccount = arr(i, 3): Exit Function
        End If
    Next i
End Function

Ещё: не могу закрыть файл. Жму крестик. Отвечаю "сохранить". Прога думает 0,5 сек. и опять спрашивает "Сохранить?". И так, пока не откажусь.

А вы не отказывайтесь)))
Решить проблему можно, немного изменив код в модуле книги:

Private Sub Workbook_BeforeSave(ByVal SaveAsUI As Boolean, Cancel As Boolean)
    ' запрещаем сохранение файла под другим именем
    If Not SaveAsUI Then MySave Else Cancel = True        ' отменяем встроенную команду сохранения файла
End Sub

Изначально никаких пар "логин-пароль" в файле не прописано.

При первом запуске файла вы задаёте главную учётную запись (с максимальными правами), а потом уже под ней заходите, если требуется добавить новые, или отредактировать существующие учётки.

Пароль на проект VBA: 1 (единица)