Защита книги Excel

[Raikhman]

Сообщение от alex77755

А вы пробовали её в действии?
Видимо я что-то не так сделал, но после компиляции - да. Получился .exe шник.
Запустил его. И "О РАДОСТЬ" - открылся мой фаил в Екселе.
А что там весь код в открытом виде, то это же сущие пустяки

Да, я тестировал DoneEx XCell Compiler, который свободно скачивается в виде демоверсии и практически решает задачу сокрытия VBA кода и прячет формулы. Но коммерческая версия имеет дополнительные опции привязки к компьютеру, лецензирования и тд. Это испытать не удалось, так как в демо его просто нет. Программа платная и никто не видел ее с крэком.
Кроме того можно попробовать такую штучку - LockXLS. Тоже платная и с кучей возможностей, включая защиту от просмотра и привязку к железу.
В поисковике легко ищется и скачивается.
Успехов Вам

[doober]

Сообщение от Raikhman

А вот тутто и заключается фишка. Загрузчик надо привязать к компьютеру, например так:

Dim fs As New FileSystemObject
Dim d As Drive
Dim str As String
Dim Number As Long
str = "c:"
Set d = fs.GetDrive(str)
Number = d.SerialNumber
' получив серийный номер диска С

Это не привязка к железу
У винта вот такие данные надо использовать

Caption:ST3160815AS Signature:294326667
Caption:WDC WD5000AAKS-00A7B2 Signature:2554566723

[Raikhman]

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

[VictorM]

Как определить серийный номер и метку тома (имя диска)
Три варианта

[Raikhman]

Испытал все три варианта по Вашей рекомендации.
Имя тома выдает пустую строку, а серийный номер - тоже, что и по моей программе.
Привожу для примера экзешник для определения серийного номера логического диска С:

[Greskis]

Сообщение от Raikhman

Испытал все три варианта по Вашей рекомендации.
Имя тома выдает пустую строку, а серийный номер - тоже, что и по моей программе.
Привожу для примера экзешник для определения серийного номера логического диска С:

НЕ ОТКРЫВАЙТЕ!!!!! ТАМ ВИРУС!!!!

[EducatedFool]

Greskis, нет там никакого вируса...
Можете сами посмотреть - только один антивирус из 43 сказал, что в файле есть что-то подозрительное
(и то, там, скорее, сам антивирус вызывает подозрения )

[Raikhman]

Сообщение от Greskis

НЕ ОТКРЫВАЙТЕ!!!!! ТАМ ВИРУС!!!!

А я то думаю, чего у меня насморк с утра!