Как поставить защиту на сводную таблицу в Excel

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

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

- EnableWizard: Установка этого свойства в значение False отключает PivotTable Tools - контекстное меню, которое обычно активизируется при щелчке внутри сводной таблицы. В Excel 2003, этот параметр отключает мастер диаграмм и сводных таблиц Pivot.

- EnableDrilldown: Установка этого свойства в False, мешает пользователям получить подробные данные, дважды щелкнув по полю сводной таблицы.

- EnableFieldList: Установка этого свойства в False препятствует активации списка полей или перемещению сводных полей.

- EnableFieldDialog: Установка этого свойства в значение False отключает способность пользователей изменять поле сводной с помощью диалогового окна.

- PivotCache.EnableRefresh: Установка этого свойства в значение False отключает возможность обновления сводной таблицы.

Вы можете установить любое из этих свойств независимо друг от друга либо установить все одновременно.

В этом макросе, мы применяем все ограничения к сводной таблице. 

1. Шаг 1 объявляет переменную объекта, используя Pt в качестве контейнера памяти для сводной таблицы.

2. Шаг 2 присваиваем активной сводной таблице переменную РТ. Мы делаем это, используя свойство ActiveCell.PivotTable.Name, чтобы получить имя целевого диапазона. Если активная ячейка не находится внутри сводной таблицы, выдается ошибка. Именно поэтому макрос использует On Error Resume Next Statement. Это говорит Excel продолжить макрос, если есть ошибка. 

3. Шаг 3 проверяет переменную РТ - если она пустая, то выводим пользователю сообщение о том, что необходимо поместить курсор в сводную таблицу и выходим из процедуры.

4. На последнем этапе макроса, мы применяем все ограничения к сводной таблице. 

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

1. Активируйте редактор Visual Basic, нажав ALT + F11. 
2. Щелкните правой кнопкой мыши имя проекта / рабочей книги в окне проекта. 
3. Выберите Insert➜Module. 
4. Введите или вставьте код во вновь созданном модуле.