Excel это не сложно
Добро пожаловать, Гость. Пожалуйста, войдите или зарегистрируйтесь.
16.04.2024, 07:40:43

Войти
Хотите поблагодарить участника за дельный совет? Нажмите [Повысить]. Так вы заслуженно поднимите репутацию активному участнику.
33 240 Сообщений в 5 456 Тем от 6 755 Пользователей
Последний пользователь: Marsel
*
Перейти на сайт Хитрости Надстройка MulTEx Обучающие тренинги Наша группа ВКонтакте
Правила форума Начало Помощь Поиск Календарь Войти Регистрация Выйти
+  Excel это не сложно
|-+  Основные форумы
| |-+  Вопросы по Excel и VBA
| | |-+  ThisWorkbook.UserStatus видит только меня
Страниц: [1]   Вниз
Печать
Автор Тема: ThisWorkbook.UserStatus видит только меня  (Прочитано 2284 раз)
0 Пользователей и 1 Гость смотрят эту тему.
Valetnina
Постоялец
***

Репутация: +2/-0
Офлайн Офлайн

Сообщений: 153



Просмотр профиля WWW E-mail
« : 04.03.2022, 12:33:11 »

Здравствуйте.
Мой вопрос касается возможности считывания кодом vba профилей людей, использующих в данный момент файл, к которому имеют доступ на Sharepoint. Использую свойство ThisWorkbook.UserStatus, но код видит только меня, хотя тестирую с ещё одним пользователем, у которого этот файл открыт локально, в Excel Desktop, как и у меня.
Код следующий :
Код: (vb)
Sub V_Sub_MsgBox_profils_actifs_sur_Sharepoint_VL()
Dim LWk_Workbook As Workbook, LL_Counter As Long ', LA_User_Status(), LL_Index As Long,
Dim LS_String As String

Set LWk_Workbook = Application.ActiveWorkbook
    LS_String = "Users currently online:" & Chr(10)
        For LL_Counter = 1 To UBound(LWk_Workbook.UserStatus)
            LS_String = LS_String & ThisWorkbook.UserStatus(LL_Counter, 1) & ", "
        Next LL_Counter
    MsgBox LS_String
'Range("F2").Value = Mid(Str, 1, Len(Str) - 2)
End Sub 'V_Sub_MsgBox_profils_actifs_sur_Sharepoint_VL

Записан
Дмитрий Щербаков(The_Prist)
Администратор
Ветеран
*****

Репутация: +485/-0
Офлайн Офлайн

Сообщений: 5 830



Просмотр профиля WWW
« Ответ #1 : 04.03.2022, 12:58:06 »

Файлу предоставлен общий доступ? Не через он-лайн или еще как-то, а именно через старую версию.
Записан

Даже самый простой вопрос можно превратить в огромную проблему. Достаточно не уметь формулировать вопросы...
Пункты приёма Спасибов:    -41001332272872  -R298726502453
Valetnina
Постоялец
***

Репутация: +2/-0
Офлайн Офлайн

Сообщений: 153



Просмотр профиля WWW E-mail
« Ответ #2 : 08.03.2022, 11:16:24 »

Да, общий доступ предоставлен. Все им пользуются. Не совсем понимаю, что значит "старая" версия и версия чего, файла ?
Записан
Дмитрий Щербаков(The_Prist)
Администратор
Ветеран
*****

Репутация: +485/-0
Офлайн Офлайн

Сообщений: 5 830



Просмотр профиля WWW
« Ответ #3 : 09.03.2022, 08:37:29 »

Не совсем понимаю, что значит "старая" версия
старая версия общего доступа. Начиная с 2013 Excel по умолчанию общий доступ предоставляется путем помещения файла в облако. А старые версии(до 2013) допускали общий доступ только путем помещения файла на некий сетевой диск, к которому есть доступ у всех нужных пользователей, а сам общий доступ назначался с вкладки Рецензирование(Review).
В этой статье чуть подробнее писал про общий доступ в старых версиях: Ведение журнала сделанных в книге изменений
Если у тебя так же - значит проблему фактически не решить, т.к. UserStatus бывает и глючит.
Плюс, необходимо убедиться, что другие пользователи открыли книгу именно в общем доступе, а не в режиме "Только чтение". Если книга открыта в режиме "Только чтение", информация о таком пользователе недоступна из UserStatus.
Записан

Даже самый простой вопрос можно превратить в огромную проблему. Достаточно не уметь формулировать вопросы...
Пункты приёма Спасибов:    -41001332272872  -R298726502453
Valetnina
Постоялец
***

Репутация: +2/-0
Офлайн Офлайн

Сообщений: 153



Просмотр профиля WWW E-mail
« Ответ #4 : 09.03.2022, 10:04:07 »

Поняла, спасибо.
У всех офис 365, и все именно в общем доступе, видно перемещение их курсора и что "редачат".
Записан
Страниц: [1]   Вверх
Печать
Перейти в:  

Powered by MySQL Powered by PHP Powered by SMF 1.1.21 | SMF © 2006-2011, Simple Machines Valid XHTML 1.0! Valid CSS!
Яндекс.Метрика Рейтинг@Mail.ru