Блокировка повторного открытия файла

[Alex_ST]

Auto_Open срабатывает, даже если запрещены события (Workbook_Open в модуле книги в этом случае не работает)

К стати, аналогично и

Workbook_BeforeClose не срабатывает при Application.Quit, а Auto_Close - срабатывает

[Starbirst]

Благодарю Alex_ST, попробую предложенный вами вариант, обязательно отпишусь через неделю по приезду.

[Starbirst]

Попробовал ваш вариант - тоже не работает в моем файле :-( либо что-то неверно делаю, либо косяк в файле, хотя пробовал на стороннем файле - все работает. Спасибо!

[Alex_ST]

не работает в моем файле

Для удобства отладки измените запись процедуры - разверните однострочный If ... Then в многострочную классическую запись If ... Then ... End If и поставьте в начале СТОП:

Код (vb) Выделить Развернуть

    Sub Auto_Open()
        Stop
        If ThisWorkbook.ReadOnly Then
            MsgBox "ReadOnly"
            ThisWorkbook.Close False 
        End If
    End Sub  Попробуйте открыть файл.
Если откроется, значит по какой-то причине событие открытия файла почему-то не обрабатывается.
Если вылетит в VBE, то пройдите дальше в пошаговом режиме F8 и выясните, почему не работает процедура.