Защита файла XLS от копирования

[Aqil_f]

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

[kvitaliy]

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

Мне надо сделать так что этот файл не работал в других компютерах, как то привязить файл с номерами HDD или как то по другому.

Вначале пишите такой скрипт

Private Sub Workbook_Open()
'Считывание ID копьютера
Dim ID As String
Set wmi1 = GetObject("winmgmts:")
For Each cpu In wmi1.InstancesOf("Win32_Processor")
   ID = ID & cpu.ProcessorId
   
Next
'Правильный и только Ваш ID вначале уззнаете так
'Worksheets("Лист1").Range("A1") = ID
'или так
'MsgBox ID
'потом это значение копируетевместо того, что в скобках:

If ID <> "BFEBFBСС000206A7" Then ' Если значение не совпадает, то комп не тот и программа завершается!
End
End If
End Sub

Потом ставите пароль на ваш скрипт. Или лучше найдите в сети ProtectVBA. Этот прием поможет защитить файл от честных людей и нечестных, но глупых.
Зашита Офисных файлов организована Мелкософтом очень плохо и легко снимается специальными программами в 1 клик, даже думать не надо.

Если нужно надежно защитить файл, ну чтобы никто и практически никогда, то проще и надежнее запароленного RAR архива не найти.
При достаточно сложном и длинном пароле файл будет надежно сохранен. Но это способ только для одного пользователя, если есть ещё кто то, то смысла уже нет.

[Aqil_f]

Kvitaliy, спасибо большое, то что мне надо было
Но один вопрос: Как можно делать без этого
'потом это значение копируете вместо того, что в скобках: ?
Т.е., программа сама нашла ID и сама вставила. Наверное это не очень сложная, но у меня не получается

[kvitaliy]

Весь смысл в том, чтобы зарание определить ID того компютера, где будет работать код. Для этого вам надо раскоментировать строчки и увидеть его значение. И это значение вставить вместо моего. Потом опять закоментировать , ни кто не должен кроме вас знать ID. Что тут сложного?

[Aqil_f]

Я все это делал (раскоментировал строчки и увидел его значение. И это значение вставил вместо вашего.) все очень хорошо. Но я хочу вот именно без этого, т.е., c "первого" раза программа сама нашла ID, сама вставила и проверила.

[kvitaliy]

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

Я все это делал (раскоментировал строчки и увидел его значение. И это значение вставил вместо вашего.) все очень хорошо. Но я хочу вот именно без этого, т.е., c "первого" раза программа сама нашла ID, сама вставила и проверила.

Что сама вставила? Вы или сути не понимаете, или я плохой рассказчик.
Ну смотрите, у нас есть компьютер и мы только для него пишем защитный код. Для этого надо знать его ID. Этот кусок кода узнает ID

'Считывание ID копьютера
Dim ID As String
Set wmi1 = GetObject("winmgmts:")
For Each cpu In wmi1.InstancesOf("Win32_Processor")
   ID = ID & cpu.ProcessorId
   
Next

Теперь в переменной ID есть некая строка, которая характеризует ваш компьютер.
Вы это значение записываете руками в ваш код в это место
If ID <> "некая строка"
Теперь если код будет запущен на другом компьютере, то в этом куске кода:

If ID <> "Некая строка" Then ' Если значение не совпадает, то комп не тот и программа завершается!
End
End If

Значения не совпадут, ведь ID будет другой, и программа закроется, т.е. не будет работать.


Теперь обьясните мне, что значит

c "первого" раза программа сама нашла ID, сама вставила и проверила.

?

Программа и так сама находит текущий ID и проверяет соответствие с ID нашего компьютера, но она должна знать, с чем сравнивать! А сравнивать она будет именно с вашим значением, которое вы вписали заранее.

[Aqil_f]

Вы это значение записываете руками в ваш код в это место Я хочу чтобы не я записовала руками, а программа после того как нашел ID, сама записовала в мой код в это место

[Djeki]

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

Вы это значение записываете руками в ваш код в это место Я хочу чтобы не я записовала руками, а программа после того как нашел ID, сама записовала в мой код в это место

Так эта программа запишет ID на моём компе, и на любом другом..Толку от такой программы ??

[min@y™]

Зачем тебе, аффтор, это всё?

[kvitaliy]

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

Вы это значение записываете руками в ваш код в это место Я хочу чтобы не я записовала руками, а программа после того как нашел ID, сама записовала в мой код в это место

Вы явно не понимаете смысла защиты файла от запуска на чужом компьютере. Или не понимаете код программы, что для чего написано.
В том и хитрость что эта строка и есть "секретный" защитный код, который вы должны сами руками записать.
А если эта программа на каждом компьютере будет вписывать ID этого самого компьютера какой же в этом смысл?