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

[VladMar]

Сообщение от 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

Все равно глючит, я уже вообще оставил только голый код, одна проверка компа и все если не тот то закрыть файл и все равно даже с точным именем компа - выдает сообщение, что нельзя:
Private Sub Workbook_Open()
If Environ("COMPUTERNAME") <> "ckadr" Then
MsgBox "Вы открыли программу на НЕ РАЗРЕШЕННОМ РАБОЧЕМ МЕСТЕ", vbCritical, "ckadr"
ThisWorkbook.Close
End If

End Sub

[Hugo121]

Так какое у Вас Environ("COMPUTERNAME") ?

[IgorGO]

а так:

Private Sub Workbook_Open()
  MsgBox Environ("COMPUTERNAME")
End Sub

что видно?

[VladMar]

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

а так:

Private Sub Workbook_Open()
  MsgBox Environ("COMPUTERNAME")
End Sub

что видно?

СПАСИБО ВСЕ ЗАРАБОТАЛО!!!