Excel получить доступ листу

Совместный доступ в Microsoft Excel дает возможность работать с одним файлом сразу нескольким пользователям. Десять-двадцать человек на разных компьютерах одновременно вносят какие-то данные в один документ. Где находится определенная информация, работают определенные формулы.

«Главный пользователь» имеет возможность отслеживать действия рабочей группы, добавлять/удалять участников, редактировать противоречивые изменения. Как настроить совместную работу в Excel.

Особенности работы с общим файлом

В книге Excel со совместным доступом не все задачи можно выполнять.

Нельзя:

  • Создавать таблицы Excel.
  • Создавать, менять или просматривать сценарии.
  • Удалять листы.
  • Объединять либо разделять ячейки.
  • Работать с XML-данными (импортировать, добавлять, обновлять, удалять и т.д.).

Выход: отключить общий доступ – выполнить запрещенную задачу – снова включить доступ.

Совместное пользование ограничивает для участников еще ряд задач:

Недопустимо Реально
Вставлять либо удалять группу ячеек Добавлять строку или столбец
Добавлять либо изменять условные форматы Работать с существующими форматами
Включать или изменять инструмент «Проверка данных» Работать с существующими настройками проверки
Создавать или редактировать диаграммы, сводные отчеты Работать с имеющимися диаграммами и сводными таблицами
Вставлять или редактировать рисунки и графические объекты Просматривать имеющиеся рисунки и графические объекты
Вставлять или менять гиперссылки Переходить по имеющимся гиперссылкам
Назначать, редактировать либо удалять пароли Существующие пароли функционируют
Ставить либо снимать защиту листов и книг Существующая защита работает
Группировать, структурировать данные; вставлять подуровни Работать с имеющимися группами, структурами и подуровнями
Записывать, изменять или просматривать макросы Запускать имеющиеся макросы, которые не связаны с недоступными задачами
Изменять или удалять формулы массива Пользоваться существующими формулами
Добавлять в форму данных новую информацию Искать информацию в форме данных



Как сделать совместный доступ к файлу Excel?

Сначала определяемся, какую книгу мы «откроем» для редактирования сразу несколькими участниками. Создаем новый файл и наполняем его информацией. Либо открываем существующий.

  1. Переходим на вкладку «Рецензирование». Диалоговое окно «Доступ к книге».
  2. Рецензирование-Доступ к книге.

  3. Управление доступом к файлу – правка. Ставим галочку напротив «Разрешить изменять файл нескольким пользователям одновременно».
  4. Управление доступом к файлу.

  5. Переходим к инструменту «Подробнее», чтобы настроить параметры многопользовательского редактирования.
  6. Настройки в Подробнее.

  7. Нажимаем ОК. Если мы открываем общий доступ к новой книге, то выбираем ей название. Если совместное пользование предполагается для существующего файла – жмем ОК.
  8. Открываем меню Microsoft Office. Выбираем команду «Сохранить как». Выбираем тот формат файла сохранения, который «пойдет» на всех пользовательских компьютерах.
  9. Местом сохранения выбираем сетевой ресурс / сетевую папку, которую откроют предполагаемые участники. Нажимаем «Сохранить».

Внимание! Нельзя использовать для сохранения общего файла веб-сервер.

Теперь проверим и обновим ссылки:

  1. Вкладка «Данные». «Подключения».
  2. Данные-Подключения.

  3. Изменить ссылки / изменить связи. Если такая кнопка отсутствует, в листе нет связанных файлов.
  4. Переходим на вкладку «Состояние», чтобы проверить имеющиеся связи. На работоспособность связей указывает кнопка ОК.

Открытие книги с совместным доступом

  1. Открываем меню Microsoft Office.
  2. Нажимаем «Открыть».
  3. Выбираем общую книгу.
  4. Когда книга открыта, нажимаем на кнопку Microsoft Office. Переходим на вкладку «Параметры Excel» (в нижней части меню).
  5. «Общие» — «Личная настройка» — «Имя пользователя». Вводим опознавательную информацию (имя, ник-нейм).
  6. Имя пользователя.

Все. Можно редактировать информацию, вводить новую. После работы – сохранить.

Случается, что при открытии книги Excel с совместным доступом к файлу появляется запись «Файл заблокирован». Сохранить не получается. При последующем открытии оказывается, что общий доступ отключен. Возможные причины проблемы:

  1. Одну и ту же часть документа редактируют несколько пользователей. К примеру, вбивают разные данные в одну ячейку. Возникает блокировка.
  2. Во время пользования совместным файлом ведется журнал изменений (кто входил, когда, что делал). Книга увеличивается. Начинает «глючить».
  3. Удалили кого-то из пользователей, но пока ему не сказали об этом. Тогда блокировка может появиться только на его компьютере.
  4. Большая нагрузка на сетевой ресурс.

Что можно сделать, если совместный доступ к файлу файл заблокирован:

  1. Почистить либо удалить журнал изменений.
  2. Почистить содержимое файла.
  3. Отменить, а потом снова активировать совместный доступ.
  4. Открыть книгу xls в OpenOffice. И снова сохранить ее в xls.

Замечено, что запись «Файл заблокирован» реже появляется в новейших версиях Excel.

Как удалить пользователя

  1. На вкладке «Рецензирование» открываем меню «Доступ к книге».
  2. Доступ к книге.

  3. В разделе «Правка» мы видим перечень пользователей.
  4. Список пользователей.

  5. Выбираем имя – нажимаем «Удалить».

Перед удалением проверьте, что пользователи закончили работу с файлом.

Как отключить режим совместного доступа в Excel

Все пользователи должны сохранить информацию и закрыть общий файл. Если необходимо оставить журнал, соблюдаем инструкцию:

  1. Вкладка «Рецензирование» — «Исправления» — «Выделить исправления».
  2. Выделить исправления.

  3. Устанавливаем параметры «Исправлений». По времени – «все». Галочки напротив «Пользователем» и «В диапазоне» сняты. Напротив «вносить изменения на отдельный лист» — стоит. Жмем ОК.
  4. Вносить изменения на отдельный лист.

  5. Откроется Журнал изменений. Его можно сохранить либо распечатать.

Чтобы отключить совместный доступ к файлу Excel, на вкладке «Рецензирование» нажать «Доступ к книге» и снять галочку напротив «Разрешить изменять файл нескольким пользователям».

Разрешить изменять файл нескольким пользователям.

В списке должен остаться один пользователь – Вы.

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

Блокировка только определенных ячеек и диапазонов ячеек на защищенном листе

Сделайте следующее:

  1. Если лист защищен, сделайте следующее:

    1. На вкладке Рецензировка нажмите кнопку Отостановка листа (в группе Изменения).

      Команда "Снять защиту листа"

      Нажмите кнопку Защитить лист, чтобы отопрестить защиту листа, если лист защищен.

    2. Если будет предложено, введите пароль, чтобы отоблести защиты.

  2. Выделите лист целиком, нажав кнопку Выделить все.

    Кнопка Выбрать все

  3. На вкладке Главная щелкните всплывающее кнопку запуска Формат шрифта ячейки. Вы также можете нажать клавиши CTRL+SHIFT+F или CTRL+1.

    Кнопка вызова диалогового окна "Формат ячеек"

  4. Во всплываемом окне Формат ячеек на вкладке Защита отоберем поле Блокировка и нажмите кнопку ОК.

    Вкладка "Защита" в диалоговом окне "Формат ячеек"

    При защите листа все ячейки будут разблокированы. Теперь вы можете выбрать конкретные ячейки, которые нужно защитить.

  5. Выделите на листе только те ячейки, которые необходимо заблокировать.

  6. Снова отключим всплывающее окно Формат ячеек (CTRL+SHIFT+F).

  7. В этот раз на вкладке Защита выберите поле Заблокировано и нажмите кнопку ОК.

  8. На вкладке Рецензирование нажмите кнопку Защитить лист.

    Команда "Защитить лист"

  9. В списке Разрешить всем пользователям этого таблицы выберите элементы, которые пользователи должны иметь возможность изменять.

    Дополнительные сведения об элементах листа

    Снятый флажок

    Запрещаемые действия

    выделение заблокированных ячеек

    Перемещение указателя на ячейки, для которых установлен флажок Защищаемая ячейка на вкладке Защита в диалоговом окне Формат ячеек. По умолчанию пользователям разрешено выделять защищенные ячейки.

    выделение незаблокированных ячеек

    Перемещение указателя на ячейки, для которых снят флажок Защищаемая ячейка на вкладке Защита в диалоговом окне Формат ячеек. По умолчанию пользователям разрешено выделять незаблокированные ячейки, а также перемещаться между незаблокированными ячейками на защищенном листе с помощью клавиши TAB.

    формат ячеек

    Изменение параметров в диалоговых окнах Формат ячеек или Условное форматирование. Если условное форматирование было применено до установки защиты листа, форматирование будет изменяться при вводе значения, удовлетворяющего определенному условию.

    форматирование столбцов

    Использование любых команд форматирования столбцов, включая изменение ширины столбца или скрытие столбцов (вкладка Главная, группа Ячейки, кнопка Формат).

    форматирование строк

    Использование любых команд форматирования строк, включая изменение высоты строки или скрытие строк (вкладка Главная, группа Ячейки, кнопка Формат).

    вставку столбцов

    Вставка столбцов.

    вставку строк

    Вставка строк.

    вставку гиперссылок

    Вставка новых гиперссылок (даже в незаблокированных ячейках).

    удаление столбцов

    Удаление столбцов.

    Если команда удаление столбцов защищена, а команда вставку столбцов не защищена, пользователь не сможет удалять столбцы, которые он вставит.

    удаление строк

    Удаление строк.

    Если команда удаление строк защищена, а команда вставку строк не защищена, пользователь не сможет удалять строки, которые он вставит.

    сортировка

    Использование команд для сортировки данных (вкладка Данные, группа Сортировка и фильтр).

    Пользователи не смогут сортировать диапазоны, содержащие заблокированные ячейки на защищенном листе, независимо от настройки этого параметра.

    использование автофильтра

    Использование стрелок раскрывающегося списка для изменения фильтра в диапазонах, если применяются автофильтры.

    Пользователи не смогут применить или удалить автофильтры на защищенном листе независимо от настройки этого параметра.

    использование отчетов сводной таблицы

    Форматирование, изменение макета, обновление или изменение отчетов сводной таблицы каким-либо иным образом, а также создание новых отчетов.

    изменение объектов

    Выполнять следующие действия:

    • Внесение изменений в графические объекты, в том числе карты, встроенные диаграммы, фигуры, текстовые поля и элементы управления, которые не были разблокированы перед установкой защиты листа. Например, если на листе есть кнопка, запускающая макрос, ее можно нажать, чтобы запустить макрос, но нельзя удалить.

    • Внесение каких-либо изменений (например, форматирование) во встроенную диаграмму. Диаграмма по-прежнему будет обновляться при изменениях ее исходных данных.

    • Добавление или изменение примечаний.

    изменение сценариев

    Просмотр скрытых сценариев, изменение сценариев с установленным запретом на изменения и удаление этих сценариев. Пользователи могут изменять значения в изменяемых ячейках, если ячейки не защищены, и добавлять новые сценарии.

    Элементы листа диаграммы

    Флажок

    Запрещаемые действия

    Содержание

    Изменение элементов, являющихся частью диаграммы, таких как ряды данных, оси и легенды. При этом в диаграммах будут отображаться изменения, вносимые в исходные данные.

    Объекты

    Изменение графических объектов, включая фигуры, текстовые поля и элементы управления (если объекты не были разблокированы до включения защиты листа диаграммы).

  10. В поле Пароль для отключения защиты листа введите пароль для листа, нажмите кнопку ОК, а затем повторно введите пароль для подтверждения.

    • Пароль необязателен. Если не задать пароль, любой пользователь сможет снять защиту с листа и изменить защищенные элементы.

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

Разблокировка диапазонов ячеек на защищенном листе для их изменения пользователями

Чтобы предоставить определенным пользователям разрешение изменять диапазоны на защищенном листе, на компьютере должна быть установлена операционная система Microsoft Windows XP или более поздней версии, а сам компьютер должен находиться в домене. Вместо использования разрешений, для которых требуется домен, можно также задать пароль для диапазона.

  1. Выберите листы, которые нужно защитить.

  2. На вкладке Рецензирование в группе Изменения нажмите кнопку Разрешить изменение диапазонов.

    Команда "Разрешить изменение диапазонов"

    Эта команда доступна, только если лист не защищен.

  3. Выполните одно из следующих действий:

    • Чтобы добавить новый редактируемый диапазон, нажмите кнопку Создать.

    • Чтобы изменить существующий редактируемый диапазон, выберите поле Диапазоны защищенного листа, разблокируемые паролем, затем нажмите кнопку Изменить.

    • Чтобы удалить редактируемый диапазон, выберите поле Диапазоны защищенного листа, разблокируемые паролем, затем нажмите кнопку Удалить.

  4. В поле Название введите имя диапазона, который необходимо разблокировать.

  5. В поле Содержит ячейки введите знак равенства (=), а затем ссылку на диапазон, который необходимо разблокировать.

    Также можно нажать кнопку Свернуть диалоговое окно, выбрать на листе диапазон, а затем снова нажать кнопку Свернуть диалоговое окно, чтобы вернуться к диалоговому окну.

  6. Для управления доступом с помощью пароля в поле Пароль диапазона введите пароль для доступа к диапазону.

    При использовании разрешений на доступ задавать пароль необязательно. Использование пароля позволяет просматривать учетные данные всех полномочных пользователей, изменяющих диапазон.

  7. Для установки разрешений на доступ выберите пункт Разрешения и нажмите кнопку Добавить.

  8. В поле Введите имена объектов для выбора (примеры) введите имена пользователей, которым нужно разрешить изменять диапазоны.

    Чтобы посмотреть, как должны вводиться имена пользователей, щелкните примеры. Чтобы проверить правильность имен, нажмите кнопку Проверить имена.

  9. Нажмите кнопку ОК.

  10. Чтобы указать тип разрешений для выбранного пользователя, в поле Разрешения установите или снимите флажок Разрешить или Запретить, а затем нажмите кнопку Применить.

  11. Нажмите кнопку ОК два раза.

    При необходимости введите заданный пароль.

  12. В диалоговом окне Разрешить изменение диапазонов нажмите кнопку Защитить лист.

  13. В списке Разрешить всем пользователям этого листа выберите элементы, которые должны изменять пользователи.

    Дополнительные сведения об элементах листа

    Снятый флажок

    Запрещаемые действия

    выделение заблокированных ячеек

    Перемещение указателя на ячейки, для которых установлен флажок Защищаемая ячейка на вкладке Защита в диалоговом окне Формат ячеек. По умолчанию пользователям разрешено выделять защищенные ячейки.

    выделение незаблокированных ячеек

    Перемещение указателя на ячейки, для которых снят флажок Защищаемая ячейка на вкладке Защита в диалоговом окне Формат ячеек. По умолчанию пользователям разрешено выделять незаблокированные ячейки, а также перемещаться между незаблокированными ячейками на защищенном листе с помощью клавиши TAB.

    формат ячеек

    Изменение параметров в диалоговых окнах Формат ячеек или Условное форматирование. Если условное форматирование было применено до установки защиты листа, форматирование будет изменяться при вводе значения, удовлетворяющего определенному условию.

    форматирование столбцов

    Использование любых команд форматирования столбцов, включая изменение ширины столбца или скрытие столбцов (вкладка Главная, группа Ячейки, кнопка Формат).

    форматирование строк

    Использование любых команд форматирования строк, включая изменение высоты строки или скрытие строк (вкладка Главная, группа Ячейки, кнопка Формат).

    вставку столбцов

    Вставка столбцов.

    вставку строк

    Вставка строк.

    вставку гиперссылок

    Вставка новых гиперссылок (даже в незаблокированных ячейках).

    удаление столбцов

    Удаление столбцов.

    Если команда удаление столбцов защищена, а команда вставку столбцов не защищена, пользователь не сможет удалять столбцы, которые он вставит.

    удаление строк

    Удаление строк.

    Если команда удаление строк защищена, а команда вставку строк не защищена, пользователь не сможет удалять строки, которые он вставит.

    сортировка

    Использование команд для сортировки данных (вкладка Данные, группа Сортировка и фильтр).

    Пользователи не смогут сортировать диапазоны, содержащие заблокированные ячейки на защищенном листе, независимо от настройки этого параметра.

    использование автофильтра

    Использование стрелок раскрывающегося списка для изменения фильтра в диапазонах, если применяются автофильтры.

    Пользователи не смогут применить или удалить автофильтры на защищенном листе независимо от настройки этого параметра.

    использование отчетов сводной таблицы

    Форматирование, изменение макета, обновление или изменение отчетов сводной таблицы каким-либо иным образом, а также создание новых отчетов.

    изменение объектов

    Выполнять следующие действия:

    • Внесение изменений в графические объекты, в том числе карты, встроенные диаграммы, фигуры, текстовые поля и элементы управления, которые не были разблокированы перед установкой защиты листа. Например, если на листе есть кнопка, запускающая макрос, ее можно нажать, чтобы запустить макрос, но нельзя удалить.

    • Внесение каких-либо изменений (например, форматирование) во встроенную диаграмму. Диаграмма по-прежнему будет обновляться при изменениях ее исходных данных.

    • Добавление или изменение примечаний.

    изменение сценариев

    Просмотр скрытых сценариев, изменение сценариев с установленным запретом на изменения и удаление этих сценариев. Пользователи могут изменять значения в изменяемых ячейках, если ячейки не защищены, и добавлять новые сценарии.

    Элементы листа диаграммы

    Флажок

    Запрещаемые действия

    Содержание

    Изменение элементов, являющихся частью диаграммы, таких как ряды данных, оси и легенды. При этом в диаграммах будут отображаться изменения, вносимые в исходные данные.

    Объекты

    Изменение графических объектов, включая фигуры, текстовые поля и элементы управления (если объекты не были разблокированы до включения защиты листа диаграммы).

  14. В поле Пароль для отключения защиты листа введите пароль, нажмите кнопку ОК, а затем повторно введите пароль для подтверждения.

  • Пароль необязателен. Если его не задать, любой пользователь сможет снять защиту с листа и изменить защищенные элементы.

  • Убедитесь, что вы выбрали пароль, который можете запомнить. Если вы потеряете пароль, вы не сможете получить доступ к защищенным элементам на этом сайте.

  • Если ячейка принадлежит к нескольким диапазонам, ее смогут редактировать пользователи, имеющие права на редактирование любого из этих диапазонов.

  • Если пользователь пытается редактировать несколько ячеек одновременно и имеет разрешение на изменение только некоторых из них, пользователю будет предложено изменить ячейки по одному.

Дополнительные сведения

Вы всегда можете задать вопрос специалисту Excel Tech Community или попросить помощи в сообществе Answers community.

Spread, вот как я реализовал открытие нужного листа Excel. Рекомендую весь этот код записать в отдельный модуль, чтобы не путать с другими процедурами. У меня этот модуль называется mdlExcel:

VB.NET
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
39
40
41
42
43
44
45
46
47
48
49
50
51
52
53
54
55
56
57
58
59
60
61
62
63
64
65
66
67
68
69
70
71
72
73
74
75
76
77
78
79
80
81
82
83
84
85
86
87
88
89
90
91
92
93
94
95
96
97
98
99
100
101
102
103
104
105
106
107
108
109
110
111
112
113
114
115
116
117
118
119
120
121
122
123
124
125
126
127
128
129
130
131
132
133
134
135
136
137
138
139
140
141
142
143
144
145
146
147
148
149
150
151
152
153
154
155
156
157
158
159
160
161
162
163
164
165
166
167
168
169
170
171
172
173
174
175
176
177
178
179
180
181
182
183
184
185
186
187
188
189
190
191
192
193
194
195
196
197
198
199
200
201
202
203
204
205
206
207
208
209
210
211
212
213
214
215
216
217
218
219
220
221
222
223
Module mdlExcel
    Dim SelectedSheet As String
 
    Public Sub OpenSheet(ByVal Grid As DataGridView)
        Dim OpenDialog As New OpenFileDialog, FileName As String = ""
 
        With OpenDialog
            .Title = "Открыть документ Excel"
            .Filter = "Документы Excel|*.xls;*.xlsx"
 
            If .ShowDialog = Windows.Forms.DialogResult.OK Then
                FileName = .FileName : Application.DoEvents()
            Else
                Return
            End If
        End With
 
 
        ' Подключение к Excel. 
        Dim connection As OleDb.OleDbConnection, connectionString As String
 
        Try
            'Для Excel 12.0 
            connectionString = "Provider=Microsoft.ACE.OLEDB.12.0; Data Source=" + FileName + "; Extended Properties=""Excel 12.0 Xml;HDR=YES"";"
            connection = New OleDb.OleDbConnection(connectionString)
            connection.Open()
 
        Catch ex12 As Exception
            Try
                'Для более ранних версий 
                connectionString = "Provider=Microsoft.Jet.OLEDB.4.0;Data Source=" + FileName + "; Extended Properties=""Excel 8.0;HDR=Yes;IMEX=1"";"
                connection = New OleDb.OleDbConnection(connectionString)
                connection.Open()
 
            Catch ex11 As Exception
                MsgBox("Неизвестная версия Excel или файл имеет неизвестный формат!", MsgBoxStyle.Exclamation)
                Return
            End Try
        End Try
 
        'Отобразить форму выбора листов
        ShowSelectForm(GetExcelSheetNames(connection), FileName)
        If SelectedSheet Is Nothing Then Return
 
        'Выборка данных 
        Dim command As OleDb.OleDbCommand = connection.CreateCommand()
        command.CommandText = "Select * From [" & SelectedSheet & "$]"
 
        Dim Adapter As New OleDb.OleDbDataAdapter(command), Table As New DataTable
 
        Adapter.Fill(Table) : connection.Close()
 
        With Grid
            .Visible = False : .Parent.Cursor = Cursors.WaitCursor
            .DataSource = Table : SetGridSettings(Grid)
            .Visible = True : .Parent.Cursor = Cursors.Default
        End With
    End Sub
 
    Private Function GetExcelSheetNames(ByVal connection As OleDb.OleDbConnection) As String()
        Dim Table As DataTable
 
        Try
            Table = connection.GetOleDbSchemaTable(OleDb.OleDbSchemaGuid.Tables, New Object() {Nothing, Nothing, Nothing, "TABLE"})
            If Table Is Nothing Then Return Nothing
 
            With Table
                Dim i As Integer = 0, SheetsArray() As String = Nothing, s As String
 
                For n As Integer = 0 To .Rows.Count - 1
                    s = .Rows(n).Item("TABLE_NAME").ToString.Trim(New Char() {"'"})
 
                    If Strings.Right(s, 1) = "$" Then
                        ReDim Preserve SheetsArray(i)
                        SheetsArray(i) = s.Trim(New Char() {"$"})
                        i += 1
                    End If
                Next
 
                Table.Dispose() : Return SheetsArray
            End With
 
        Catch ex As Exception
            MsgBox(ex.Message, MsgBoxStyle.Exclamation)
            Return Nothing
        End Try
    End Function
 
    Private Sub ShowSelectForm(ByVal Sheets() As String, ByVal FileName As String)
        If Sheets Is Nothing Then SelectedSheet = Nothing : Return
 
        Dim F As New Form, T As New TreeView, I As New ImageList, P As New Panel, B1, B2 As New Button
 
        With I
            .ColorDepth = ColorDepth.Depth32Bit
            .ImageSize = New Size(16, 16)
 
            .Images.Add("Книга", My.Resources.Images16x16.Excel)  'рисунок 16x16 px для названия файла excel
            .Images.Add("Документ", My.Resources.Images16x16.Документ)  'рисунок 16x16 px для названия листа excel
        End With
 
        With T
            .Name = "T"
            .ImageList = I : .Font = New Font("Arial", 10, FontStyle.Bold)
 
            .ShowPlusMinus = False : .ShowLines = False : .ShowRootLines = False
 
            Dim N As TreeNode = .Nodes.Add("Книга", FileIO.FileSystem.GetName(FileName), 0, 0)
            Dim nn As TreeNode
 
            For ni As Int16 = 0 To Sheets.Length - 1
                nn = N.Nodes.Add("Лист" & ni.ToString, Sheets(ni), 1, 1)
                nn.NodeFont = New Font(.Font, FontStyle.Regular)
            Next
 
            .ExpandAll()
        End With
 
        With F
            .Text = " Документ Excel"
            .ShowInTaskbar = False
            .StartPosition = FormStartPosition.CenterParent
            .FormBorderStyle = FormBorderStyle.FixedToolWindow
 
            .Height = .Height * 1.3
 
            .AcceptButton = B1 : .CancelButton = B2
 
            With P
                .Name = "P" : .Parent = F
                .Dock = DockStyle.Bottom
            End With
 
            With T
                .Parent = F
                .Dock = DockStyle.Fill
                .BringToFront()
 
                AddHandler .NodeMouseDoubleClick, AddressOf T_NodeDoubleClick
            End With
 
            With B2
                .Name = "B2"
                .Text = "Отмена"
                .Parent = P : .Top = 5
                .Left = P.Width - .Width - 5
 
                AddHandler .Click, AddressOf B2_Click
            End With
 
            With B1
                .Name = "B1"
                .Text = "Открыть"
                .Parent = P : .Top = 5
                .Left = B2.Left - .Width - 5
                .Font = New Font(.Font, FontStyle.Bold)
 
                AddHandler .Click, AddressOf B1_Click
            End With
 
            P.Height = B1.Height + 10
 
            AddHandler .Load, AddressOf F_Load
 
            .ShowDialog()
        End With
    End Sub
 
    Private Sub SetGridSettings(ByVal Grid As DataGridView)
        With Grid
            .ReadOnly = False : .MultiSelect = False
            .SelectionMode = DataGridViewSelectionMode.CellSelect
            .RowTemplate.Resizable = DataGridViewTriState.False
            .RowHeadersWidthSizeMode = DataGridViewRowHeadersWidthSizeMode.DisableResizing
 
            For n As Integer = 0 To .ColumnCount - 1
                With .Columns(n)
                    .Resizable = DataGridViewTriState.False
                    .AutoSizeMode = DataGridViewAutoSizeColumnMode.AllCells
                    .SortMode = DataGridViewColumnSortMode.NotSortable
                End With
            Next
        End With
    End Sub
 
    Private Sub F_Load(ByVal sender As Form, ByVal e As EventArgs)
        Dim T As TreeView = sender.Controls("T")
 
        With T
            .Select()
            If .Nodes(0).Nodes.Count > 0 Then .SelectedNode = .Nodes(0).Nodes(0)
        End With
 
        SelectedSheet = Nothing
    End Sub
 
    Private Sub B1_Click(ByVal sender As Button, ByVal e As EventArgs)
        Dim F As Form = sender.Parent.Parent, T As TreeView = F.Controls("T")
 
        Application.DoEvents()
 
        If Strings.Left(T.SelectedNode.Name, 4) = "Лист" Then
            F.DialogResult = DialogResult.OK
            SelectedSheet = T.SelectedNode.Text : F.Close()
        Else
            MsgBox("Необходимо выбрать лист.", MsgBoxStyle.Exclamation)
            T.Select()
        End If
    End Sub
 
    Private Sub B2_Click(ByVal sender As Button, ByVal e As EventArgs)
        Dim F As Form = sender.Parent.Parent
 
        F.DialogResult = DialogResult.Cancel
        SelectedSheet = Nothing : F.Close()
    End Sub
 
    Private Sub T_NodeDoubleClick(ByVal sender As TreeView, ByVal e As TreeNodeMouseClickEventArgs)
        If e.Node.Name = "Книга" Then sender.ExpandAll()
 
        B1_Click(sender.Parent.Controls("P").Controls("B1"), Nothing)
    End Sub
End Module

…при выполнении OpenSheet(DataGridView1) из любого места программы, сначала появится стандартный диалог открытия файла Excel, а затем после выбора такого файла появится окошко со списком листов выбранного файла Excel. После выбора нужного листа, он откроется в DataGridView1, который мы указали в качестве аргумента OpenSheet. Открытие нужного файла .xls или .xlsx произойдет даже, если Office вообще не установлен в системе (проверял на чистой Windows XP SP2 с .NET Framework, конечно). Ну с поиском по таблице, уверен, разберешься.

Добавлено через 13 секунд
Spread, вот как я реализовал открытие нужного листа Excel. Рекомендую весь этот код записать в отдельный модуль, чтобы не путать с другими процедурами. У меня этот модуль называется mdlExcel:

VB.NET
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
39
40
41
42
43
44
45
46
47
48
49
50
51
52
53
54
55
56
57
58
59
60
61
62
63
64
65
66
67
68
69
70
71
72
73
74
75
76
77
78
79
80
81
82
83
84
85
86
87
88
89
90
91
92
93
94
95
96
97
98
99
100
101
102
103
104
105
106
107
108
109
110
111
112
113
114
115
116
117
118
119
120
121
122
123
124
125
126
127
128
129
130
131
132
133
134
135
136
137
138
139
140
141
142
143
144
145
146
147
148
149
150
151
152
153
154
155
156
157
158
159
160
161
162
163
164
165
166
167
168
169
170
171
172
173
174
175
176
177
178
179
180
181
182
183
184
185
186
187
188
189
190
191
192
193
194
195
196
197
198
199
200
201
202
203
204
205
206
207
208
209
210
211
212
213
214
215
216
217
218
219
220
221
222
223
Module mdlExcel
    Dim SelectedSheet As String
 
    Public Sub OpenSheet(ByVal Grid As DataGridView)
        Dim OpenDialog As New OpenFileDialog, FileName As String = ""
 
        With OpenDialog
            .Title = "Открыть документ Excel"
            .Filter = "Документы Excel|*.xls;*.xlsx"
 
            If .ShowDialog = Windows.Forms.DialogResult.OK Then
                FileName = .FileName : Application.DoEvents()
            Else
                Return
            End If
        End With
 
 
        ' Подключение к Excel. 
        Dim connection As OleDb.OleDbConnection, connectionString As String
 
        Try
            'Для Excel 12.0 
            connectionString = "Provider=Microsoft.ACE.OLEDB.12.0; Data Source=" + FileName + "; Extended Properties=""Excel 12.0 Xml;HDR=YES"";"
            connection = New OleDb.OleDbConnection(connectionString)
            connection.Open()
 
        Catch ex12 As Exception
            Try
                'Для более ранних версий 
                connectionString = "Provider=Microsoft.Jet.OLEDB.4.0;Data Source=" + FileName + "; Extended Properties=""Excel 8.0;HDR=Yes;IMEX=1"";"
                connection = New OleDb.OleDbConnection(connectionString)
                connection.Open()
 
            Catch ex11 As Exception
                MsgBox("Неизвестная версия Excel или файл имеет неизвестный формат!", MsgBoxStyle.Exclamation)
                Return
            End Try
        End Try
 
        'Отобразить форму выбора листов
        ShowSelectForm(GetExcelSheetNames(connection), FileName)
        If SelectedSheet Is Nothing Then Return
 
        'Выборка данных 
        Dim command As OleDb.OleDbCommand = connection.CreateCommand()
        command.CommandText = "Select * From [" & SelectedSheet & "$]"
 
        Dim Adapter As New OleDb.OleDbDataAdapter(command), Table As New DataTable
 
        Adapter.Fill(Table) : connection.Close()
 
        With Grid
            .Visible = False : .Parent.Cursor = Cursors.WaitCursor
            .DataSource = Table : SetGridSettings(Grid)
            .Visible = True : .Parent.Cursor = Cursors.Default
        End With
    End Sub
 
    Private Function GetExcelSheetNames(ByVal connection As OleDb.OleDbConnection) As String()
        Dim Table As DataTable
 
        Try
            Table = connection.GetOleDbSchemaTable(OleDb.OleDbSchemaGuid.Tables, New Object() {Nothing, Nothing, Nothing, "TABLE"})
            If Table Is Nothing Then Return Nothing
 
            With Table
                Dim i As Integer = 0, SheetsArray() As String = Nothing, s As String
 
                For n As Integer = 0 To .Rows.Count - 1
                    s = .Rows(n).Item("TABLE_NAME").ToString.Trim(New Char() {"'"})
 
                    If Strings.Right(s, 1) = "$" Then
                        ReDim Preserve SheetsArray(i)
                        SheetsArray(i) = s.Trim(New Char() {"$"})
                        i += 1
                    End If
                Next
 
                Table.Dispose() : Return SheetsArray
            End With
 
        Catch ex As Exception
            MsgBox(ex.Message, MsgBoxStyle.Exclamation)
            Return Nothing
        End Try
    End Function
 
    Private Sub ShowSelectForm(ByVal Sheets() As String, ByVal FileName As String)
        If Sheets Is Nothing Then SelectedSheet = Nothing : Return
 
        Dim F As New Form, T As New TreeView, I As New ImageList, P As New Panel, B1, B2 As New Button
 
        With I
            .ColorDepth = ColorDepth.Depth32Bit
            .ImageSize = New Size(16, 16)
 
            .Images.Add("Книга", My.Resources.Images16x16.Excel)  'рисунок 16x16 px для названия файла excel
            .Images.Add("Документ", My.Resources.Images16x16.Документ)  'рисунок 16x16 px для названия листа excel
        End With
 
        With T
            .Name = "T"
            .ImageList = I : .Font = New Font("Arial", 10, FontStyle.Bold)
 
            .ShowPlusMinus = False : .ShowLines = False : .ShowRootLines = False
 
            Dim N As TreeNode = .Nodes.Add("Книга", FileIO.FileSystem.GetName(FileName), 0, 0)
            Dim nn As TreeNode
 
            For ni As Int16 = 0 To Sheets.Length - 1
                nn = N.Nodes.Add("Лист" & ni.ToString, Sheets(ni), 1, 1)
                nn.NodeFont = New Font(.Font, FontStyle.Regular)
            Next
 
            .ExpandAll()
        End With
 
        With F
            .Text = " Документ Excel"
            .ShowInTaskbar = False
            .StartPosition = FormStartPosition.CenterParent
            .FormBorderStyle = FormBorderStyle.FixedToolWindow
 
            .Height = .Height * 1.3
 
            .AcceptButton = B1 : .CancelButton = B2
 
            With P
                .Name = "P" : .Parent = F
                .Dock = DockStyle.Bottom
            End With
 
            With T
                .Parent = F
                .Dock = DockStyle.Fill
                .BringToFront()
 
                AddHandler .NodeMouseDoubleClick, AddressOf T_NodeDoubleClick
            End With
 
            With B2
                .Name = "B2"
                .Text = "Отмена"
                .Parent = P : .Top = 5
                .Left = P.Width - .Width - 5
 
                AddHandler .Click, AddressOf B2_Click
            End With
 
            With B1
                .Name = "B1"
                .Text = "Открыть"
                .Parent = P : .Top = 5
                .Left = B2.Left - .Width - 5
                .Font = New Font(.Font, FontStyle.Bold)
 
                AddHandler .Click, AddressOf B1_Click
            End With
 
            P.Height = B1.Height + 10
 
            AddHandler .Load, AddressOf F_Load
 
            .ShowDialog()
        End With
    End Sub
 
    Private Sub SetGridSettings(ByVal Grid As DataGridView)
        With Grid
            .ReadOnly = False : .MultiSelect = False
            .SelectionMode = DataGridViewSelectionMode.CellSelect
            .RowTemplate.Resizable = DataGridViewTriState.False
            .RowHeadersWidthSizeMode = DataGridViewRowHeadersWidthSizeMode.DisableResizing
 
            For n As Integer = 0 To .ColumnCount - 1
                With .Columns(n)
                    .Resizable = DataGridViewTriState.False
                    .AutoSizeMode = DataGridViewAutoSizeColumnMode.AllCells
                    .SortMode = DataGridViewColumnSortMode.NotSortable
                End With
            Next
        End With
    End Sub
 
    Private Sub F_Load(ByVal sender As Form, ByVal e As EventArgs)
        Dim T As TreeView = sender.Controls("T")
 
        With T
            .Select()
            If .Nodes(0).Nodes.Count > 0 Then .SelectedNode = .Nodes(0).Nodes(0)
        End With
 
        SelectedSheet = Nothing
    End Sub
 
    Private Sub B1_Click(ByVal sender As Button, ByVal e As EventArgs)
        Dim F As Form = sender.Parent.Parent, T As TreeView = F.Controls("T")
 
        Application.DoEvents()
 
        If Strings.Left(T.SelectedNode.Name, 4) = "Лист" Then
            F.DialogResult = DialogResult.OK
            SelectedSheet = T.SelectedNode.Text : F.Close()
        Else
            MsgBox("Необходимо выбрать лист.", MsgBoxStyle.Exclamation)
            T.Select()
        End If
    End Sub
 
    Private Sub B2_Click(ByVal sender As Button, ByVal e As EventArgs)
        Dim F As Form = sender.Parent.Parent
 
        F.DialogResult = DialogResult.Cancel
        SelectedSheet = Nothing : F.Close()
    End Sub
 
    Private Sub T_NodeDoubleClick(ByVal sender As TreeView, ByVal e As TreeNodeMouseClickEventArgs)
        If e.Node.Name = "Книга" Then sender.ExpandAll()
 
        B1_Click(sender.Parent.Controls("P").Controls("B1"), Nothing)
    End Sub
End Module

…при выполнении OpenSheet(DataGridView1) из любого места программы, сначала появится стандартный диалог открытия файла Excel, а затем после выбора такого файла появится окошко со списком листов выбранного файла Excel. После выбора нужного листа, он откроется в DataGridView1, который мы указали в качестве аргумента OpenSheet. Открытие нужного файла .xls или .xlsx произойдет даже, если Office вообще не установлен в системе (проверял на чистой Windows XP SP2 с .NET Framework, конечно). Ну с поиском по таблице, уверен, разберешься.



0



Обращение к рабочим листам Excel из кода VBA. Переименование листов, скрытие и отображение с помощью кода VBA Excel. Свойства Worksheets.Name и Worksheets.Visible.

Обращение к рабочим листам

Рабочий лист (Worksheet) принадлежит коллекции всех рабочих листов (Worksheets) книги Excel. Обратиться к листу можно как к элементу коллекции и, напрямую, по его уникальному имени.

Откройте редактор VBA и обратите внимание на вашу книгу в проводнике, где уникальные имена листов указаны без скобок, а в скобках — имена листов, отображаемые на ярлычках в открытой книге Excel. Уникальные имена листов отсортированы по алфавиту и их расположение по порядку не будет соответствовать их индексам (номерам), если листы перемещались по отношению друг к другу. Индексы листов смотрите по порядку расположения ярлычков в открытой книге. Переместили листы — изменились их индексы.

Обращение к рабочему листу в коде VBA Excel:

‘По уникальному имени

УникИмяЛиста

‘По индексу

Worksheets(N)

‘По имени листа на ярлычке

Worksheets(«Имя листа»)

  • УникИмяЛиста — уникальное имя листа, отображаемое в проводнике редактора VBA без скобок, с помощью кода VBA изменить его невозможно.
  • N — индекс листа от 1 до количества всех листов в книге, соответствует порядковому номеру ярлычка этого листа в открытой книге Excel.
  • Имя листа — имя листа, отображаемое в проводнике редактора VBA в скобках, с помощью кода VBA изменить его можно.

Количество листов в рабочей книге Excel определяется так:

‘В активной книге

Worksheets.Count

‘В любой открытой книге,

‘например, в «Книга1.xlsm»

Workbooks(«Книга1.xlsm»).Worksheets.Count

Переименование листов

В VBA Excel есть некоторые особенности в наименовании листов, так как у рабочего листа есть два свойства, связанных с именем: (Name) и Name. Откройте окно «Properties» в редакторе VBA, нажав клавишу «F4», и выделите любой лист в проводнике. Вы увидите, что в окне «Properties» свойству (Name) в скобках соответствует в проводнике уникальное имя листа без скобок, а свойству Name без скобок соответствует изменяемое имя листа в скобках. Оба имени в окне «Properties» можно редактировать.

С помощью кода VBA Excel можно редактировать только имя листа Name, отображаемое на ярлычке листа и в проводнике без скобок. Для этого используется свойство рабочего листа Worksheets.Name со следующим синтаксисом:

expression.Name

где expression — переменная, представляющая собой объект Worksheet. Смена имени осуществляется путем присвоения нового значения свойству Worksheets.Name.

Допустим, у нас есть лист с уникальным именем (Name) — Лист1, индексом — 1 и именем Name — МойЛист, которое необходимо заменить на имя — Реестр.

Лист1.Name = «Реестр»

Worksheets(1).Name = «Реестр»

Worksheets(«МойЛист»).Name = «Реестр»

Скрытие и отображение листов

Для скрытия и отображения рабочих листов в VBA Excel используется свойство Worksheet.Visible со следующим синтаксисом:

expression.Visible

где expression — переменная, представляющая собой объект Worksheet. Свойству Worksheet.Visible могут присваиваться следующие значения:

  • False — лист становится невидимым, но он будет присутствовать в списке скрытых листов, и пользователь сможет его отобразить с помощью инструментов рабочей книги Excel.
  • xlVeryHidden — лист становится супер невидимым и его не будет в списке скрытых листов, пользователь не сможет его отобразить. Актуально для Excel 2003-2016.
  • True — лист становится видимым.

Аналоги присваиваемых значений:

  • False = xlHidden = xlSheetHidden = 1
  • xlVeryHidden = xlSheetVeryHidden = 2
  • True = xlSheetVisible = -1 (константа xlVisible вызывает ошибку)

Примеры:

Лист1.Visible = xlSheetHidden

Лист2.Visible = 1

Worksheets(Worksheets.Count).Visible = xlVeryHidden

Worksheets(«МойЛист»).Visible = True

Как создать, скопировать, переместить или удалить рабочий лист с помощью кода VBA Excel, смотрите в этой статье.

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

Кто это может сделать? Человек, имеющий статус главного пользователя. Одним словом, что нужно сделать для того, чтобы совместная работа с документом стала не просто возможной, но и эффективной?

Содержание

  1. Особенности работы с общим файлом Excel
  2. Как сделать совместный доступ к файлу Excel
  3. Настройка параметров
  4. Открытие общего файла
  5. Как открыть книгу Excel с совместным доступом
  6. Как посмотреть действия участников
  7. Как удалить пользователя из файла Excel
  8. Как ограничить использование общей книги

Особенности работы с общим файлом Excel

Работа с общим файлом в Excel имеет свои особенности. Так, некоторые действия недоступны для пользователей:

  1. Создание таблиц.
  2. Управление сценариями, включая их просматривание.
  3. Удаление листов.
  4. Пользователи не имеют возможности соединять несколько ячеек или наоборот, разбивать ранее объединенные. 
  5. Любые операции с XML данными.

Как можно обойти эти ограничения? Необходимо просто снять общий доступ, а потом его вернуть, когда появится такая необходимость.

Вот еще таблица с некоторыми задачами, которые возможно или невозможно выполнить, если вы работаете вместе с несколькими людьми над одной таблицей.

Как сделать совместный доступ к файлу Excel

Сначала нужно понять, какой файл необходимо сделать доступным для редактирования сразу несколькими людьми. Это может быть как новый файл, так и уже существующий. 

Настройка параметров

Все необходимые для создания совместного доступа к файлу в Excel действия находятся в разделе «Доступ к книге», который можно отыскать, перейдя на вкладку «Рецензирование».

Как открыть совместный доступ к Excel-файлу одновременно

1

Всплывет окно, в котором есть две вкладки. Нас интересует первая, которая открывается автоматически. Нам нужно поставить флажок возле пункта, отмеченного на скриншоте красным прямоугольником. С его помощью мы даем возможность нескольким пользователям управлять документом.

Как открыть совместный доступ к Excel-файлу одновременно

2

После того, как мы открыли доступ для редактирования, нам нужно его настроить. Для этого открываем вторую вкладку.

Как открыть совместный доступ к Excel-файлу одновременно

3

После внесения параметров подтверждаем свои действия. Для этого делаем левый клик по клавише «ОК». Совместный доступ может быть открытым для любой книги как новой, так и уже существующей. В первом случае нужно будет придумать имя для нее. 

После этого нужно сохранить файл на компьютере.

Важно! Формат должен быть таким, чтобы файл мог открыть каждый пользователь со своей версии электронных таблиц.

Открытие общего файла

Сохранить файл нужно на сетевом ресурсе или папке, к которой имеют доступ участники, которым нужно использовать этот файл. После того, как будет выбрана директория, нам осталось только нажать кнопку «Сохранить».

При этом недопустимо использование веб-сервера, чтобы сохранить общий файл. 

После выполнения всех описанных выше операций нужно проверить, получается ли подключать других людей. Для этого необходимо открыть вкладку «Данные» и там непосредственно под ней найти пункт «Подключения». Если на него нажать, появляется возможность изменить ссылки или связи. Если соответствующей кнопки нет, то нет связанных файлов.

Как открыть совместный доступ к Excel-файлу одновременно

4

Далее открывается вкладка «Состояние», с помощью которой возможно проверить связи. О том, что все хорошо, можно узнать по наличию кнопки «ОК».

Как открыть книгу Excel с совместным доступом

Excel позволяет также открыть книгу с совместным доступом. Чтобы это сделать, нужно нажать на кнопку Office. Когда появится всплывающая панель, нам необходимо выбрать пункт «Открыть» и выбрать ту книгу, которая будет использоваться для общего доступа. После этого опять нажимаем на кнопку Office, и открываем окно «Параметры Excel», которую можно найти внизу.

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

Как открыть совместный доступ к Excel-файлу одновременно

5

Далее переходим в пункт «Личная настройка», где нужно указать данные, позволяющие отфильтровать пользователей – имя пользователя, никнейм.

После выполнения этих операций появляется возможность отредактировать информацию в документе или же добавлять какие-то данные. Не забудьте сохранить изменения после их внесения.

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

  1. Если в одной и той же ячейке вносят данные сразу несколько участников. Или любую другую часть.
  2. Формирование журнала изменений, из-за которого книга увеличивается в размере. Это приводит к неполадкам.
  3. Пользователь был удален из совместного доступа. В таком случае сохранить изменения не получится только на его компьютере. 
  4. Сетевой ресурс перегружен.

Чтобы исправить проблему, нужно предпринять следующие действия:

  1. Удалить журнал изменений или стереть с него лишнюю информацию. 
  2. Убрать лишнюю информацию внутри самого документа.
  3. Перезапустить совместный доступ. 
  4. Открыть документ Excel в другом офисном редакторе, а потом снова сохранить его в формате xls.

Правда, в последних версиях эта ошибка случается не так часто, как в старых.

Как посмотреть действия участников

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

  1. Перейти на вкладку «Рецензирование», и там найти пункт «Исправления». В меню осуществляем выбор пункта «Выделить исправления».
    Как открыть совместный доступ к Excel-файлу одновременно
    6
  2. Далее появится окно, в котором можно узнать, какие изменения были внесены пользователями. Этот список формируется автоматически. В том, что это действительно так, можно убедиться, посмотрев, стоит ли галочка возле соответствующего пункта этого диалогового окна.
    Как открыть совместный доступ к Excel-файлу одновременно
    7

     При этом в перечне в левом верхнем углу будут отображаться только те изменения, которые были осуществлены с момента последнего сохранения. Так сделано для удобства, всегда можно посмотреть более ранние правки в журнале.

  3. Каждому участнику приписывается определенный цвет, по которому можно понять, кто внес изменения. Метки находятся в левом верхнем углу. Также можно настроить отслеживание изменений по времени, конкретному пользователю или в определенном диапазоне, а также отключить их выведение на экран.
    Как открыть совместный доступ к Excel-файлу одновременно
    8
  4. При наведении мыши на ячейку, на которой стоит такая отметка, появляется небольшой блок, из которого можно понять, кем были внесены изменения.
    Как открыть совместный доступ к Excel-файлу одновременно
    9
  5. Для внесения коррективов в правила отображения исправлений нужно вернуться в окно с настройками, после чего найти поле «По времени», где можно выставить точку отсчета для просмотра изменений. То есть, времени, с которого исправления будут отображаться. Можно установить период с момента последнего сохранения, настроить отображение всех исправлений за все время, исключительно не просмотренных или указать дату, с которой они будут отображаться.
    Как открыть совместный доступ к Excel-файлу одновременно
    10
  6. Также можно регулировать отображение исправлений, внесенных лишь конкретным участником.
    Как открыть совместный доступ к Excel-файлу одновременно
    11
  7. С помощью соответствующего поля можно настроить диапазон листа, в котором будет вестись журнал действий команды.

Также можно вносить и другие изменения, выставив соответствующие галочки в нужных местах.

Как открыть совместный доступ к Excel-файлу одновременно

12

Список изменений не лежит мертвым грузом. Главный пользователь может рецензировать правки других участников, подтверждая или отклоняя их. Как это сделать?

  1. Перейти на вкладку «Рецензирование». Там находится меню «Исправления», где пользователь может управлять исправлениями. Во всплывающей панели нужно выбрать опцию «Принять/отклонить исправления», после чего будет показано окно, в котором отображаются исправления.
    Как открыть совместный доступ к Excel-файлу одновременно
    13
    Как открыть совместный доступ к Excel-файлу одновременно
    14
  2. Отбор правок может осуществляться по тем же критериям, что были описаны ранее: по времени, конкретному пользователю или в определенном диапазоне. После установки необходимых параметров нажимается клавиша ОК.
  3. Далее отобразятся все коррективы, которые соответствуют условиям, выставленным на предыдущем этапе. Можно согласиться с конкретной правкой или отклонить ее, нажав на соответствующую кнопку в нижней части окна. Также возможно пакетное принятие коррективов или их отклонение.
    Как открыть совместный доступ к Excel-файлу одновременно
    15

Теперь нужные коррективы были оставлены, а лишние – удалены.

Как удалить пользователя из файла Excel

Время от времени появляется необходимость убирать пользователей из совместного редактирования. Причин может быть огромное количество: им было дано другое задание, участник начал вносить правки с другого компьютера и так далее. Реализовать эту задачу в Excel вовсе несложно.

Сначала открываем вкладку «Рецензирование». Там находится группа «Изменения», где есть опция «Доступ к книге».

Как открыть совместный доступ к Excel-файлу одновременно

16

После этого на экране появится то же самое окно, которое мы видели ранее. С перечнем всех людей, которые могут вносить изменения в таблицу, можно ознакомиться на вкладке «Правка». Чтобы убрать пользователя, который нам не нужен в данный момент, нужно найти его в этом списке, выделить путем нажатия левой кнопки мыши и нажать на кнопку «Удалить», которая находится ниже.

Как открыть совместный доступ к Excel-файлу одновременно

17

Далее Эксель предупредит пользователя, что коррективы, внесенные этим участником, могут не быть сохранены, если в данный момент он вносит в книгу изменения. Если вы согласны, то нажимайте «ОК», и пользователя теперь в совместном использовании не будет.

Как открыть совместный доступ к Excel-файлу одновременно

18

Как ограничить использование общей книги

Самый лучший способ ограничить использование общей книги – это удалить пользователя. Если это не подходит, можно выставлять право на просмотр или редактирование книги конкретным участником.

При этом важно помнить, что некоторые ограничения встроены в совместное использование по умолчанию. Они были описаны выше. Давайте их вспомним, поскольку повторение – мать учения.

  1. Запрещено создание умных таблиц, которые автоматически обновляют данные и имеют множество других возможностей.
  2. Нельзя управлять сценариями. 
  3. Есть встроенное ограничение на удаление листов, соединение или разъединение ячеек.
  4. Выполнение всех операций с XML-данными. Простыми словами, есть ограничения на структурирование большого количества данных, в том числе, и редактирования их массивов. XML – это один из самых непонятных типов файлов для начинающих пользователей, но на самом деле, это все просто. С помощью файлов этого типа можно передавать данные, внося пакетные изменения в документ. 

Проще говоря, совместное редактирование дает возможность осуществлять стандартные операции с документом, но более профессиональные опции доступны лишь для одного человека. Это объясняется тем, что те же макросы или пакетные изменения с помощью XML несколько сложнее откатить. 

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

Чтобы сделать это, необходимо выполнить следующие действия.

  1. Открыть вкладку «Рецензирование», перейти на пункт «Исправления» и во всплывающем меню выбрать пункт «Выделить исправления».
  2. После этого появляется окошко, в котором нужно снять отметки возле пунктов «Пользователем» и «В диапазоне».
  3. После этого появляется журнал изменений, который необходим для бекапа данных.

После этого можно отключать совместный доступ. Для этого на той же вкладке на ленте нужно выбрать пункт «Доступ к книге» и снять отметку «Разрешить изменять файл нескольким пользователям».

Все, теперь совместный доступ отключен.

Таким образом, в Excel настроить совместное редактирование довольно легко. Конечно, есть некоторые ограничения, которые не дают использовать документ в полной мере. Но решаются они довольно просто, достаточно на время отключить совместный доступ, а потом его включить, когда нужные правки были внесены.

Оцените качество статьи. Нам важно ваше мнение:

Хитрости »

12 Июнь 2012              187290 просмотров


Каждому пользователю свой лист/диапазон

Очень часто на своих тренингах и в форумах я слышу вопрос: как защитить доступ к книге так, чтобы для каждого пользователя был доступен только свой лист/листы? А другие ячейки или листы были недоступны для изменения или просмотра? Или скрыть отдельные столбцы с глаз пользователя? Часть подобного функционала предоставляется стандартными средствами Excel, а другая(например, доступность просмотра только конкретных листов) достигается только через макросы. В этой статье хочу привести несколько примеров реализации подобных разграничений прав между пользователями, их плюсы и минусы.

  • Разграничение доступа к ячейкам стандартными средствами

Разграничение прав доступа при помощи VBA

  • Доступ пользователям только к определенным листам
  • Доступ пользователю к определенным листам и возможность изменять только отдельные ячейки
  • Доступ к определенным листам и скрытие указанных строк/столбцов
  • Практический пример с использованием администратора

Разграничение доступа к ячейкам стандартными средствами

Для разграничения доступа к ячейкам на листе можно воспользоваться инструментом Разрешить изменение диапазонов(Allow Users to Edit Ranges), расположенном на вкладке Рецензирование(Review), группа Изменения(Changes):
Разрешить изменение диапазонов
Это стандартный инструмент, для использования которого нет необходимости подключать что-то дополнительно и он относительно прост в использовании.
Данный инструмент позволяет назначить каждому отдельному диапазону ячеек свои пароли, диапазоны могут располагаться на разных листах книги или на одном листе:
Пример таблицы
Например, сотрудники коммерческого отдела в общем файле бюджета(картинка выше) должны иметь возможность заполнять только ячейки строк со статьями выручки (строки 8-11, 13-14), а производственный отдел строки 18-22, в которых расположены статьи по расходам производственного отдела. При этом сотрудники коммерческого отдела не должны иметь возможность изменять данные статей другого отдела – каждый только данные своих статей.
Для начала необходимо для сотрудников каждого отдела создать отдельные диапазоны, к которым они будут иметь доступ. Для этого переходим на вкладку Рецензирование(Review) -группа Изменения(Changes)Разрешить изменение диапазонов(Allow Users to Edit Ranges). Появится диалоговое окно создания/изменения диапазонов:
Создание диапазонов
Нажимаем Создать(New). Появится другое окно, в котором необходимо указать имя диапазона

(Title)

(

коммерческий

), доступные для изменения ячейки

(Refers to cells)

(

C8:N11;C13:N14

) и вписать пароль

(Range password)

(

1111

):
Новый диапазон
После нажатия Ок появится окно подтверждения пароля. Необходимо указать тот же пароль, что был указан ранее для данного диапазона.

Примечание: если нажать на кнопку Разрешения(Permissions), то можно установить доступ без пароля для конкретных групп пользователей, если группы настроены политикой доменной сети.

Точно так же создаем второй диапазон – «производственный», но для него указываем другой пароль(например –

2222

). После этого у нас в главном окне управления диапазонами будет два диапазона:
Просмотр диапазонов
Здесь можно еще раз проверить все ли правильно указано, при необходимости изменить (так же изменить диапазоны можно в любое время, вызвав данное окно с вкладки Рецензирование(Review)Разрешить изменение диапазонов). После этого нажимаем Применить(Apply).
Теперь, чтобы такая защита сработала необходимо непосредственно защитить лист. Это можно сделать либо сразу из этого же окна, нажав кнопку Защитить лист, либо закрыв окно перейти на вкладку Рецензирование(Review) и в группе Изменения(Changes) выбрать Защитить лист(Protect sheet):
Параметры защиты листа
В появившемся окне проставляем галочки для тех действий, которые мы хотим разрешить делать пользователю на защищенном листе без ввода пароля(например, на картинке выше помимо стандартного выделения ячеек разрешена вставка столбцов. Подробнее про защиту листов и ячеек можно прочитать в статье — Защита листов и ячеек в MS Excel). Указываем пароль (например

3333

), подтверждаем пароль в появившемся окне и нажимаем Ок. Лист защищен.

Что важно: не следует указывать здесь пароль, который совпадает хотя бы с одним из паролей для отдельных диапазонов. Думаю, понятно почему: чтобы защиту не могли снять те, кому этого не положено делать.

Теперь остается сообщить сотрудникам отделов их пароли: производственный — 2222, коммерческий – 1111.
При первой попытке изменить данные в ячейках C8:N11;C13:N14- будет запрошен пароль на изменение ячеек созданного диапазона «коммерческий» (1111):
Доступ к диапазону
Если пользователю известен пароль для диапазона – его необходимо будет ввести лишь один раз. В дальнейшем для ввода данных в ячейки этого диапазона вводить пароль не придется до тех пор, пока файл не будет закрыт. После повторного открытия файла пароль необходимо будет указать заново.
Однако, если сотрудник другого отдела попытается изменить ячейки производственного отдела и пароль ему неизвестен – изменить данные этих ячеек не получится.
Также ни сотрудники коммерческого отдела, ни сотрудники производственного отдела не смогут изменить данные столбцов А и В(№ и наименование статьи), заголовки таблицы(строки с 1-ой по 7-ю) и строки с итоговыми формулами (12, 15 и т.д. – закрашенные зеленым). Они смогут изменять только те ячейки, которые перечислены в назначенных каждому отделу диапазонах. Внести данные в другие ячейки(не перечисленные в разрешенных диапазонах) можно будет исключительно сняв общий доступ с книги, а после этого защиту с листа –Рецензирование(Review) -группа Изменения(Changes)Снять защиту листа(Unprotect sheet). Но снять общую защиту сможет только тот, кто её создавал и кому известен «главный» пароль. Как правило это администратор или некий «смотрящий» файла и другие пользователи этот пароль не знают.
Плюс подобного метода в том, что такая защита может быть установлена для книги в общем доступе(подробнее про книги с общим доступом можно прочитать в статье — Ведение журнала сделанных в книге изменений).
Что необходимо учитывать для книг с общим доступом: создавать диапазоны для пользователей и устанавливать защиту на лист необходимо ДО назначения книге общего доступа, т.к. после того, как книге будет назначен общий доступ изменять параметры защиты листов и книги запрещено. При этом запрещены как установка защиты так и её снятие.
Минус данного метода в том, что нет дружественного интерфейса снятия защиты. Например, при попытке изменить какие-то ячейки одного из назначенных диапазонов нет никакой информации о том, что это за диапазон(коммерческий или производственный). Что в свою очередь может запутать пользователя. Так же данным методом невозможно скрыть листы, либо отдельные строки и столбцы. Можно лишь запретить изменение ячеек.


Разграничение прав доступа при помощи VBA
Самый большой минус всех методов ниже:

они

не будут работать при отключенных макросах

(Что такое макрос и где его искать?). Во всех приложенных к статье файлах это предусмотрено и если макросы будут отключены, то пользователь увидит лист, предлагающий включить макросы. Подробнее см. в статье: Как запустить файл с включенными макросами?

Плюс подобного подхода

— мы практически не ограничены в правилах: можем скрывать от отдельных пользователей любые листы, строки и столбцы, защищать отдельные ячейки и т.п. Я ниже приведу несколько вариантов реализации защиты кодами, а вам останется лишь выбрать тот, который больше подходит под задачу. Первые три больше демонстрационные, чтобы показать что можно сделать. А вот последний пример — Практический пример с использованием администратора — наиболее приближен к задачам, применяемым в работе и наиболее удобен для распространения среди пользователей.
Проект VBA во всех файлах открыт для просмотра и изменений. Однако перед распространением решений в реальности лучше его закрыть от просмотра и изменений — Как защитить проект VBA паролем.

Важно: приведенные ниже решения могут работать некорректно в книгах с общим доступом. А те решения, в которых устанавливается защита на листы вообще не будут работать, т.к. для книг с общим доступом невозможно изменять параметры защиты листов и книг.

  • Доступ пользователям только к определенным листам
    Исходная задача: дать возможность пользователю видеть и работать только на определенных листах — тех, которые мы ему выделили. При этом он даже не подозревает, что есть другие листы. Как работает. Открываем файл — автоматом отображается лишь один лист «Main», доступный всем пользователям, жмем на кнопку, появляется форма:

    В форме необходимо выбрать пользователя и указать пароль, соответствующий этому пользователю. Важно: Пароли и список доступных листов можно редактировать на очень скрытом листе «Users». Для каждого пользователя можно указать несколько листов. Указывать имена листов необходимо в точности такие же, какие они на самом деле. Это значит, что и регистр букв и каждый пробел должен быть учтен. Для разделения записей с несколькими листами используется точка-с-запятой(Лист1;Лист2;Лист3).
    На листе «Main» перечислены имена пользователей, пароли для них и доступные для просмотра листы. Данная информация указаны только для ознакомления и тестов. Менять данные для реальных задач необходимо на листе «Users».

    Важно: файл может работать нестабильно в книгах с общим доступом.

    Скачать пример

      Tips_Macro_Sheets_for_Users.xls (84,5 KiB, 10 565 скачиваний)

  • Доступ пользователю к определенным листам и возможность изменять только отдельные ячейки
    Помимо того, что можно ограничить пользователю свободу выбора листов, ему можно еще и ограничить диапазоны ячеек, которые ему разрешено изменять. Иначе говоря, человек сможет работать только на Лист1 и Лист2 и вносить изменения только в указанные для каждого из листов ячейки. Файл с примером работает так же, как и пример выше: открываем книгу — видим только один лист «Main», жмем кнопку. Появляется форма, выбираем пользователя. Появятся только разрешенные листы и на этих листах можно изменять только те ячейки, который мы разрешим в настройках. При этом диапазоны для изменения можно указать для каждого листа разные. Важно: Пароли, список доступных листов и диапазонов можно редактировать на очень скрытом листе «Users». Для этого его необходимо отобразить, как описано в статье: Как сделать лист очень скрытым.
    Чтобы разрешить изменять диапазоны на Лист1 — А1:А10 и А15:А20, а на Лист2 — В1:В10 и В15:В20, необходимо на листе «Users» указать листы: Лист1;Лист2 и диапазоны: A1:A10,A15:A20;B1:B10,B15:B20
    На листе «Main» пароли и фамилии указаны только для ознакомления и тестов. Менять данные для реальных задач необходимо на листе «Users».
    Пароль на листы указывается напрямую в коде. Для изменения пароля необходимо перейти в редактор VBA(Alt+F11), раскрыть папку Modules, выбрать там модуль sPublicVars и изменить значение 1234 в строке: Public Const sPWD As String = «1234»:
    Сменить пароль на листы

    Важно: защита диапазонов достигается за счет установки защиты листа. Поэтому файл не будет работать в книгах с общим доступом.

    Скачать пример

      Tips_Macro_Sheets_Rng_for_Users.xls (86,0 KiB, 4 882 скачиваний)

  • Доступ к определенным листам и скрытие указанных строк/столбцов
    И еще чуть-чуть испортим жизнь пользователю: каждому пользователю видны только свои листы и виден только свой диапазон на этом листе. Точнее — строка или столбец. Все так же, как и в файлах выше(Пароли, список доступных листов и диапазонов можно редактировать на очень скрытом листе «Users». Для этого его необходимо отобразить, как описано в статье: Как сделать лист очень скрытым).
    На листе «Users» доступны следующие настройки: в самом правом столбце необходимо указать скрывать столбцы(C) или строки(R) указанного диапазона.
    Например, указаны диапазоны на Лист1 — А1:А10 и А15:А20, а на Лист2 — В1:В10 и В15:В20, а в правом столбце — R;C. Значит на Лист1 будут скрыты строки 1:10, 15:20, а на Лист2 столбец В. Почему так заумно? Потому что нельзя скрыть только отдельные ячейки — можно скрыть лишь столбцы или строки полностью.
    На листе «Main» пароли и фамилии указаны только для ознакомления и тестов. Менять данные для реальных задач необходимо на листе «Users».
    Пароль на листы указывается напрямую в коде. Для изменения пароля необходимо перейти в редактор VBA(Alt+F11), раскрыть папку Modules, выбрать там модуль sPublicVars и изменить значение 1234 в строке: Public Const sPWD As String = «1234»:
    Сменить пароль на листы

    Важно: защита отображения скрытых строк и столбцов достигается за счет установки защиты листа. Поэтому файл не будет работать в книгах с общим доступом.

    Скачать пример

      Tips_Macro_Sheets_Hide_Rng_for_Users.xls (100,0 KiB, 4 537 скачиваний)

  • Практический пример с использованием администратора
    Все примеры выше имеют один маленький недостаток: при открытии файла виден один лист и надо жать на кнопку, чтобы выбрать пользователя. Это не всегда удобно. Плюс есть недостаток куда хуже: для изменения настроек всегда надо вручную отображать лист настроек, а может и другие листы. Поэтому ниже я приложил файл, форма в котором открывается сразу после открытия файла:
    Форма авторизации
    Если выбрать «Пользователь» — admin, указать «Пароль» — 1, то все листы файла будут отображены. Другим пользователям будут доступны только назначенные листы. Таким образом, пользователь, назначенный администратором сможет легко и удобно менять настройки и права доступа пользователей: добавлять и изменять пользователей, их пароли, листы для работы(они доступны на листе Users, как и в файлах выше). После внесения изменений надо просто закрыть файл — он сохраняется автоматически, скрывая все лишние листы.
    При этом если пользователя нет в списке или пароли ему неизвестны, то при нажатии кнопки Отмена или закрытии формы крестиком файл так же закроется. Таким образом к файлу будет доступ только тем пользователям, которые перечислены в листе Users, что исключает доступ к файлу посторонних лиц.
    Если макросы будут отключены, то пользователь увидит лишь один лист — с инструкцией о том, как включить макросы. Остальные листы будут недоступны.
    В реальных условиях не лишним будет закрыть доступ к проекту VBA паролем: Как защитить проект VBA паролем

    Важно: файл может работать нестабильно в книгах с общим доступом.

    Скачать пример

      Tips_Macro_UsersRulesOnStart.xls (72,0 KiB, 6 294 скачиваний)


Статья помогла? Поделись ссылкой с друзьями!

  Плейлист   Видеоуроки


Поиск по меткам



Access
apple watch
Multex
Power Query и Power BI
VBA управление кодами
Бесплатные надстройки
Дата и время
Записки
ИП
Надстройки
Печать
Политика Конфиденциальности
Почта
Программы
Работа с приложениями
Разработка приложений
Росстат
Тренинги и вебинары
Финансовые
Форматирование
Функции Excel
акции MulTEx
ссылки
статистика

На чтение 16 мин. Просмотров 14.6k.

VBA Worksheet

Malcolm Gladwell

Мечтатель начинает с чистого листа бумаги и переосмысливает мир

Эта статья содержит полное руководство по использованию Excel
VBA Worksheet в Excel VBA. Если вы хотите узнать, как что-то сделать быстро, ознакомьтесь с кратким руководством к рабочему листу VBA ниже.

Если вы новичок в VBA, то эта статья — отличное место для начала. Мне нравится разбивать вещи на простые термины и объяснять их на простом языке.

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

Содержание

  1. Краткое руководство к рабочему листу VBA
  2. Вступление
  3. Доступ к рабочему листу
  4. Использование индекса для доступа к рабочему листу
  5. Использование кодового имени рабочего листа
  6.  Активный лист
  7. Объявление объекта листа
  8. Доступ к рабочему листу в двух словах
  9. Добавить рабочий лист
  10. Удалить рабочий лист
  11. Цикл по рабочим листам
  12. Использование коллекции листов
  13. Заключение

Краткое руководство к рабочему листу VBA

В следующей таблице приведен краткий обзор различных методов
Worksheet .

Примечание. Я использую Worksheet в таблице ниже, не указывая рабочую книгу, т.е. Worksheets, а не ThisWorkbook.Worksheets, wk.Worksheets и т.д. Это сделано для того, чтобы примеры были понятными и удобными для чтения. Вы должны всегда указывать рабочую книгу при использовании Worksheets . В противном случае активная рабочая книга будет использоваться по умолчанию.

Задача Исполнение
Доступ к рабочему листу по
имени
Worksheets(«Лист1»)
Доступ к рабочему листу по
позиции слева
Worksheets(2)
Worksheets(4)
Получите доступ к самому
левому рабочему листу
Worksheets(1)
Получите доступ к самому
правому листу
Worksheets(Worksheets.Count)
Доступ с использованием
кодового имени листа (только
текущая книга)
Смотри раздел статьи
Использование кодового имени
Доступ по кодовому имени
рабочего листа (другая рабочая
книга)
Смотри раздел статьи
Использование кодового имени
Доступ к активному листу ActiveSheet
Объявить переменную листа Dim sh As Worksheet
Назначить переменную листа Set sh = Worksheets(«Лист1»)
Добавить лист Worksheets.Add
Добавить рабочий лист и
назначить переменную
Worksheets.Add Before:=
Worksheets(1)
Добавить лист в первую
позицию (слева)
Set sh =Worksheets.Add
Добавить лист в последнюю
позицию (справа)
Worksheets.Add after:=Worksheets(Worksheets.Count)
Добавить несколько листов Worksheets.Add Count:=3
Активировать рабочий лист sh.Activate
Копировать лист sh.Copy
Копировать после листа sh1.Copy After:=Sh2
Скопировать перед листом sh1.Copy Before:=Sh2
Удалить рабочий лист sh.Delete
Удалить рабочий лист без
предупреждения
Application.DisplayAlerts = False
sh.Delete
Application.DisplayAlerts = True
Изменить имя листа sh.Name = «Data»
Показать/скрыть лист sh.Visible = xlSheetHidden
sh.Visible = xlSheetVisible sh.Name = «Data»
Перебрать все листы (For) Dim i As Long
For i = 1 To Worksheets.Count
  Debug.Print Worksheets(i).Name
Next i
Перебрать все листы (For Each) Dim sh As Worksheet
For Each sh In Worksheets
    Debug.Print sh.Name
Next

Вступление

Три наиболее важных элемента VBA — это Рабочая книга, Рабочий лист и Ячейки. Из всего кода, который вы пишете, 90% будут включать один или все из них.

Наиболее распространенное использование Worksheet в VBA для доступа к его ячейкам. Вы можете использовать его для защиты, скрытия, добавления, перемещения или копирования листа.

Тем не менее, вы будете в основном использовать его для выполнения некоторых действий с одной или несколькими ячейками на листе.

Использование Worksheets более простое, чем использование рабочих книг. С книгами вам может потребоваться открыть их, найти, в какой папке они находятся, проверить, используются ли они, и так далее. С рабочим листом он либо существует в рабочей книге, либо его нет.

Доступ к рабочему листу

В VBA каждая рабочая книга имеет коллекцию рабочих листов. В этой коллекции есть запись для каждого рабочего листа. Эта коллекция называется просто Worksheets и используется очень похоже на коллекцию Workbooks. Чтобы получить доступ к рабочему листу, достаточно указать имя.

Приведенный ниже код записывает «Привет Мир» в ячейках A1 на листах: Лист1, Лист2 и Лист3 текущей рабочей книги.

Sub ZapisVYacheiku1()

    ' Запись в ячейку А1 в листе 1, листе 2 и листе 3
    ThisWorkbook.Worksheets("Лист1").Range("A1") = "Привет Мир"
    ThisWorkbook.Worksheets("Лист2").Range("A1") = "Привет Мир"
    ThisWorkbook.Worksheets("Лист3").Range("A1") = "Привет Мир"

End Sub

Коллекция Worksheets всегда принадлежит книге. Если мы не
указываем рабочую книгу, то активная рабочая книга используется по умолчанию.

Sub ZapisVYacheiku1()

    ' Worksheets относятся к рабочим листам в активной рабочей книге.
    Worksheets("Лист1").Range("A1") = "Привет Мир"
    Worksheets("Лист2").Range("A1") = "Привет Мир"
    Worksheets("Лист3").Range("A1") = "Привет Мир"

End Sub

Скрыть рабочий лист

В следующих примерах показано, как скрыть и показать лист.

ThisWorkbook.Worksheets("Лист1").Visible = xlSheetHidden

ThisWorkbook.Worksheets("Лист1").Visible = xlSheetVisible

Если вы хотите запретить пользователю доступ к рабочему
листу, вы можете сделать его «очень скрытым». Это означает, что это может быть
сделано видимым только кодом.

' Скрыть от доступа пользователя
ThisWorkbook.Worksheets("Лист1").Visible = xlVeryHidden

' Это единственный способ сделать лист xlVeryHidden видимым
ThisWorkbook.Worksheets("Лист1").Visible = xlSheetVisible

Защитить рабочий лист

Другой пример использования Worksheet — когда вы хотите защитить его.

ThisWorkbook.Worksheets("Лист1").Protect Password:="Мойпароль"

ThisWorkbook.Worksheets("Лист1").Unprotect Password:="Мойпароль"

Индекс вне диапазона

При использовании Worksheets вы можете получить сообщение об
ошибке:

Run-time Error 9 Subscript out of Range

VBA Subscript out of Range

Это означает, что вы пытались получить доступ к рабочему листу, который не существует. Это может произойти по следующим причинам:

  1. Имя Worksheet , присвоенное рабочим листам, написано неправильно.
  2. Название листа изменилось.
  3. Рабочий лист был удален.
  4. Индекс был большим, например Вы использовали рабочие листы (5), но есть только четыре рабочих листа
  5. Используется неправильная рабочая книга, например Workbooks(«book1.xlsx»).Worksheets(«Лист1») вместо
    Workbooks(«book3.xlsx»).Worksheets («Лист1»).

Если у вас остались проблемы, используйте один из циклов из раздела «Циклы по рабочим листам», чтобы напечатать имена всех рабочих листов коллекции.

Использование индекса для доступа к рабочему листу

До сих пор мы использовали имя листа для доступа к листу.
Указатель относится к положению вкладки листа в рабочей книге. Поскольку
положение может быть легко изменено пользователем, не рекомендуется
использовать это.

 В следующем коде показаны примеры использования индекса.

' Использование этого кода является плохой идеей, так как
' позиции листа все время меняются
Sub IspIndList()

    With ThisWorkbook
        ' Самый левый лист
        Debug.Print .Worksheets(1).Name
        ' Третий лист слева
        Debug.Print .Worksheets(3).Name
        ' Самый правый лист
        Debug.Print .Worksheets(.Worksheets.Count).Name
    End With

End Sub

В приведенном выше примере я использовал Debug.Print для печати в Immediate Window. Для просмотра этого окна выберите «Вид» -> «Immediate Window » (Ctrl + G).

ImmediateWindow

ImmediateSampeText

Использование кодового имени рабочего листа

Лучший способ получить доступ к рабочему листу —
использовать кодовое имя. Каждый лист имеет имя листа и кодовое имя. Имя листа
— это имя, которое отображается на вкладке листа в Excel.

Изменение имени листа не приводит к изменению кодового имени, что означает, что ссылка на лист по кодовому имени — отличная идея.

Если вы посмотрите в окне свойств VBE, вы увидите оба имени.
На рисунке вы можете видеть, что кодовое имя — это имя вне скобок, а имя листа
— в скобках.

code name worksheet

Вы можете изменить как имя листа, так и кодовое имя в окне
свойств листа (см. Изображение ниже).

Width

Если ваш код ссылается на кодовое имя, то пользователь может
изменить имя листа, и это не повлияет на ваш код. В приведенном ниже примере мы
ссылаемся на рабочий лист напрямую, используя кодовое имя.

Sub IspKodImya2()

    ' Используя кодовое имя листа
    Debug.Print CodeName.Name
    CodeName.Range("A1") = 45
    CodeName.Visible = True

End Sub

Это делает код легким для чтения и безопасным от изменения
пользователем имени листа.

Кодовое имя в других книгах

Есть один недостаток использования кодового имени. Он относится только к рабочим листам в рабочей книге, которая содержит код, т.е. ThisWorkbook.

Однако мы можем использовать простую функцию, чтобы найти
кодовое имя листа в другой книге.

Sub ИспЛист()

    Dim sh As Worksheet
    ' Получить рабочий лист под кодовым именем
    Set sh = SheetFromCodeName("CodeName", ThisWorkbook)
    ' Используйте рабочий лист
    Debug.Print sh.Name

End Sub

' Эта функция получает объект листа из кодового имени
Public Function SheetFromCodeName(Name As String, bk As Workbook) As Worksheet

    Dim sh As Worksheet
    For Each sh In bk.Worksheets
        If sh.CodeName = Name Then
           Set SheetFromCodeName = sh
           Exit For
        End If
    Next sh

End Function

Использование приведенного выше кода означает, что если
пользователь изменит имя рабочего листа, то на ваш код это не повлияет.

Существует другой способ получения имени листа внешней
рабочей книги с использованием кодового имени. Вы можете использовать элемент
VBProject этой Рабочей книги.

Вы можете увидеть, как это сделать, в примере ниже. Я включил это, как дополнительную информацию, я бы рекомендовал использовать метод из предыдущего примера, а не этот.

Public Function SheetFromCodeName2(codeName As String _
                             , bk As Workbook) As Worksheet

    ' Получить имя листа из CodeName, используя VBProject
    Dim sheetName As String
    sheetName = bk.VBProject.VBComponents(codeName).Properties("Name")

    ' Используйте имя листа, чтобы получить объект листа
    Set SheetFromCodeName2 = bk.Worksheets(sheetName)

End Function

Резюме кодового имени

Ниже приведено краткое описание использования кодового имени:

  1. Кодовое имя рабочего листа может быть
    использовано непосредственно в коде, например. Sheet1.Range
  2. Кодовое имя будет по-прежнему работать, если имя
    рабочего листа будет изменено.
  3. Кодовое имя может использоваться только для
    листов в той же книге, что и код.
  4. Везде, где вы видите ThisWorkbook.Worksheets
    («имя листа»), вы можете заменить его кодовым именем рабочего листа.
  5. Вы можете использовать функцию SheetFromCodeName
    сверху, чтобы получить кодовое имя рабочих листов в других рабочих книгах.

 Активный лист

Объект ActiveSheet ссылается на рабочий лист, который в данный момент активен. Вы должны использовать ActiveSheet только в том случае, если у вас есть особая необходимость ссылаться на активный лист.

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

Если вы используете метод листа, такой как Range, и не
упоминаете лист, он по умолчанию будет использовать активный лист.

' Написать в ячейку A1 в активном листе
ActiveSheet.Range("A1") = 99

' Активный лист используется по умолчанию, если лист не используется
Range("A1") = 99

Объявление объекта листа

Объявление объекта листа полезно для того, чтобы сделать ваш
код более понятным и легким для чтения.

В следующем примере показан код для обновления диапазонов
ячеек. Первый Sub не объявляет объект листа. Вторая подпрограмма объявляет
объект листа, и поэтому код намного понятнее.

Sub NeObyavObektList()

    Debug.Print ThisWorkbook.Worksheets("Лист1").Name
    ThisWorkbook.Worksheets("Лист1").Range("A1") = 6
    ThisWorkbook.Worksheets("Лист1").Range("B2:B9").Font.Italic = True
    ThisWorkbook.Worksheets("Лист1").Range("B2:B9").Interior.Color = rgbRed

End Sub
Sub ObyavObektList()

    Dim sht As Worksheet
    Set sht = ThisWorkbook.Worksheets("Лист1")

    sht.Range("A1") = 6
    sht.Range("B2:B9").Font.Italic = True
    sht.Range("B2:B9").Interior.Color = rgbRed

End Sub

Вы также можете использовать ключевое слово With с объектом
листа, как показано в следующем примере.

Sub ObyavObektListWith()

    Dim sht As Worksheet
    Set sht = ThisWorkbook.Worksheets("Лист1")

    With sht
        .Range("A1") = 6
        .Range("B2:B9").Font.Italic = True
        .Range("B2:B9").Interior.Color = rgbRed
    End With

End Sub

Доступ к рабочему листу в двух словах

Из-за множества различных способов доступа к рабочему листу вы можете быть сбитыми с толку. Так что в этом разделе я собираюсь разбить его на простые термины.

  1. Если вы хотите использовать тот лист, который активен в данный момент, используйте ActiveSheet.
ActiveSheet.Range("A1") = 55

2. Если лист находится в той же книге, что и код, используйте кодовое имя.

3. Если рабочая таблица находится в другой рабочей книге, сначала получите рабочую книгу, а затем получите рабочую таблицу.

' Получить рабочую книгу
Dim wk As Workbook
Set wk = Workbooks.Open("C:ДокументыСчета.xlsx", ReadOnly:=True)
' Затем получите лист
Dim sh As Worksheet
Set sh = wk.Worksheets("Лист1")

Если вы хотите защитить пользователя от изменения имени листа, используйте функцию SheetFromCodeName из раздела «Имя кода».

' Получить рабочую книгу
Dim wk As Workbook
Set wk = Workbooks.Open("C:ДокументыСчета.xlsx", ReadOnly:=True)

' Затем получите лист
Dim sh As Worksheet
Set sh = SheetFromCodeName("sheetcodename",wk)

Добавить рабочий лист

Примеры в этом разделе показывают, как добавить новую
рабочую таблицу в рабочую книгу. Если вы не предоставите никаких аргументов для
функции Add, то новый
рабочий лист будет помещен перед активным рабочим листом.

Когда вы добавляете рабочий лист, он создается с именем по умолчанию, например «Лист4». Если вы хотите изменить имя, вы можете легко сделать это, используя свойство Name.

В следующем примере добавляется новый рабочий лист и изменяется имя на «Счета». Если лист с именем «Счета» уже существует, вы получите сообщение об ошибке.

Sub DobavitList()

    Dim sht As Worksheet

    ' Добавляет новый лист перед активным листом
    Set sht = ThisWorkbook.Worksheets.Add
    ' Установите название листа
    sht.Name = "Счета"

    ' Добавляет 3 новых листа перед активным листом
    ThisWorkbook.Worksheets.Add Count:=3

End Sub

В предыдущем примере вы добавляете листы по отношению к
активному листу. Вы также можете указать точную позицию для размещения листа.

Для этого вам нужно указать, какой лист новый лист должен
быть вставлен до или после. Следующий код показывает вам, как это сделать.

Sub DobavitListPervPosl()

    Dim shtNew As Worksheet
    Dim shtFirst As Worksheet, shtLast As Worksheet

    With ThisWorkbook

        Set shtFirst = .Worksheets(1)
        Set shtLast = .Worksheets(.Worksheets.Count)

        ' Добавляет новый лист на первую позицию в книге
        Set shtNew = Worksheets.Add(Before:=shtFirst)
        shtNew.Name = "FirstSheet"

        ' Добавляет новый лист к последней позиции в книге
        Set shtNew = Worksheets.Add(After:=shtLast)
        shtNew.Name = "LastSheet"

    End With

End Sub

Удалить рабочий лист

Чтобы удалить лист, просто вызовите Delete.

Dim sh As Worksheet
Set sh = ThisWorkbook.Worksheets("Лист12")
sh.Delete

Excel отобразит предупреждающее сообщение при удалении листа. Если вы хотите скрыть это сообщение, вы можете использовать код ниже:

Application.DisplayAlerts = False
sh.Delete
Application.DisplayAlerts = True

Есть два аспекта, которые нужно учитывать при удалении таблиц.

Если вы попытаетесь получить доступ к рабочему листу после
его удаления, вы получите ошибку «Subscript out of Range», которую мы видели в
разделе «Доступ к рабочему листу».

Dim sh As Worksheet
Set sh = ThisWorkbook.Worksheets("Лист2")
sh.Delete

' Эта строка выдаст «Subscript out of Range», так как «Лист2» не существует
Set sh = ThisWorkbook.Worksheets("Лист2")

Вторая проблема — когда вы назначаете переменную листа. Если вы попытаетесь использовать эту переменную после удаления листа, вы получите ошибку автоматизации, подобную этой:

Run-Time error -21147221080 (800401a8′) Automation Error

Если вы используете кодовое имя рабочего листа, а не
переменную, это приведет к сбою Excel,
а не к ошибке автоматизации.

В следующем примере показано, как происходят ошибки автоматизации.

sh.Delete

' Эта строка выдаст ошибку автоматизации
Debug.Assert sh.Name

Если вы назначите переменную Worksheet действительному рабочему листу, он будет работать нормально.

sh.Delete

' Назначить sh на другой лист
Set sh = Worksheets("Лист3")

' Эта строка будет работать нормально
Debug.Assert sh.Name

Цикл по рабочим листам

Элемент «Worksheets» — это набор рабочих листов, принадлежащих рабочей книге. Вы можете просмотреть каждый лист в коллекции рабочих листов, используя циклы «For Each» или «For».

В следующем примере используется цикл For Each.

Sub CiklForEach()

    ' Записывает «Привет Мир» в ячейку A1 для каждого листа
    Dim sht As Worksheet
    For Each sht In ThisWorkbook.Worksheets
         sht.Range("A1") = "Привет Мир"
    Next sht 

End Sub

В следующем примере используется стандартный цикл For.

Sub CiklFor()
    
    ' Записывает «Привет Мир» в ячейку A1 для каждого листа
    Dim i As Long
    For i = 1 To ThisWorkbook.Worksheets.Count
         ThisWorkbook.Worksheets(i).Range("A1") = "Привет Мир"
    Next sht

End Sub

Вы видели, как получить доступ ко всем открытым рабочим книгам и как получить доступ ко всем рабочим листам в ThisWorkbook. Давайте сделаем еще один шаг вперед — узнаем, как получить доступ ко всем рабочим листам во всех открытых рабочих книгах.

Примечание. Если вы используете код, подобный этому, для записи на листы, то сначала сделайте резервную копию всего, так как в итоге вы можете записать неверные данные на все листы.

Sub NazvVsehStr()

    ' Печатает рабочую книгу и названия листов для
    ' всех листов в открытых рабочих книгах
    Dim wrk As Workbook
    Dim sht As Worksheet
    For Each wrk In Workbooks
        For Each sht In wrk.Worksheets
            Debug.Print wrk.Name + ":" + sht.Name
        Next sht
    Next wrk

End Sub

Использование коллекции листов

Рабочая книга имеет еще одну коллекцию, похожую на Worksheets под названием Sheets. Это иногда путает пользователей. Чтобы понять, в первую очередь, вам нужно знать о типе листа, который является диаграммой.

В Excel есть возможность создать лист, который является диаграммой. Для этого нужно:

  1. Создать диаграмму на любом листе.
  2. Щелкнуть правой кнопкой мыши на графике и выбрать «Переместить».
  3. Выбрать первый вариант «Новый лист» и нажмите «ОК».

Теперь у вас есть рабочая книга, в которой есть типовые листы и лист-диаграмма.

  • Коллекция «Worksheets » относится ко всем рабочим листам в рабочей книге. Не включает в себя листы типа диаграммы.
  • Коллекция Sheets относится ко всем листам, принадлежащим книге, включая листы типовой диаграммы.

Ниже приведены два примера кода. Первый проходит через все
листы в рабочей книге и печатает название листа и тип листа. Второй пример
делает то же самое с коллекцией Worksheets.

Чтобы опробовать эти примеры, вы должны сначала добавить лист-диаграмму в свою книгу, чтобы увидеть разницу.

Sub KollSheets()

    Dim sht As Variant
    ' Показать название и тип каждого листа
    For Each sht In ThisWorkbook.Sheets
        Debug.Print sht.Name & " is type " & TypeName(sht)
    Next sht

End Sub

Sub KollWorkSheets()

    Dim sht As Variant
    ' Показать название и тип каждого листа
    For Each sht In ThisWorkbook.Worksheets
        Debug.Print sht.Name & " is type " & TypeName(sht)
    Next sht

End Sub

Если у вас нет листов диаграмм, то использование коллекции Sheets — то же самое, что использование коллекции WorkSheets.

Заключение

На этом мы завершаем статью о Worksheet VBA. Я надеюсь, что было полезным.

Три наиболее важных элемента Excel VBA — это рабочие книги, рабочие таблицы, диапазоны и ячейки.

Эти элементы будут использоваться практически во всем, что вы делаете. Понимание их сделает вашу жизнь намного проще и сделает изучение VBA увлекательнее.

Получить доступ к листу Excel и прочитать данные — Visual Basic .NET

http://www.cyberforum.ru/vb-net/thread453716.html

Module mdlExcel

Dim SelectedSheet As String

Public Sub OpenSheet(ByVal Grid As DataGridView)

Dim OpenDialog As New OpenFileDialog, FileName As String = «»

With OpenDialog

.Title = «Открыть документ Excel»

.Filter = «Документы Excel|*.xls;*.xlsx»

If .ShowDialog = Windows.Forms.DialogResult.OK Then

FileName = .FileName : Application.DoEvents()

Else

Return

End If

End With

‘ Подключение к Excel.

Dim connection As OleDb.OleDbConnection, connectionString As String

Try

‘Для Excel 12.0

connectionString = «Provider=Microsoft.ACE.OLEDB.12.0; Data Source=» + FileName + «; Extended Properties=»»Excel 12.0 Xml;HDR=YES»»;»

connection = New OleDb.OleDbConnection(connectionString)

connection.Open()

Catch ex12 As Exception

Try

‘Для более ранних версий

connectionString = «Provider=Microsoft.Jet.OLEDB.4.0;Data Source=» + FileName + «; Extended Properties=»»Excel 8.0;HDR=Yes;IMEX=1″»;»

connection = New OleDb.OleDbConnection(connectionString)

connection.Open()

Catch ex11 As Exception

MsgBox(«Неизвестная версия Excel или файл имеет неизвестный формат!», MsgBoxStyle.Exclamation)

Return

End Try

End Try

‘Отобразить форму выбора листов

ShowSelectForm(GetExcelSheetNames(connection), FileName)

If SelectedSheet Is Nothing Then Return

‘Выборка данных

Dim command As OleDb.OleDbCommand = connection.CreateCommand()

command.CommandText = «Select * From [» & SelectedSheet & «$]»

Dim Adapter As New OleDb.OleDbDataAdapter(command), Table As New DataTable

Adapter.Fill(Table) : connection.Close()

With Grid

.Visible = False : .Parent.Cursor = Cursors.WaitCursor

.DataSource = Table : SetGridSettings(Grid)

.Visible = True : .Parent.Cursor = Cursors.Default

End With

End Sub

Private Function GetExcelSheetNames(ByVal connection As OleDb.OleDbConnection) As String()

Dim Table As DataTable

Try

Table = connection.GetOleDbSchemaTable(OleDb.OleDbSchemaGuid.Tables, New Object() {Nothing, Nothing, Nothing, «TABLE»})

If Table Is Nothing Then Return Nothing

With Table

Dim i As Integer = 0, SheetsArray() As String = Nothing, s As String

For n As Integer = 0 To .Rows.Count — 1

s = .Rows(n).Item(«TABLE_NAME»).ToString.Trim(New Char() {«‘»})

If Strings.Right(s, 1) = «$» Then

ReDim Preserve SheetsArray(i)

SheetsArray(i) = s.Trim(New Char() {«$»})

i += 1

End If

Next

Table.Dispose() : Return SheetsArray

End With

Catch ex As Exception

MsgBox(ex.Message, MsgBoxStyle.Exclamation)

Return Nothing

End Try

End Function

Private Sub ShowSelectForm(ByVal Sheets() As String, ByVal FileName As String)

If Sheets Is Nothing Then SelectedSheet = Nothing : Return

Dim F As New Form, T As New TreeView, I As New ImageList, P As New Panel, B1, B2 As New Button

With I

.ColorDepth = ColorDepth.Depth32Bit

.ImageSize = New Size(16, 16)

.Images.Add(«Книга», My.Resources.Images16x16.Excel) ‘рисунок 16×16 px для названия файла excel

.Images.Add(«Документ», My.Resources.Images16x16.Документ) ‘рисунок 16×16 px для названия листа excel

End With

With T

.Name = «T»

.ImageList = I : .Font = New Font(«Arial», 10, FontStyle.Bold)

.ShowPlusMinus = False : .ShowLines = False : .ShowRootLines = False

Dim N As TreeNode = .Nodes.Add(«Книга», FileIO.FileSystem.GetName(FileName), 0, 0)

Dim nn As TreeNode

For ni As Int16 = 0 To Sheets.Length — 1

nn = N.Nodes.Add(«Лист» & ni.ToString, Sheets(ni), 1, 1)

nn.NodeFont = New Font(.Font, FontStyle.Regular)

Next

.ExpandAll()

End With

With F

.Text = » Документ Excel»

.ShowInTaskbar = False

.StartPosition = FormStartPosition.CenterParent

.FormBorderStyle = FormBorderStyle.FixedToolWindow

.Height = .Height * 1.3

.AcceptButton = B1 : .CancelButton = B2

With P

.Name = «P» : .Parent = F

.Dock = DockStyle.Bottom

End With

With T

.Parent = F

.Dock = DockStyle.Fill

.BringToFront()

AddHandler .NodeMouseDoubleClick, AddressOf T_NodeDoubleClick

End With

With B2

.Name = «B2»

.Text = «Отмена»

.Parent = P : .Top = 5

.Left = P.Width — .Width — 5

AddHandler .Click, AddressOf B2_Click

End With

With B1

.Name = «B1»

.Text = «Открыть»

.Parent = P : .Top = 5

.Left = B2.Left — .Width — 5

.Font = New Font(.Font, FontStyle.Bold)

AddHandler .Click, AddressOf B1_Click

End With

P.Height = B1.Height + 10

AddHandler .Load, AddressOf F_Load

.ShowDialog()

End With

End Sub

Private Sub SetGridSettings(ByVal Grid As DataGridView)

With Grid

.ReadOnly = False : .MultiSelect = False

.SelectionMode = DataGridViewSelectionMode.CellSelect

.RowTemplate.Resizable = DataGridViewTriState.False

.RowHeadersWidthSizeMode = DataGridViewRowHeadersWidthSizeMode.DisableResizing

For n As Integer = 0 To .ColumnCount — 1

With .Columns(n)

.Resizable = DataGridViewTriState.False

.AutoSizeMode = DataGridViewAutoSizeColumnMode.AllCells

.SortMode = DataGridViewColumnSortMode.NotSortable

End With

Next

End With

End Sub

Private Sub F_Load(ByVal sender As Form, ByVal e As EventArgs)

Dim T As TreeView = sender.Controls(«T»)

With T

.Select()

If .Nodes(0).Nodes.Count > 0 Then .SelectedNode = .Nodes(0).Nodes(0)

End With

SelectedSheet = Nothing

End Sub

Private Sub B1_Click(ByVal sender As Button, ByVal e As EventArgs)

Dim F As Form = sender.Parent.Parent, T As TreeView = F.Controls(«T»)

Application.DoEvents()

If Strings.Left(T.SelectedNode.Name, 4) = «Лист» Then

F.DialogResult = DialogResult.OK

SelectedSheet = T.SelectedNode.Text : F.Close()

Else

MsgBox(«Необходимо выбрать лист.», MsgBoxStyle.Exclamation)

T.Select()

End If

End Sub

Private Sub B2_Click(ByVal sender As Button, ByVal e As EventArgs)

Dim F As Form = sender.Parent.Parent

F.DialogResult = DialogResult.Cancel

SelectedSheet = Nothing : F.Close()

End Sub

Private Sub T_NodeDoubleClick(ByVal sender As TreeView, ByVal e As TreeNodeMouseClickEventArgs)

If e.Node.Name = «Книга» Then sender.ExpandAll()

B1_Click(sender.Parent.Controls(«P»).Controls(«B1»), Nothing)

End Sub

End Module

Общий доступ к книгам Excel

​Смотрите также​ назад тоже плевалась,​ под этой учеткой​Макросы в книге​ получилось сохранить лишь​ раскованно, то возможно​ ресурсе.) Какие есть​ подписку на 365.​The_Prist​ решение для совместного​ОК​Шаг 2: Определение именованные​ Excel для Android,​ будет отправлено с​

​. Если она не​ учетная запись Microsoft,​ Вы можете выбрать​Предоставление общего доступа к​ когда ей скидывали​ и всё, проблемы​ общего доступа работают.​ копию.​ и нашлись бы​ варианты решения этой​В описании нашел​: Совместная работа с​ редактирования файла, расположенного​. Книга будет добавлена​

​ элементы для отдельных​ Excel для iOS,​ вашего адреса электронной​ отображается, нажмите​ например, Facebook или​ способ предоставления общего​ файлу Excel позволяет​ формы по скайпу,​ не стало, правда​Исключение — макросы,​на форуме нашла​ методы, а так,​

​ проблемы? Спасибо за​ что при наличии​ книгами Excel та​ в локальной сети?​ в библиотеку.​ диаграмм, таблиц и​

Как открыть общий доступ к файлу Excel

  1. ​ Excel Mobile и​ почты. Вы получите​Изменить в браузере​ LinkedIn. У Вас​Общий доступ в Excel
  2. ​ доступа, а с​
  3. ​ сразу нескольким пользователям​ а теперь работает​ думаю как справиться​ выполняющие действия, которые​ такую информацию: «​Общий доступ в Excel

Параметры общего доступа

​ увы.​ помощь.​ подписки можно получить​ еще тема. Самый​Sertg​Отправка книги в библиотеку​ других элементов в​ Excel 2016 для подписчиков​ его копию, так​, а после перезагрузки​ также есть возможность​ правой его параметры.​ иметь доступ к​ и радуется, что​

Способы предоставления общего доступа

1. Пригласить других людей

​ с этими правами​ запрещены в книгах​Данные организованны в таблицах.​Для чего вам​Kreol2013​ копии 2016​ правильный вариант при​: Смотрите​ SharePoint Online (в​ книге. Просмотр Определение​ Office 365. Если у​ что будете знать,​ страницы —​

Общий доступ в Excel

2. Получить ссылку

​ добавить личное сообщение​Данная область изменяется в​ одному и тому​ не надо идти​ в швиндувс…Ну почему​ с общим доступом.​ При предоставлении общего​ макросы в общем​: Если вы не​возник вопрос:​ работе в одном​Максим Исаев​ облаке)​ и использование имен​ пользователя нет нужной​ как оно выглядит.​

Общий доступ в Excel

3. Опубликовать в социальных сетях

​Изменить в Excel​ и задать права​ зависимости от того,​ же документу. В​ в соседнее здание.​ он такой швиндувс?​Например, у вас​ доступа есть ограничения.​ доступе? пересчитывать формулы?​ гнушаетесь онлайн ресурсов​3. как скачать​ файле стандартными средствами​

Общий доступ в Excel

4. Отправить по электронной почте

​: Профессионалы, помогите разобраться!​Войти в среду Office 365​ в формулах.​ версии приложения, он​Если вы нажали кнопку​

Общий доступ в Excel

​.​ на редактирование.​
​ какой способ предоставления​
​ некоторых случаях такая​

​AlekseyF​

office-guru.ru

Предоставление доступа к книге Excel другим пользователям

​ ;(​ защищена структура книги​ Т.е. нельзя дать​ Или разносить данные?​ и у вас​ и установить копию​ — разграничить права​

​Два сотрудника должны​

  1. ​ и перейдите на​​Шаг 3. Выберите способ​​ может нажать кнопку​

  2. ​Поделиться​Нажмите кнопку​​Эта опция позволяет отправить​​ общего доступа к​

  3. ​ возможность является более​

  4. ​: Коллеги, прошу помощи!​

  5. ​Юрий М​​ (т.е. нельзя добавить/скрыть/удалить​​ общий доступ если​

​ Или еще какие-то​ есть аккаунты на​ офис 2016 (не​

Шаг 1. Отправка книги

​ пользователей на изменение​ вводить данные (каждый​ нужный сайт, например​ представления книги в​Редактировать книгу​, пользователи получат сообщение​

Шаг 2. Предоставление общего доступа

  1. ​Открыть Microsoft Excel​ файл Excel по​ файлу Вы выбираете.​ чем полезной. В​

  2. ​ Увидел похожую тему,​​: Ну и зачем​​ листы), а макрос​ данные организованны в​​ мега задачи?​​ gmail.com Вы можете​ 365)? в рамках​​ диапазонов. Чтобы не​​ в свой лист)​

  3. ​ на сайт группы.​​ окне браузера. См.​​в Excel Online​

  4. ​ с предложением открыть​.​ электронной почте с​ У Вас есть​ данном уроке мы​ решил написать сюда,​ всё отформатировали жирным?​ пытается выполнить операцию​​ форме таблиц.​​Юрий М​

  5. ​ легко выйти из​ подписки на 365​​ было конфликтующих изменений​​ по заказам в​

  6. ​Выберите библиотеку, например библиотеку​​ статью Используйте параметры​​ и выбрать пункт​ файл. Они могут​Когда файл откроется в​ помощью приложения Microsoft​ возможность выбирать и​​ научимся открывать доступ​​ если нужно открывать​швиндувс — это​​ по скрытию листа​​Конечно можно открыть​

    ​: Макросы в книге​​ положения за счет​Юрий М​ одновременно. Тогда файлы​​ одной книге Excel​​ «Документы» на сайте.​ просмотра в браузере,​Изменить в браузере​​ щелкнуть ссылку, чтобы​​ Excel, может отобразиться​​ Outlook 2013.​​ контролировать процесс предоставления​

  7. ​ к файлу Excel​ новую тему, прошу​ Вы про что?​ — в этом​ такой файл по​ с общим доступом​ облачного сервиса. Групповое​: И в чём​ Excel в общем​ (2007).​Выберите команду​

Шаг 3. Другие пользователи могут открыть файл

​ чтобы настроить отображение​​.​​ открыть книгу. Книга​ желтая панель с​Урок подготовлен для Вас​ доступа к документу.​ и контролировать параметры​ прощения.​burnn​ случае будет появляться​ сети, внести изменения,​ работают. Другой вопрос​​ редактирование в режиме​​ проблема? В сообщении​​ доступе будут работать​​Несколько менеджеров должны​+ Добавить файл​ книги в его​Примечание:​​ откроется в Excel​​ сообщением о том,​​ командой сайта office-guru.ru​​ Например, Вы можете​

​ общего доступа.​​Суть проблемы: На​: чтобы лучче видно​ ошибка.​ но файл будет​ — ЧТО эти​ реального времени.​​ же написано, как​​ вполне стабильно. Чуть​​ видеть лист, на​​, а затем —​​ окне.​​Мы стараемся как​ Online в браузере.​ что используется режим​

​Источник: http://www.gcflearnfree.org/office2013/excel2013/6/full​ установить права на​Excel 2013 упрощает процесс​ локальном сервере есть​ было, ой, опять​Подробнее почитать тут:​ сохранен как копия.​ макросы делают?​вводный курс по​ нужно действовать.​ подробнее описывал здесь:​ котором отображается состояние​Отправить файл​Шаг 4. Отправьте книгу​ можно оперативнее обеспечивать​ Пользователи смогут приступить​ защищенного просмотра. В​​Автор/переводчик: Антон Андронов​​ редактирование документа пользователями,​ предоставления общего доступа​​ файл Excel с​​ отформатировал текст ;​

support.office.com

Общий доступ к книгам с помощью служб Excel

​Kedr Iohan​​Самое простое решение,​Vovchik22​ формулам в google​Наутилус​Еще вариант использовать​ их заказов.​, чтобы открыть диалоговое​ в библиотека SharePoint.​ вас актуальными справочными​ к редактированию в​ таком случае нажмите​Автор: Антон Андронов​ которым предоставляется общий​ к документам посредством​ возможностью совместного пользования.Часть​ (​: Для KuklP:​ это перевести из​: Ок, файл содержит​ написанный лично мною,​: Пытаюсь добиться чтобы​

​ связку Excel->Access. В​Сотворил файл.​ окно​ В зависимости от​ материалами на вашем​ браузере, выбрав​ кнопку​Предоставить доступ к книге​ доступ к файлу.​ сервиса OneDrive. Ранее,​ листов файла заполняется​швиндувс — операционная​

​Спасибо большое,​ таблиц в диапазоны.​ модули которые позволяют​ а также благодаря​ было как в​ Excel вносить изменения​

​Но не получается дать​Добавление документа​ того, что используется​ языке. Эта страница​Редактировать книгу​Разрешить редактирование​ другим пользователя можно​

​Здесь Вы можете пригласить​ если возникала необходимость​ пользователями, часть макросом​ система швиндовс от​Оказывается проблема была​» в теме​ вносить в него​ этому форуму при​

​ статье:​ и просматривать отчеты,​ общий доступ: просит​.​ в вашей организации —​ переведена автоматически, поэтому​ >​.​ прямо из Excel.​ других людей посмотреть​ поделиться книгой, можно​ из хранилища БД.​ майкрософт — хороша​

​ в том, что​ «Как организовать общий​ данные, их вносят​ разъяснении некоторых сложных​

  1. ​Совместное редактирование в​ кодами все это​ таблицы перевести в​

  2. ​Нажмите кнопку​​ SharePoint Server 2013​​ ее текст может​Изменить в браузере​​В правом верхнем углу​​ Вы можете разрешить​

  3. ​ или отредактировать книгу​​ было отправить ее​​ При этом те​​ только на уровне​​ для начала нужно​ доступ, когда данные​ одновременно 8 человек​​ вопросов отправил в​​ Excel 2016​

  4. ​ будет транслироваться в​​ диапазоны (перестают работать​​Обзор​​ или SharePoint Online​​ содержать неточности и​. Если они захотят​

​ нажмите​ им редактировать книгу​ Excel. Рекомендуем пользоваться​

  1. ​ по электронной почте​ данные которые подтягиваются​ игр.​ было расшарить папку​

  2. ​ организованны в таблицах,​ и после каждого​

  3. ​ личку. При необходимости​​С недавними обновлениями в​​ общую базу. Это​​ выпадающие списки) и​​. Откроется диалоговое окно​ для предприятий (Office 365), —​​ грамматические ошибки. Для​​ открыть ее в​

  4. ​Поделиться​​ или только просматривать​​ этой опцией в​​ в качестве вложения.​​ из хранилища являются​Юрий М​ в которой была​​ а не в​​ внесения обновляют файл​

  5. ​ могу консультировать.​​ Excel 2016 картина​​ наиболее удачный вариант​​ макросы не все​​Выгрузка файла​ вы можете опубликовать​

​ нас важно, чтобы​ приложении Excel, они​.​ ее.​ большинстве случаев, так​ Но при таком​ необходимой справочной информацией​: Отформатируйте «обратно» :-)​ Книга Excel.​

support.office.com

Совместное редактирование файла в Excel 2016

​ диапазонах.»​​ , чтобы остальные​KuklP​ поменялась. Теперь для​ по части сохранности​ работают.​. Выберите книгу, которую​ книгу в библиотека​ эта статья была​ смогут выбрать​В поле​Windows macOS ​

​ как этот вариант​​ подходе появляется множество​

​ и пользователь не​​Швиндовс не знаю​
​burnn​если это правда,​ видели оперативно инфо.​: Варианты:​ одновременной работы вы​ данных.​
​Если на компьютере с​ требуется опубликовать, и​ SharePoint, следуя одной​ вам полезна. Просим​
​Редактировать книгу​

  1. ​Пригласить пользователей​Нажмите кнопку​ оставляет у Вас​ копий файлов, которые​ должен иметь возможность​ — знаю Windows.​: Проблема — после​
  2. ​ то 1. какая​ Там есть как​- Не использовать​ должны сохранить файл​Наутилус​

​ этим файлом открыт​ нажмите кнопку​ из описанных ниже​ вас уделить пару​
​>​введите адреса электронной​Поделиться​
​ наибольший уровень контроля​ в дальнейшем становится​ править эти листы.​

​ Не нравится -​​ «настройки» параметров безопасности​ разница между диапазоном​ и прописаные модули​ совместный доступ;​ в облачное хранилище​: Расскажите для неграмотных:​ другой с макросами​

​Открыть​​ процедур.​ секунд и сообщить,​Изменить в Excel​ почты, разделяя их​

​.​​ и конфиденциальности при​ трудно отслеживать​ Соответственно когда запускается​ не пользуйтесь -​ шары (швундувс кривой​ и таблицой и​ на ВБА так​- Не использовать​ (OneDrive или SharePoint)​1. Я правильно​ — так же​.​Отправка книги в библиотеку​ помогла ли она​.​
​ точкой с запятой.​Выберите разрешения и нажмите​ предоставлении доступа к​Открывая пользователям доступ к​ макрос для загрузки​ кто заставляет?​ капец) — после​ 2. как перевести​ и формулы. как​ макросы.​

​ и пригласить других​​ понимаю — для​
​ отказывается работать.​В диалоговом окне​ на сервере SharePoint​ вам, с помощью​Совет:​
​ Не забудьте выбрать​ кнопку​ книге. Эта опция​ файлу непосредственно через​ данных из ХД​burnn​ неудачных попыток это​

​ из таблиц в​​ описать еще подробней​- Использовать Access,​ пользователей с помощью​ совместной работы в​

​Много раз тут​​Добавление документа​
​ Server 2013 (локальная​ кнопок внизу страницы.​ Пользователи, у которых установлена​ параметр​Применить​
​ выбрана по умолчанию.​ Excel 2013, Вы​
​ появляется ошибка, так​: Например…Начальство, и пользователи,​ сделать хотябы как-то,​ диапазоны.​
​ я не могу​
​ он больше приспособлен​ кнопки Поделиться (Share)​ 2016 нужна активная​ обсуждали вопрос общего​нажмите кнопку​

​ версия)​​ Для удобства также​ последняя версия Excel 2016​Может вносить изменения​.​

​Здесь вы можете получить​​ предоставляете его к​ как на листах​ которые (некоторые) не​
​ открыл общий доступ​пожалуйста помогите​

​ сориентироваться…​ для совместного доступа.​ в правом верхнем​ подписка на 365?​ доступа, но решения​ОК​На сайте, таком как​ приводим ссылку на​ для подписчиков Office 365,​. Когда все будет​Добавьте пользователей.​ ссылку и с​

​ одному и тому​​ стоит защита от​ хотят вообще ничего​ — после этих​KuklP​

​Kedr Iohan​​Vovchik22​ углу окна:​

planetaexcel.ru

Совместный доступ с возможностью одновременного редактирования.

​2. Если да,​​ я не увидел.​. Книга будет добавлена​ сайт группы, выберите​ оригинал (на английском​ могут открыть файл​ готово, нажмите кнопку​При желании введите сообщение.​ помощью нее поделиться​ же файлу. Это​ пользователя. Прошу опытные​ учить нового, так-что​ всех манипуляций у​: Преобразовать. Прикрепленные файлы​: Здравствуйте!​

​: Не использовать макросы​​Наутилус​ то верно ли,​Может подскажите куда​ в библиотеку.​ библиотеку, например «Документы».​ языке) .​ напрямую в приложении​Поделиться​Нажмите кнопку​ книгой Excel. Например,​
​ позволяет Вам и​ головы, откликнитесь))!​ да, ситуация в​ конкретного пользователя появились​ 2013-08-18_224827.gif (56.58 КБ)​Предоставила общий доступ​ не возможно ,​: Закинул в OneDrive,​ что достаточно активной​

​ бежать? Или поменять​​Шаг 5 (необязательный). После​
​Нажмите кнопку​С помощью служб Excel​
​ Excel: выбрать​.​
​Отправить​ Вы можете опубликовать​ другим пользователям совместно​

​The_Prist​​ общем заставляет, так​ проблемы с открытием​Kedr Iohan​ книге эксель. файл​ так как и​ отправил приглашение. Кнопка​ подписки только у​ идеологию?​
​ загрузки книги в​+ Добавить​ можно предоставлять другим​Файл​Совет:​.​ ссылку в блоге​ редактировать одну и​

​: А чем помогать-то?​​ что я имею​ файла с общим​: Как вытащить вкладку​ по сети открывается,​ совместный доступ, в​ автосохранение так и​
​ раздающего приглашения, подключающиеся​Для тех кто​ библиотеку SharePoint вы​, чтобы открыть диалоговое​ пользователям общий доступ​ >​:)

​ Если вы хотите отправить​​Чтобы поделиться книгой, нужно​ или отправить группе​ ту же книгу​ У Вас идет​ право жаловаться на​

​ доступом, и его​​ Конструктор Excel 2017​ вносятся изменения, но​ них вся суть​ не появилась:​ редакторы могут быть​ может помочь -​ можете отобразить содержимое​ окно​ к книгам в​Открыть​ ссылку самостоятельно, нажмите​ выполнить всего три​ людей по электронной​ без необходимости отслеживать​ попытка вставки данных​ эту кривую ОС.​

​ сохранинем, если все​​(А когда преобразую,​
​ файл сохраняется как​ файла и вся​Наутилус​ и без нее?​ прикрепил файл.​ этой книги в​Добавление документа​ безопасном централизованном расположении,​ >​
​ кнопку​ простых шага.​ почте. У Вас​ множество версий.​ на защищенный лист.​Антон​ же удалось зайти…то​ данные можно же​ копия. А нужно​ работа строиться на​: Неужели никто не​
​Юрий М​Molov​​ веб-части SharePoint. См.​.​ например в библиотеке​Общие​Поделиться​В веб-браузере сохраните существующую​ есть возможность создать​
​Для того чтобы предоставить​ Либо изменяйте параметры​: Ну так пользуйтесь​ открывался то не​ будет изменять другим​
​ чтобы изменения сохранялись​ них.​ пользуется?​
​: В 2016 на​: Пробовали заменить 2007​ статью Отображение книги​Нажмите кнопку​ «Документы» в SharePoint​, а затем — файл,​
​в правом верхнем​ книгу или создайте​ два типа ссылок,​ общий доступ к​ защиты ячеек так,​ онлайн екселем и​ открывался…​
​ пользователям?)​

​ именно в данной​​Подскажите, а есть​Vovchik22​

​ вкладке «Рецензирование» нет​​ офис на 2016​ Excel в веб-части​
​Обзор​ Server 2013 или​ которым с ними​ углу экрана, а​

​ новую в OneDrive,​​ в первом случае​

​ книге Excel, прежде​​ чтобы код мог​ проблемы пропадут все.​Решение — создал​Kedr Iohan​ книге.​

​ ли какой-то другой​​: Добрый день. Требуется​
​ кнопки «Доступ к​ ? там должна​
​ Excel Web Access.​. Откроется диалоговое окно​ SharePoint Online в​ поделились.​
​ затем выберите элементы​ OneDrive для бизнеса​ пользователи смогут только​ всего ее необходимо​ в них данные​Я что-то не​ учетку на компьютере-хосте,​: Excel 2007​интересный факт: Когда​
​ выход, кроме онлайн​

​ помощь по Excel​​ книге»?​
​ быть Хотя, наверное,​
​Y.Dvonikova​Выгрузка файла​ Office 365 корпоративный. Для​Книгу могут одновременно изменять​Копировать ссылку​ или библиотеке SharePoint​

​ просматривать книгу, а​​ сохранить в облачном​ вставить, либо отключайте​ совсем понимаю, у​ на которой шара​KuklP​ в файле сохранил​ ресурсов? На данный​ 2010. К созданному​Наутилус​ эту информацию Вы​: Доброго дня! В​. Выберите книгу, которую​ этого нужно выполнить​ несколько пользователей. Это​ >​ Online.​ во втором еще​
​ хранилище OneDrive.​ защиту вовсе. В​ вас спец ексель​ — и при​: Установите курсор в​ изменения коллега, у​ момент интересует вопрос​ файлу необходим режим​: нажал. получил:​ уже находили и​ Excel 2016 во​ требуется опубликовать, и​ несколько простых действий.​ называется совместным редактированием.​Просмотр и редактирование​Щелкните имя отправленного файла,​ и редактировать.​Откройте вкладку Файл, чтобы​

​ общем доступе менять​​ чтоли? с макросами​ подключении шары на​
​ любое место таблицы​ которого в сети​

​ именно если файл​​ совместного доступа с​Сделал то же​ она не подошла.​ вкладке «Рецензирование» отсутствует​
​ нажмите кнопку​Шаг 1. Создайте книгу,​ Однако для использования​.​ чтобы открыть его.​

​Здесь Вы можете опубликовать​​ перейти к представлению​
​ параметры защиты нельзя​ и тд и​ клиентском компе (где​ и вкладка Конструктор​ права администратора, все​

​ лежит на локальном​​ возможностью одновременного редактирования.​ самое в чистой​Y.Dvonikova​ установка «Общий доступ».​Открыть​ содержащую нужные диаграммы,​ такой возможности нужна​Если на предыдущем шаге​ Книга откроется на​

​ ссылку на книгу​​ Backstage, затем выберите​ — только до​ тп. Всем когда-то​
​ были проблемы) -​ появится автоматически. Если​ сохранилось именно в​ доступе​ (При включении этого​ книге. В итоге​: Ни совет ,​ Совместное редактирование возможно,​.​ таблицы и отчеты.​ версия Excel, поддерживающая​ вы нажали кнопку​ новой вкладке веб-браузера.​ в любой из​ Общий доступ.​ установки общего доступа.​

​ приходится переходить на​​ поставил галочку «исп.​ это действительно таблица.​ данном файле. А​Kreol2013​ режима не работают​ все равно не​
​ ни совет не​ только если расположить​В диалоговом окне​ См. статью Создание​ совместное редактирование. В​ «Поделиться», то каждый​Нажмите кнопку​ социальных сетей, к​Появится панель Общий доступ.​vikttur​ что-то новое. Наш​ другие данные для​[email protected]​ у коллеги, который​: Если бы, Вы,​ макросы. Файл находится​ появилась кнопка автосохранение.​ дали положительного результата,​ файл в OneDrive.​Добавление документа​ диаграмм от начала​ настоящее время совместное​

​ пользователь получит сообщение​​Изменить в Excel​ которой подключена Ваша​С левой стороны панели​: Создайте отдельную тему​ бухгалтер 3 года​ входа» — зашел​: Для Vovchik22:​ простой пользователь сети,​ описали проблему более​ на локальном сетевом​Пока активировал пробную​ к сожалению(​ Есть ли какое-либо​нажмите кнопку​

​ до конца.​​ редактирование поддерживается в​

planetaexcel.ru

​ электронной почты. Сообщение​

Понравилась статья? Поделить с друзьями:

А вот еще интересные статьи:

  • Excel получить данные по ссылке
  • Excel последний столбец адрес
  • Excel получить данные по имени
  • Excel последний символ в столбце
  • Excel получить данные по api

  • 0 0 голоса
    Рейтинг статьи
    Подписаться
    Уведомить о
    guest

    0 комментариев
    Старые
    Новые Популярные
    Межтекстовые Отзывы
    Посмотреть все комментарии