| Вопрос: общий доступ | Добавлено: 04.05.07 15:03 |
Автор вопроса:  Оленька
|
| Скажите пожалуйста, как отобразить всех подключенных к рабочей книге пользователей, открытой в режиме общего доступа.(Как посмотреть пользователей через стандартное меню я знаю). |
| Ответы | Всего ответов: 7 |
|
Номер ответа: 1 Автор ответа:  VisualPaul  ICQ: 402519798 Вопросов: 12 Ответов: 111 |
Профиль | | #1 | Добавлено: 04.05.07 18:57 |
| А через меню то как | ||
|
Номер ответа: 2 Автор ответа: Оленька Вопросов: 4 Ответов: 7 |
Профиль | | #2 | Добавлено: 04.05.07 21:32 |
| сервис/доступ к книге. И там Файл открыт следующими пользователями: Мне нужно то же самое, только с учетом того, что системного меню не будет | ||
|
Номер ответа: 3 Автор ответа: Pavel Вопросов: 0 Ответов: 82 |
Профиль | | #3 | Добавлено: 05.05.07 02:57 |
|
Вот код из справки Excel по слову UserStatus
Sub Макрос1()
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 End Sub |
||
|
Номер ответа: 4 Автор ответа: ОленькаВопросов: 4 Ответов: 7 |
Профиль | | #4 | Добавлено: 05.05.07 13:53 |
|
спасибо большущее))) Все работает |
||
|
Номер ответа: 5 Автор ответа: PavelВопросов: 0 Ответов: 82 |
Профиль | | #5 | Добавлено: 05.05.07 21:18 |
| чмуки ) | ||
|
Номер ответа: 6 Автор ответа: DrugONICQ: nospam Вопросов: 10 Ответов: 53 |
Профиль | | #6 | Добавлено: 24.06.07 09:00 |
|
А у меня не работает почему-то :о\
На "Users" ругается. В чем проблема? |
||
|
Номер ответа: 7 Автор ответа: PavelВопросов: 0 Ответов: 82 |
Профиль | | #7 | Добавлено: 24.06.07 12:34 |
|
А что значит ругается? Так и говорит "да пошёл твой Users куда подальше?" или другими словами, может и код ошибки пишет? Может просто пишет, что переменная не определена?
Попробуйте перед макросом написать строку Dim Users
|
||
Страница: 1 |