Не удается отфильтровать слайсеры после защиты сводной таблицы

Question

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

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

Sub RefreshPivotTable()
'
' RefreshPivotTable Macro
'
    Dim DashboardSheet As Worksheet
    Set DashboardSheet = ThisWorkbook.Sheets("Dashboard")
    DashboardSheet.Unprotect
    Range("C7").Select
    ActiveSheet.PivotTables("Charger_Finder").PivotCache.Refresh
    DashboardSheet.Protect , DrawingObjects:=True, Contents:=True, Scenarios:=True, AllowUsingPivotTables:=True, AllowFiltering:=True
End Sub

Answer 1

Как насчет следующих действий:

ШАГ 1: Нажмите на слайсер, удерживайте клавишу CTRL и выберите другие слайсеры

ШАГ 2: Щелкните правой кнопкой мыши на слайсереи выберите Размер и свойства

ШАГ 3: в разделе «Положение и макет» установите флажок «Отключить изменение размера и перемещение»

ШАГ 4: в разделе «Свойства» снимите флажок «Заблокировано» и нажмите кнопку «Закрыть»

ШАГ 5: Перейдите в меню ленты и выберите «Просмотр»> «Защитить лист»

ШАГ 6: «Снимите флажок» «Выбрать заблокированные ячейки» и «Проверьте» отчеты «Выбрать разблокированные ячейки и используйте сводную таблицу»

ШАГ 7: Введите пароль (необязательно) и нажмите ОК

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

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