Запрет запуска книги с другого компа

[IgorGO]

в модуль книги Вашей БД:

Private Sub Workbook_Open()
  If Environ("COMPUTERNAME") <> "RealCompName!!!" Then ThisWorkbook.Close False
End Sub

вместо RealCompName!!! подставте имя компьютера (имя найдете в свойствах компьютера)
в вашей БД теперь появились макросы. сохранить ее надо в соотв.формате.

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

удачи!

[Hugo121]

Открывашка ещё должна проверять, что она запущена на компе из списка дозволенных к просмотру.

[Hugo121]

Потенциальный злоумышленник может не включать макросы.
Это можно обойти, пряча лист - но это тоже легко обойти кучей способов.
Поэтому думаю надёжнее пароль на открытие.

Про пароли:
http://office.microsoft.com/ru-ru/ex...005238854.aspx

[VladMar]

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

Открывашка ещё должна проверять, что она запущена на компе из списка дозволенных к просмотру.

Это так:
Private Sub Workbook_Open()
If Environ("COMPUTERNAME") <> "RealCompName!!!" Then ThisWorkbook.Close False
End Sub

[Hugo121]

Ну да, можно так. Или можно имя пользователя проверить.
Если не годится - закрываемся. Если годится - открываем запароленный файл и закрываемся

[VladMar]

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

Открывашка ещё должна проверять, что она запущена на компе из списка дозволенных к просмотру.

Спасибо вроде заработало, только вот код окрывашки не срабатал, что не так не пойму:
Private Sub Workbook_Open()
Workbooks.Open Filename:="D:\TMP\Book_hugo.xls", Password:="hugo"
Me.Close
End Sub

Я файл назвал
Book_hugo.xls и сохранил его на диске С, а в коде прописал Workbooks.Open Filename:="С:\TMP\Book_hugo.xls", Password:="123"
И при открытии файла эксель выдает ошибку за № 1024 и именно на этот код открывашку, м.б. нужно ставить пароль на открытие книги? В чем проблема?

[Hugo121]

Ну конечно пароль поставьте на открытие - это в диалоге сохранения поищите, там есть опция.

[VladMar]

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

Открывашка:

Private Sub Workbook_Open()
    Workbooks.Open Filename:="D:\TMP\Book_hugo.xls", Password:="hugo"
    Me.Close
End Sub

По политикам - ну ведь можно в NTFS закрыть доступ к файлам всем, кроме определённых пользователей? Правда если файл скопировать на FAT - то кажется вся защита пропадёт...

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

[VladMar]

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

в модуль книги Вашей БД:

Private Sub Workbook_Open()
  If Environ("COMPUTERNAME") <> "RealCompName!!!" Then ThisWorkbook.Close False
End Sub

вместо RealCompName!!! подставте имя компьютера (имя найдете в свойствах компьютера)
в вашей БД теперь появились макросы. сохранить ее надо в соотв.формате.

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

удачи!

Добрый день, Игорь, если не составит труда посмотреть код, что я не так делаю.
Перепробовал все, но осталась та же проблема код не работает в чем я напутал прилагаю файл с кодом, что бы открыть файл и посмотреть код нужно отключить макросы. Спасибо за помощь!!!

[IgorGO]

а так:

Private Sub Workbook_Open()
  If Environ("COMPUTERNAME") <> "ckadr" Then
    MsgBox "Вы открыли программу на НЕ РАЗРЕШЕННОМ РАБОЧЕМ МЕСТЕ", vbCritical, "ckadr"
    ThisWorkbook.Close
  End If
  Workbooks.Open Filename:="E:\TMP\Book_hugo.xls", Password:="123"
  Me.Close
End Sub