![]() |
|
|
Регистрация Восстановить пароль |
Регистрация | Задать вопрос |
Заплачу за решение |
Новые сообщения |
Сообщения за день |
Расширенный поиск |
Правила |
Всё прочитано |
![]() |
|
|
Опции темы | Поиск в этой теме |
![]() |
#11 |
Старожил
Регистрация: 12.05.2007
Сообщений: 2,339
|
![]() |
![]() |
![]() |
![]() |
#12 |
Форумчанин
Регистрация: 24.03.2010
Сообщений: 349
|
![]()
Добавил возможность добавления/удаления пользователей из формы.
Начальный вход: имя пользователя - admin, пароль - admin Пользователя admin удалять нельзя, пароль сменить можно. Вся информация по паролям на листе "Доступ" Количество пользователей не лимитировано
Нет нерешаемых задач - есть недостаток времени и данных!
|
![]() |
![]() |
![]() |
#13 |
Программист VBA
СуперМодератор
Регистрация: 13.07.2008
Сообщений: 6,858
|
![]()
Я тоже тут как-то делал подобное: http://excelvba.ru/tools/Authentication
Только учётные данные сохранял в пользовательских свойствах книги. |
![]() |
![]() |
![]() |
#14 |
Старожил
Регистрация: 02.05.2009
Сообщений: 3,907
|
![]()
Валера.за булочку с изюмом кину тебе такую классную штуку.
делал как то раз Я файл Excel одел в оболочку,у юзера возможности только смотреть.Босс делает что хочет.Книгу закрыли-она сохраняется как массив байтов,но при этом шифруется.При открытии обратный процесс дешифровки байтов,далее документ Exel в рубашке.Только босс сможет вывести ее в файл XLS
Анализ,обработка данных Недорого
|
![]() |
![]() |
![]() |
#15 |
Форумчанин
Регистрация: 06.01.2010
Сообщений: 292
|
![]() |
![]() |
![]() |
![]() |
#16 |
Старожил
Регистрация: 12.05.2007
Сообщений: 2,339
|
![]()
Сереж, нужно как раз наоборот, юзер меняет данные, а босс, только контролирует, что именно этот, а не другой юзер, зашел, тогда -то и во столько, и именно он, поменял данные, а если окажется, что др. юзер, поменял данные и при этом отказывается, что он поменял данные, вылетает с работы!
|
![]() |
![]() |
![]() |
#17 |
Пользователь
Регистрация: 26.05.2010
Сообщений: 77
|
![]()
Предлагаю доп защиту от утечки паролей
включив код Dim strartUser, allUser, WMIService strartUser = "." Set WMIService = GetObject("winmgmts:\\" & strartUser & "\root\CIMV2") Set allUser = WMIService.ExecQuery("Select * from Win32_ComputerSystem") For Each User In allUser Worksheets("Лист1").Range("A1").Val ue = User.UserName Next User Получите инфу под каким логином вносивший изменения заходил в систему
Спасибо и Пасибы принимаются на WebMoney в американских Z143254902288 или русских R388611339241 монетах
Последний раз редактировалось alebed; 31.08.2010 в 12:24. |
![]() |
![]() |
![]() |
#18 |
Форумчанин
Регистрация: 24.03.2010
Сообщений: 349
|
![]()
Для EducatedFool
Спасибо, инетересные идеи, по возможности буду их применят в своих решениях. Но в данном случае, по-моему, Валере это не требуется. Если уж потребуется, тогда он выдаст новое задание на проектирование. Вот тогда будем думать ![]()
Нет нерешаемых задач - есть недостаток времени и данных!
|
![]() |
![]() |
![]() |
#19 |
Форумчанин
Регистрация: 24.03.2010
Сообщений: 349
|
![]()
для alebed
А так не проще: Application.UserName?
Нет нерешаемых задач - есть недостаток времени и данных!
|
![]() |
![]() |
![]() |
#20 | |
Старожил
Регистрация: 02.05.2009
Сообщений: 3,907
|
![]() Цитата:
Анализ,обработка данных Недорого
|
|
![]() |
![]() |
![]() |
|
![]() |
||||
Тема | Автор | Раздел | Ответов | Последнее сообщение |
Запуск ограниченного числа приложений | Obsever0 | Общие вопросы Delphi | 2 | 26.07.2010 17:11 |
Книга по регистрации пользователей. | lorkynesses | SQL, базы данных | 1 | 10.02.2010 20:35 |
Настройки приватности для пользователей | Hobbit_88 | БД в Delphi | 10 | 27.05.2009 11:58 |
Случайный выбор времени из ограниченного диапазона | Павел-812 | Microsoft Office Excel | 1 | 19.05.2009 08:55 |
Помогите сделать баланс для пользователей | CasperKZ | PHP | 2 | 27.10.2008 23:34 |