Убрать совместный доступ к книге

[analyst]

Здравсвтуйте, возникла необходимость убрать програмно совместный доступ к книге.
К сожеланиею кроме этого больше ничего не нашёл:

If ActiveWorkbook.MultiUserEditing Then
    ActiveWorkbook.ExclusiveAccess
End If

Буду благодарен за любые советы.

[Teslenko_EA]

Здравствуйте analyst.
если у книги Общий доступ, работать c её VBA проектом "проблематично"
Но код можно выполнить из другого проекта (файла)

Sub NotModeAccess()
Dim o As Workbook
Set o = Workbooks("Книга1.xls")
If Not o.MultiUserEditing Then
    o.SaveAs Filename:=o.FullName, accessMode:=xlShared
ElseIf o.MultiUserEditing Then
    o.ExclusiveAccess
End If
End Sub

Евгений.

[analyst]

Всё замечательно, но при выполнении данного кода вылазит запрос на сохранение книги или запрос о запрете совместного доступа. Мой код по сути делает тоже самое, но мне нужно чтобы этих запросов не было.

[Teslenko_EA]

а кто мешает выключить на время выполнения кода(!) отображение этих запросов :

Sub NotModeAccess()
Dim o As Workbook
Set o = Workbooks("Книга1.xls")
Application.DisplayAlerts = False
If Not o.MultiUserEditing Then
    o.SaveAs Filename:=o.FullName, accessMode:=xlShared
ElseIf o.MultiUserEditing Then
    o.ExclusiveAccess
End If
Application.DisplayAlerts = True
End Sub

Евгений.

[analyst]

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

а кто мешает выключить на время выполнения кода(!) отображение этих запросов

Гениально! Большое спасибо