2016-08-01 7 views

ответ

0

Вы можете protect the worksheets без включения отчетов «Использовать сводную таблицу '. Это также отключит кнопки ленты, связанные с Pivot.

Если вы предпочитаете VBA, следующий код должен сделать трюк.

Private Sub Workbook_SheetPivotTableUpdate(ByVal Sh As Object, ByVal Target As PivotTable) 
    If Target.VisibleFields.Count = 0 Then 
     Debug.Print "Blocked creation of Pivot " & Target.Name & " on sheet " & Sh.Name 
     Target.TableRange2.Clear 
    End If 
End Sub 
0

Если Удаление Pivot вставки на Excel служит ваша цель, то попробуйте

меню Файл> Параметры> Настроить Rebbions> Expand Вставка (правая сторона)> Выбрать таблицы и нажмите на кнопку Удалить.

Пожалуйста, следует отметить, что это будет, удалите опцию вставки таблицы также :(

1

Это немного рубить, - но вы можете удалить его после создания с помощью следующей логики:

  1. Ловушка Workbook_SheetChange событие и испытание, если Target диапазон имеет PivotTable свойство
  2. Если да, то получить PivotTable «s TableRange2 и удалить этот Range

Workbook_SheetChange код события (в ThisWorkbook):

Private Sub Workbook_SheetChange(ByVal Sh As Object, ByVal Target As Range) 

    On Error Resume Next 
    If Not Target.PivotTable Is Nothing Then 
     RemovePivotFromRange Target 
    End If 

End Sub 

Код для удаления пивот диапазон, содержащий (в Module):

Option Explicit 

Sub RemovePivotFromRange(rngTarget As Range) 

    Dim pvt As PivotTable 
    Dim rngPivot As Range 

    Set pvt = rngTarget.PivotTable 
    Set rngPivot = pvt.TableRange2 
    rngPivot.Delete Shift:=xlUp 

End Sub