Домашняя страница Undo Do New Save Карта сайта Обратная связь Поиск по форуму
МИР MS EXCEL - Гость.xls

Вход

Регистрация

Напомнить пароль

 

= Мир MS Excel/Перенос данных из UserForm в текстовый документ - Мир MS Excel

Регистрация · Логин: · Пароль: · · Забыли пароль?
  • Страница 1 из 1
  • 1
Модератор форума: _Boroda_, Manyasha, SLAVICK, китин  
Мир MS Excel » Вопросы и решения » Вопросы по VBA » Перенос данных из UserForm в текстовый документ (Макросы/Sub)
Перенос данных из UserForm в текстовый документ
Starbirst Дата: Вторник, 19.12.2017, 22:40 | Сообщение № 1
Группа: Пользователи
Ранг: Участник
Сообщений: 55
Репутация: 0 ±
Замечаний: 0% ±

Excel 2003
Доброго времени суток всем! Ребята, помогите, пожалуйста, воплотить в жизнь следующую идею. Предположим имеется некое подобие защиты файла от несанкционированного использования. При первом открытии файла пользователю предлагается ввести данные в UserForm. В строку "Пользователь" вносятся данные о пользователе (например Ф.И.О.), идентификатор автоматически генерируется и выводится в строке, а правильно введенный регистрационный, полученный с помощью генератора паролей, позволяет нам использовать файл энный период времени. Как сделать, чтобы после нажатия кнопки "Зарегистрировать" (при условии, что все данные введены, т. е. все строки заполнены, а регистрационный код соответствует соответствует своему идентификатору):
а) в какой-нибудь папке C:\Temp создавался тестовый документ, например под названием "Пользователь", а внутри файла была прописана информация о пользователе (та, что указана при регистрации);
б) после завершения периода использования файла снова появлялось бы окно регистрации, но строка "Пользователь" неактивная (в ней прописаны данные, взятые из того самого текстового документа).
PS. После ввода корректных данных пользователь получает возможность использовать файл разрешенный период времени. В генераторе паролей предусмотрена возможность генерации регистрационного кода в зависимости от количества дней (см. вложение).
К сообщению приложен файл: 4958587.xlsm(15.7 Kb) · 1882059.jpg(12.9 Kb)


Сообщение отредактировал Starbirst - Вторник, 19.12.2017, 22:41
 
Ответить
СообщениеДоброго времени суток всем! Ребята, помогите, пожалуйста, воплотить в жизнь следующую идею. Предположим имеется некое подобие защиты файла от несанкционированного использования. При первом открытии файла пользователю предлагается ввести данные в UserForm. В строку "Пользователь" вносятся данные о пользователе (например Ф.И.О.), идентификатор автоматически генерируется и выводится в строке, а правильно введенный регистрационный, полученный с помощью генератора паролей, позволяет нам использовать файл энный период времени. Как сделать, чтобы после нажатия кнопки "Зарегистрировать" (при условии, что все данные введены, т. е. все строки заполнены, а регистрационный код соответствует соответствует своему идентификатору):
а) в какой-нибудь папке C:\Temp создавался тестовый документ, например под названием "Пользователь", а внутри файла была прописана информация о пользователе (та, что указана при регистрации);
б) после завершения периода использования файла снова появлялось бы окно регистрации, но строка "Пользователь" неактивная (в ней прописаны данные, взятые из того самого текстового документа).
PS. После ввода корректных данных пользователь получает возможность использовать файл разрешенный период времени. В генераторе паролей предусмотрена возможность генерации регистрационного кода в зависимости от количества дней (см. вложение).

Автор - Starbirst
Дата добавления - 19.12.2017 в 22:40
Shylo Дата: Пятница, 22.12.2017, 00:00 | Сообщение № 2
Группа: Проверенные
Ранг: Форумчанин
Сообщений: 127
Репутация: 6 ±
Замечаний: 0% ±

Excel-2003; 2010
Наверно так.
[vba]
Код
Private Sub Зарегистрировать_Click()
    Open "c:\1.txt" For Append As #1
     Close #1
f = FreeFile
    Open "c:\1.txt" For Append As f
     Print #f, TextBox3.Value
  Close #f
End Sub
[/vba]
Текстовый файл создан зарание.


Сообщение отредактировал Shylo - Пятница, 22.12.2017, 00:01
 
Ответить
СообщениеНаверно так.
[vba]
Код
Private Sub Зарегистрировать_Click()
    Open "c:\1.txt" For Append As #1
     Close #1
f = FreeFile
    Open "c:\1.txt" For Append As f
     Print #f, TextBox3.Value
  Close #f
End Sub
[/vba]
Текстовый файл создан зарание.

Автор - Shylo
Дата добавления - 22.12.2017 в 00:00
Wasilich Дата: Пятница, 22.12.2017, 11:22 | Сообщение № 3
Группа: Друзья
Ранг: Старожил
Сообщений: 1232
Репутация: 325 ±
Замечаний: 0% ±

2003
некое подобие защиты файла от несанкционированного использования.
Ваша идея понятна, но неудобна для пользователя. Каждый раз, при открытии, ему придется вводить регистрационный №.
Лично я, привязывал файл к компу с помощью определения его серийного номера диска. При первом запуске, этот номер записывал в любую пустую (определенную мной) невидимую ячейку любого листа, при условии, что на этом листе не удаляются и не добавляются строки и столбцы дабы не сместилась запись. Рядом записывается текущая дата + количество дней пользования. При каждом последующем запуске проверяется сер.номер и дата и делаются соответствующие выводы.
А вообще, это все для обычного пользователя. :)
Пример для размышления.
К сообщению приложен файл: 9048806.xls(26.5 Kb)
 
Ответить
Сообщение
некое подобие защиты файла от несанкционированного использования.
Ваша идея понятна, но неудобна для пользователя. Каждый раз, при открытии, ему придется вводить регистрационный №.
Лично я, привязывал файл к компу с помощью определения его серийного номера диска. При первом запуске, этот номер записывал в любую пустую (определенную мной) невидимую ячейку любого листа, при условии, что на этом листе не удаляются и не добавляются строки и столбцы дабы не сместилась запись. Рядом записывается текущая дата + количество дней пользования. При каждом последующем запуске проверяется сер.номер и дата и делаются соответствующие выводы.
А вообще, это все для обычного пользователя. :)
Пример для размышления.

Автор - Wasilich
Дата добавления - 22.12.2017 в 11:22
Starbirst Дата: Пятница, 22.12.2017, 21:37 | Сообщение № 4
Группа: Пользователи
Ранг: Участник
Сообщений: 55
Репутация: 0 ±
Замечаний: 0% ±

Excel 2003
Хорошее решение, Wasilich:-) А как быть, если пользователю необходимо поработать еще скажем 30 дней после завершения периода? У меня была идея такая: идентификатор будет генерироваться по методу случайных чисел, а регистрационный код будет рассчитан в зависимости от значения идентификатора. При первом запуске пользователь озвучивает разработчику идентификатор, а разработчик, в свою очередь, запускает генератор паролей дает регистрационный код. Данные не запрашиваются при каждом входе, только по завершении периода.
 
Ответить
СообщениеХорошее решение, Wasilich:-) А как быть, если пользователю необходимо поработать еще скажем 30 дней после завершения периода? У меня была идея такая: идентификатор будет генерироваться по методу случайных чисел, а регистрационный код будет рассчитан в зависимости от значения идентификатора. При первом запуске пользователь озвучивает разработчику идентификатор, а разработчик, в свою очередь, запускает генератор паролей дает регистрационный код. Данные не запрашиваются при каждом входе, только по завершении периода.

Автор - Starbirst
Дата добавления - 22.12.2017 в 21:37
Wasilich Дата: Суббота, 23.12.2017, 00:03 | Сообщение № 5
Группа: Друзья
Ранг: Старожил
Сообщений: 1232
Репутация: 325 ±
Замечаний: 0% ±

2003
если пользователю необходимо поработать еще скажем 30 дней после завершения периода
Ну, значит, надо предусмотреть несколько разных кодов, заранее их ввести и делать проверку - если 555 то продлить еще на 15 дней, 666 продлить на 30, 777 - продлить на всегда. Короче, я предложил идею, и на ней не настаиваю, есть желание - развивайте. :'( :)
 
Ответить
Сообщение
если пользователю необходимо поработать еще скажем 30 дней после завершения периода
Ну, значит, надо предусмотреть несколько разных кодов, заранее их ввести и делать проверку - если 555 то продлить еще на 15 дней, 666 продлить на 30, 777 - продлить на всегда. Короче, я предложил идею, и на ней не настаиваю, есть желание - развивайте. :'( :)

Автор - Wasilich
Дата добавления - 23.12.2017 в 00:03
Starbirst Дата: Понедельник, 25.12.2017, 22:30 | Сообщение № 6
Группа: Пользователи
Ранг: Участник
Сообщений: 55
Репутация: 0 ±
Замечаний: 0% ±

Excel 2003
А можно ли в данном варианте реализовать мою первоначальную идею?
К сообщению приложен файл: 8887971.xlsm(40.9 Kb) · 9348527.xlsm(19.6 Kb)


Сообщение отредактировал Starbirst - Понедельник, 25.12.2017, 22:30
 
Ответить
СообщениеА можно ли в данном варианте реализовать мою первоначальную идею?

Автор - Starbirst
Дата добавления - 25.12.2017 в 22:30
bmv98rus Дата: Понедельник, 25.12.2017, 22:51 | Сообщение № 7
Группа: Проверенные
Ранг: Старожил
Сообщений: 1322
Репутация: 223 ±
Замечаний: 0% ±

Excel 2013/2016
Starbirst, Я б не хранил в файле, есть реестр и ветка с пользовательскими данными, HKCU , там Software например
Также серйний диска , MAC, SID
 
Ответить
СообщениеStarbirst, Я б не хранил в файле, есть реестр и ветка с пользовательскими данными, HKCU , там Software например
Также серйний диска , MAC, SID

Автор - bmv98rus
Дата добавления - 25.12.2017 в 22:51
Starbirst Дата: Понедельник, 25.12.2017, 23:27 | Сообщение № 8
Группа: Пользователи
Ранг: Участник
Сообщений: 55
Репутация: 0 ±
Замечаний: 0% ±

Excel 2003
С моими познаниями... А как это реализовать? Конечно не хотелось бы, чтобы в файле прописывался рег. код.
 
Ответить
СообщениеС моими познаниями... А как это реализовать? Конечно не хотелось бы, чтобы в файле прописывался рег. код.

Автор - Starbirst
Дата добавления - 25.12.2017 в 23:27
bmv98rus Дата: Понедельник, 25.12.2017, 23:49 | Сообщение № 9
Группа: Проверенные
Ранг: Старожил
Сообщений: 1322
Репутация: 223 ±
Замечаний: 0% ±

Excel 2013/2016
С моими познаниями...

ну тут возникает два вопроса: Не требующий ответа, что Вы пытаетесь защитить? И А как с этими познаниями Вы собрались тогда обеспечивать проверку кода ответа и генерацию этого кода.
Тут по маку защищали файл, может пригодится. Чтение и запись ключей и значений реестра через WMI ищите, примеров полно.

 
Ответить
Сообщение
С моими познаниями...

ну тут возникает два вопроса: Не требующий ответа, что Вы пытаетесь защитить? И А как с этими познаниями Вы собрались тогда обеспечивать проверку кода ответа и генерацию этого кода.
Тут по маку защищали файл, может пригодится. Чтение и запись ключей и значений реестра через WMI ищите, примеров полно.


Автор - bmv98rus
Дата добавления - 25.12.2017 в 23:49
Starbirst Дата: Вторник, 26.12.2017, 00:09 | Сообщение № 10
Группа: Пользователи
Ранг: Участник
Сообщений: 55
Репутация: 0 ±
Замечаний: 0% ±

Excel 2003
В основном использую готовые макросы для защиты своих разработок от обычных пользователей. Единственным для меня более или менее надежным решением являются файлы обходчики, но хотелось реализовать возможность работы с файлом определенный период времени с возможности дальнейшего продления времени использования.
 
Ответить
СообщениеВ основном использую готовые макросы для защиты своих разработок от обычных пользователей. Единственным для меня более или менее надежным решением являются файлы обходчики, но хотелось реализовать возможность работы с файлом определенный период времени с возможности дальнейшего продления времени использования.

Автор - Starbirst
Дата добавления - 26.12.2017 в 00:09
Мир MS Excel » Вопросы и решения » Вопросы по VBA » Перенос данных из UserForm в текстовый документ (Макросы/Sub)
  • Страница 1 из 1
  • 1
Поиск:

Яндекс цитирования
© 2010-2018 · Дизайн: MichaelCH · Хостинг от uCoz · При использовании материалов сайта, ссылка на www.excelworld.ru обязательна!