Запрет открытия файла xlsm если он окрыт

[Евгений Таб]

Добрый день!
Подскажите код который запретит открыть книгу (даже для чтения) xlsm если он окрыт другим пользователем.

Спасибо!

[slan]

поставьте пароль на открытие, например , так:

Private Sub Workbook_BeforeClose(Cancel As Boolean)
    With ThisWorkbook
        .Password = ""
        .Save
    End With
End Sub

Private Sub Workbook_Open()
    With ThisWorkbook
        .Password = "1"
        .Save
    End With
End Sub

конечно, для большей секретности пароль надо выбирать случайным образом... но есть вероятность потерять этот пароль, если вдруг иксель "вылетит" и не снимет пароль..