Как защитить сводную таблицу в Excel?
Как в Excel защитить сводную таблицу, чтобы другие пользователи не могли перетаскивать поля или нарушать её макет? В этой статье я расскажу о нескольких способах защиты сводной таблицы на листе.
Защита Сводная таблица с помощью кода VBA
Защита Сводная таблица с разрешением доступа к срезу
Защита Сводная таблица с помощью кода VBA
Следующий код VBA поможет вам защитить сводную таблицу. Выполните следующие действия:
1. Удерживая нажатыми клавиши ALT + F11, откройте окно Microsoft Visual Basic для приложений.
2. Нажмите Вставка > Модуль и вставьте следующий код в окно Модуля.
Код VBA: защита Сводная таблица
Sub RestrictPivotTable()
'Updateby Extendoffice
Dim xpf As PivotField
Application.ScreenUpdating = False
With ActiveSheet.PivotTables(1)
.EnableDrilldown = False
.EnableFieldList = False
.EnableFieldDialog = False
.PivotCache.EnableRefresh = False
For Each xpf In .PageFields
With pf
.DragToPage = False
.DragToRow = False
.DragToColumn = False
.DragToData = False
.DragToHide = False
End With
Next xpf
End With
Application.ScreenUpdating = False
MsgBox "The pivot table has been protected!", vbInformation, "Kutools for Excel"
End Sub
3. Затем нажмите клавишу F5, чтобы запустить этот код. Появится диалоговое окно с уведомлением о том, что сводная таблица защищена. См. снимок экрана:
Примечания:
1. Этот код отключает множество функций в сводной таблице: запрещает пользователям перетаскивать поля, а также скрывает список полей, настройки полей, детализацию и обновление.
2. Если на листе присутствует несколько сводных таблиц «Активный лист», данный код применяется только к последней сводной таблице.
Защита Сводная таблица с разрешением доступа к срезу
Иногда возникает необходимость защитить сводную таблицу, сохранив при этом возможность использовать срез для фильтрации. Следующие шаги помогут вам этого добиться.
1. После вставки среза щёлкните по нему правой кнопкой мыши и выберите в контекстном меню пункт Размер и свойства. См. снимок экрана:
2. В области Формат среза нажмите Свойства, чтобы развернуть параметры, затем снимите флажок Заблокировано. См. снимок экрана:
3. Затем закройте область и нажмите Рецензирование > Защитить лист, чтобы защитить этот лист. См. снимок экрана:
4. В появившемся диалоговом окне Защита листа установите флажки только напротив пунктов Выбрать незаблокированные ячейки и Использование сводных таблиц и сводных диаграмм в списке Разрешить всем пользователям этого листа, после чего введите пароль и подтвердите его. См. снимок экрана:
5. Затем нажмите кнопку ОК, чтобы закрыть диалоговые окна. Теперь при попытке изменить отчёт сводной таблицы изменения применены не будут, однако вы сможете использовать функцию среза по мере необходимости.
Лучшие инструменты повышения продуктивности в Office
Раскройте весь потенциал Excel с помощью Kutools для Excel и ощутите эффективность как никогда раньше.Kutools для Excel предлагает более 300 расширенных функций для повышения продуктивности и Экономия времени.Нажмите здесь, чтобы получить нужную Вам функцию…
Office Tab добавляет в Office вкладки и значительно упрощает Вашу работу
- Включите редактирование и чтение во вкладках в Word, Excel, PowerPoint, Publisher, Access, Visio и Project.
- Открывайте и создавайте несколько документов во вкладках одного окна — вместо того чтобы использовать отдельные окна.
- Повышает вашу продуктивность на 50 % и экономит сотни кликов мышью каждый день!
Все надстройки Kutools — один установщик
Kutools for Office — набор надстроек для Excel, Word, Outlook и PowerPoint, а также Office Tab Pro, идеально подходящий командам, работающим с разными приложениями Office.
- Единый комплект— надстройки для Excel, Word, Outlook и PowerPoint + Office Tab Pro
- Один установщик, одна лицензия— настройка занимает считанные минуты (готово для MSI)
- Лучше работать вместе— оптимизированная продуктивность во всех приложениях Office
- 30-дневная полнофункциональная пробная версия— без регистрации и кредитной карты
- Лучшее соотношение цены и качества— экономия по сравнению с покупкой отдельных надстроек