Как отключить выбор нескольких элементов в сводной таблице?

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

Отключение выбора нескольких элементов в сводной таблице с помощью кода VBA

Отключение выбора нескольких элементов в сводной таблице с помощью кода VBA

Чтобы защитить выбор в сводной таблице от изменений, следующий код VBA поможет вам отключить функцию «Выбрать несколько элементов». Пожалуйста, выполните следующие действия:

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

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

Код VBA: Отключение выбора нескольких элементов в сводной таблице

Sub DisableSelection()
'Update 20141028
Dim xPF As PivotField
Set xPT = Application.ActiveSheet.PivotTables(1)
For Each xPF In xPT.PivotFields
    xPF.EnableItemSelection = False
Next xPF
End Sub

3. Затем нажмите клавишу F5 для запуска этого кода, и кнопки фильтра в сводной таблице будут немедленно удалены, см. скриншоты:

Примечания:

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

Код VBA: Включение выбора нескольких элементов в сводной таблице:

Sub DisableSelection()
'Update 20141028
Dim xPF As PivotField
Set xPT = Application.ActiveSheet.PivotTables(1)
For Each xPF In xPT.PivotFields
    xPF.EnableItemSelection = True
Next xPF
End Sub

2. Этот код применяется только к одной сводной таблице на активном листе.

Связанные статьи:

Как скрыть кнопки развернуть/свернуть в сводной таблице?

Как скрыть промежуточные итоги в сводной таблице?