Многопользовательский доступ к Excel

[Чудик]

Может вопрос я задаю в не правильном разделе, но так подумал, что он более относиться к VB, чем к VBA.
Можно ли сделать так, чтобы при работе в книге Excel одновременно несколькими (двумя или тремя) пользователями, можно было организовать для них возможность записи и изменения в этой книге? Обычно, при открытии книги вторым пользователем она открывается только для чтения. Можно ли это обойти?
Если нет, то может можно как-нибудь определить при открытии книги, что с ней уже кто-то работает, так как работа с Excel происходит через самостоятельную программу и сообщения об открытии только для чтения не появляется.

[alibek]

Если Excel XP или выше, то там есть специальные функции (команда меню) для совместной работы. Если младше, то ничего не сделаешь.
Скрывать сообщения следует установкой Application.DisplayAlerts = False.

[GSerg]

alibek

В офисе 97 всё прекрасно есть. Сервис Доступ к книге. Разрешить совместный доступ. Вторая страница: всякие параметры

[alibek]

GSerg, правда? Давненько я не работал с офисом ниже XP.

[Чудик]

Спасибо за содействие. В самом деле в Сервисе есть такая ботва. Почему-то не обращал до сих пор внимания и думал, что такое можно сделать только програмно, в данном случае из работающей внешней программы.
А можно ли как-то определить имя компьютера, работающего параллельно в этой же книге?

[Чудик]

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

[Gloom]

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

Эту информацию можно взять из свойства UserStatus, Вот только имени компьютера там нет...

[Чудик]

А чье это свойство UserStatus? Где его искать?

[Gloom]

Из ёксельной справки:
UserStatus Property Example

This example creates a new workbook and inserts into it information about all users who have the active workbook open as a shared list.

Код: Выделить всё

users = ActiveWorkbook.UserStatus
With Workbooks.Add.Sheets(1)
    For row = 1 To UBound(users, 1)
        .Cells(row, 1) = users(row, 1)
        .Cells(row, 2) = users(row, 2)
        Select Case users(row, 3)
            Case 1
                .Cells(row, 3).Value = "Exclusive"
            Case 2
                .Cells(row, 3).Value = "Shared"
        End Select
    Next
End With