VBA块数据透视表创建

Question

有没有办法编写一个将禁用在工作簿中插入数据透视表的功能的子？

Answer 1

您可以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 

Answer 2

如果拆卸Excel中的数据透视插入供应那么你的目的，尽量

文件菜单>选项>自定义Rebbions>展开插入（右手侧）>选择表并单击删除按钮。

请注意，这种意志，删除表中插入选项也:(

Answer 3

这是一个黑客位的 - 但你可以通过以下逻辑后创建删除：

1. 陷阱的Workbook_SheetChange事件和测试，如果Target范围有PivotTable财产
2. 如果是的话，得到PivotTable的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