Есть ли способ написать подраздел, который отключит возможность вставки сводной таблицы в книгу?VBA Block Pivot Table Creation
0
A
ответ
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
Это немного рубить, - но вы можете удалить его после создания с помощью следующей логики:
- Ловушка
Workbook_SheetChange
событие и испытание, еслиTarget
диапазон имеетPivotTable
свойство - Если да, то получить
PivotTable
«sTableRange2
и удалить этот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
Смежные вопросы
- 1. Pivot Table-VBA Ошибка
- 2. VBA Select Pivot Table
- 3. Pivot Table - макрос VBA
- 4. VBA-Pivot Table
- 5. excel vba create pivot table
- 6. SQL-TABLE CREATION
- 7. Excel VBA Pivot Table Fill Header
- 8. VBA Pivot Table Свернуть все поля
- 9. VBA Pivot Table On New Sheet
- 10. Excel VBA Auto Filter Pivot Table
- 11. Javascript Img Table Creation Issue
- 12. Pivot Table Grand Всего наверху
- 13. Pivon pivot table
- 14. pandas pivot table расположение
- 15. sql table pivot
- 16. Pivot SQL table
- 17. Oracle Pivot Multi Table
- 18. Python Pivot Table Python
- 19. Python Pandas Pivot Table
- 20. Pivot Table Pandas
- 21. Transpose Pandas Pivot Table
- 22. Формат Pandas Pivot Table
- 23. SQL Pivot table dilemma
- 24. Larvel Pivot Table принадлежитToMany
- 25. select sql pivot table
- 26. PIVOT TABLE WITH MULTITAB
- 27. SQL Pivot table
- 28. SQL pivot/join table?
- 29. SQL Pivot Table dynamic
- 30. Microsoft SQL Pivot Table