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