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

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

Защита сводной таблицы с помощью кода VBA

Защита сводной таблицы с разрешением доступа к срезам

Защита сводной таблицы с помощью кода VBA

Следующий код VBA поможет вам защитить сводную таблицу. Пожалуйста, выполните следующие действия:

1. Нажмите и удерживайте клавиши ALT + F11, чтобы открыть окно Microsoft Visual Basic for Applications.

2. Нажмите Insert > Module и вставьте следующий код в окно модуля.

Код 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. Затем нажмите кнопку ОК, чтобы закрыть диалоговые окна. Теперь, когда вы кликнете по отчету сводной таблицы и попытаетесь изменить его, он не будет изменен, но вы сможете использовать функцию срезов по мере необходимости.