Модераторы: Akina
  

Поиск:

Ответ в темуСоздание новой темы Создание опроса
> программа в Excel VBA, как запоролить? 
:(
    Опции темы
летучий
Дата 21.3.2007, 09:06 (ссылка) | (нет голосов) Загрузка ... Загрузка ... Быстрая цитата Цитата


Новичок



Профиль
Группа: Участник
Сообщений: 1
Регистрация: 21.3.2007

Репутация: нет
Всего: нет
Здравствуйте.
У меня два вопроса по этой теме.
Сделал программу в бейсике в экселе.

1. Как сделать, чтобы другие пользователи не могли просмотреть код программы. Как то видел можно запоролить все кнопки. Но не знаю как.  smile 

2. Как сделать, чтобы эта программа работала только на одном компьютере.
Т.е. при установке или копировании ее на другой комп прога спрашивала пароль.
Т.е. чтобы она при запуске проверяла номер жесткого диска.
Я просто хочу сделать прогу платной.
PM MAIL   Вверх
Дмит
Дата 21.3.2007, 10:26 (ссылка) | (нет голосов) Загрузка ... Загрузка ... Быстрая цитата Цитата


Шустрый
*


Профиль
Группа: Участник
Сообщений: 117
Регистрация: 21.4.2006
Где: г.Волгоград

Репутация: 1
Всего: 9
В простейшем случае (если Вашу защиту не захотят сломать):
1. В редакторе Tools->VBAProject Project Properties...->Protection->Lock project for viewing
2. При запуске лучше проверять ключ в реестре (Ведь смена винчестера не есть смена рабочего места)

Вся защита кода VBA легко обходится даже при использовании дополнительных ухищрений.
Однако если прога стоящая, то применить некоторые из них нужно. 
Ищи рекомендации в поиске - тема часто обсуждаемая.
PM MAIL WWW   Вверх
Мих
Дата 21.3.2007, 13:47 (ссылка) | (нет голосов) Загрузка ... Загрузка ... Быстрая цитата Цитата


Шустрый
*


Профиль
Группа: Участник
Сообщений: 50
Регистрация: 11.1.2007
Где: г. Екатеринбург

Репутация: нет
Всего: нет
Спасибо! Попробую! smile 
PM MAIL   Вверх
Мих
Дата 21.3.2007, 14:34 (ссылка) | (нет голосов) Загрузка ... Загрузка ... Быстрая цитата Цитата


Шустрый
*


Профиль
Группа: Участник
Сообщений: 50
Регистрация: 11.1.2007
Где: г. Екатеринбург

Репутация: нет
Всего: нет
Цитата(Дмит @ 21.3.2007,  10:26)
1. В редакторе Tools->VBAProject Project Properties...->Protection->Lock project for viewing
2. При запуске лучше проверять ключ в реестре (Ведь смена винчестера не есть смена рабочего места)


 В редакторе Tools->VBAProject Project Properties...->Protection->Lock project for viewing
сделал, но ничего не изменилось. Галочку поставил, пароль написал. Снова захожу - пароль не спрашивает.
smile

 2. При запуске лучше проверять ключ в реестре (Ведь смена винчестера не есть смена рабочего места)

А как создать этот ключ в реестре?
PM MAIL   Вверх
Мих
Дата 21.3.2007, 14:51 (ссылка) | (нет голосов) Загрузка ... Загрузка ... Быстрая цитата Цитата


Шустрый
*


Профиль
Группа: Участник
Сообщений: 50
Регистрация: 11.1.2007
Где: г. Екатеринбург

Репутация: нет
Всего: нет
Цитата(Мих @ 21.3.2007,  14:34)
сделал, но ничего не изменилось. Галочку поставил, пароль написал. Снова захожу - пароль не спрашивает.
smile

 

заработало, надо было закрыть файл!  smile 
PM MAIL   Вверх
Akina
Дата 21.3.2007, 19:30 (ссылка) | (нет голосов) Загрузка ... Загрузка ... Быстрая цитата Цитата


Советчик
****


Профиль
Группа: Модератор
Сообщений: 20581
Регистрация: 8.4.2004
Где: Зеленоград

Репутация: 34
Всего: 454
Цитата(Мих @  21.3.2007,  15:34 Найти цитируемый пост)
как создать этот ключ в реестре?

GetSetting/SaveSetting


--------------------
 О(б)суждение моих действий - в соответствующей теме, пожалуйста. Или в РМ. И высшая инстанция - Администрация форума.
PM MAIL WWW ICQ Jabber   Вверх
Мих
Дата 23.3.2007, 08:36 (ссылка) | (нет голосов) Загрузка ... Загрузка ... Быстрая цитата Цитата


Шустрый
*


Профиль
Группа: Участник
Сообщений: 50
Регистрация: 11.1.2007
Где: г. Екатеринбург

Репутация: нет
Всего: нет
Цитата(Akina @ 21.3.2007,  19:30)
этот ключ в реестре?

GetSetting/SaveSetting[/QUOTE]
 smile  и у меня возникло еще с десяток вопросов  smile 
PM MAIL   Вверх
Akina
Дата 23.3.2007, 09:24 (ссылка) | (нет голосов) Загрузка ... Загрузка ... Быстрая цитата Цитата


Советчик
****


Профиль
Группа: Модератор
Сообщений: 20581
Регистрация: 8.4.2004
Где: Зеленоград

Репутация: 34
Всего: 454
Цитата(Мих @  23.3.2007,  09:36 Найти цитируемый пост)
у меня возникло еще с десяток вопросов  

F1


--------------------
 О(б)суждение моих действий - в соответствующей теме, пожалуйста. Или в РМ. И высшая инстанция - Администрация форума.
PM MAIL WWW ICQ Jabber   Вверх
Akina
Дата 23.3.2007, 09:59 (ссылка) | (нет голосов) Загрузка ... Загрузка ... Быстрая цитата Цитата


Советчик
****


Профиль
Группа: Модератор
Сообщений: 20581
Регистрация: 8.4.2004
Где: Зеленоград

Репутация: 34
Всего: 454
Насчет проверяемого при старте ключа системы - очень устойчивое определение рабстанции (к тому же на которое не влияет смена железа - определяется фактически инсталляция ОС) делается по CLSID администратора машины. Среди юзеров у него самый короткий CLSID, и генерится он при установки ОС рандомом. Повторение excluded...


--------------------
 О(б)суждение моих действий - в соответствующей теме, пожалуйста. Или в РМ. И высшая инстанция - Администрация форума.
PM MAIL WWW ICQ Jabber   Вверх
Мих
Дата 8.6.2007, 14:07 (ссылка) | (нет голосов) Загрузка ... Загрузка ... Быстрая цитата Цитата


Шустрый
*


Профиль
Группа: Участник
Сообщений: 50
Регистрация: 11.1.2007
Где: г. Екатеринбург

Репутация: нет
Всего: нет
Private Sub CommandButton1_Click()
Dim fs, d, s, t
Set fs = CreateObject("Scripting.FileSystemObject")
Set d = fs.GetDrive(fs.GetDriveName(fs.GetAbsolutePathName(drvpath)))
Лист1.Cells(1, 1) = d.SerialNumber
MsgBox ("Запишите номер и сообщите его автору"), (d.SerialNumber)
End Sub

Нашел вот такой макрос. От нажатия кнопки записывается серийник.
Но, почему то на работе не идет макрос. Может что-то админ заблокировал?
Безопасность макросов - низкая.
Дома прекрасно работает.
PM MAIL   Вверх
bom
Дата 8.6.2007, 14:51 (ссылка) | (нет голосов) Загрузка ... Загрузка ... Быстрая цитата Цитата


Опытный
**


Профиль
Группа: Участник
Сообщений: 329
Регистрация: 22.2.2004
Где: Казахстан, Алматы

Репутация: 4
Всего: 6
Может и заблокировал, а может прав не хватает. Спроси, чего гадать. 
Попробуй получить SN логического диска без использования FSO:
Код

Private Declare Function GetVolumeInformation Lib "kernel32" Alias "GetVolumeInformationA" (ByVal lpRootPathName As String, ByVal lpVolumeNameBuffer As String, ByVal nVolumeNameSize As Long, lpVolumeSerialNumber As Long, lpMaximumComponentLength As Long, lpFileSystemFlags As Long, ByVal lpFileSystemNameBuffer As String, ByVal nFileSystemNameSize As Long) As Long

Private Sub CommandButton1_Click()
Dim nSerial as long
if GetVolumeInformation ("c:\", String(255, 0), 255, nSerial, 0, 0, String(255, 0), 255) then
Лист1.Cells(1, 1) = Trim(Str(nSerial))
MsgBox ("Запишите номер и сообщите его автору") & (Trim(Str(nSerial)))
end if
End Sub
PM MAIL   Вверх
Мих
Дата 8.6.2007, 14:56 (ссылка) | (нет голосов) Загрузка ... Загрузка ... Быстрая цитата Цитата


Шустрый
*


Профиль
Группа: Участник
Сообщений: 50
Регистрация: 11.1.2007
Где: г. Екатеринбург

Репутация: нет
Всего: нет
Спасибо, попробую так.
Я разобрался в своем варианте - у меня антивирусник блокирует макрос.
PM MAIL   Вверх
  
 Ответ в темуСоздание новой темы Создание опроса
Правила форума "VB6"
Akina

Запрещается!

1. Публиковать ссылки на вскрытые компоненты

2. Обсуждать взлом компонентов и делиться вскрытыми компонентами

  • Литературу по VB обсуждаем здесь
  • Действия модераторов можно обсудить здесь
  • С просьбами о написании курсовой, реферата и т.п. обращаться сюда
  • Вопросы по реализации алгоритмов рассматриваются здесь
  • Используйте теги [code=vb][/code] для подсветки кода. Используйтe чекбокс "транслит" (возле кнопок кодов) если у Вас нет русских шрифтов.

Если Вам понравилась атмосфера форума, заходите к нам чаще! С уважением, Akina.
 
1 Пользователей читают эту тему (1 Гостей и 0 Скрытых Пользователей)
0 Пользователей:
« Предыдущая тема | VB6 | Следующая тема »

Подписаться на тему | Подписка на этот форум | Скачать/Распечатать тему


 




[ Время генерации скрипта: 0.0935 ]   [ Использовано запросов: 21 ]   [ GZIP включён ]


Реклама на сайте     Информационное спонсорство

 
 По вопросам размещения рекламы пишите на vladimir(sobaka)vingrad.ru
Отказ от ответственности     Powered by Invision Power Board(R) 1.3 © 2003  IPS, Inc.