Нужно, чтобы EXCEL-файл нельзя было перенести на другой комп

[lamden]

Уважаемые профи!
Задача - сделать так, чтобы установив EXCEL-файл на компьютер можно было пользоваться им на этом компьютере, но при переносе на другой он переставал-бы работать. Т.е. речь идет о минимальной защите продукта, выполненного в виде EXCEL'овской книги (или формы, создающей другие книги на этом же компьютере).
Может, что другое присоветуете...

[Vitaly1]

Сложная задача.

Ну допустим часть программы проекта записать в книге макросов.

[corgi]

а кто будет устанавливать этот файл?
ты или кто-то неизвестный

[lamden]

В идеале, конечно, чтобы сам пользователь и устанавливал, например, с дискеточки, а с ней тоже чего-нибудь происходило. Ну - на худой конец хоть урезанный вариант задачки - установил дядя и дискеточку забрал, а вот юзер уже со своего компа нросто переписать на другой уже не смог...
Насчет части проги в книге макросов - извините, не совсем понял - я в VBA совсем лох...

[lamden]

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

[alibek]

Например, программа при запуске ищет файл C:\WINDOWS\myprjlock.dat. В самом простом случае достаточно наличия этого файла, если он есть - значит работать можно. В более сложном случае в этом файле можно зашифровать имя машины, характеристики и т.п.

[Vitaly1]

Информацию о компе можно в ячейках книги с макросами записать, и сделать книгу типа xla, тогда из нее ничего не прочтешь и неизменишь, кроме как программно. И ненадо опасатся, что проверочный файл случайно затрут.

[lamden]

Простите за тупость, но как эту информацию о компе получать, чтобы сравнивать - подкиньте макрос-другой плз!!!

[Gorynych]

Private Sub Workbook_Open()
Dim nn As Variant
nn = Application.UserName
If nn = "Иванов" Then ' имя компа на котором можно открывать

Else
MsgBox ("Посмотрели и хватит!")
Application.Quit
End If
End Sub

Но вот только макросы можно отключить при запуске
Простите, я сам только учусь. Но может пойдёт на первое время.