Прескочи на основното съдържание

Как да защитим обобщената таблица в Excel?

Автор: Xiaoyang Последна промяна: 2020-06-05

В Excel, как бихме могли да защитим обобщената таблица, за да попречим на други потребители да плъзгат полетата или да объркат оформлението? В тази статия ще говоря за някои методи за защита на обобщената таблица в работния лист.

Защитете обобщената таблица с VBA код

Защитете осевата таблица, но позволете достъп до слайсера


стрелка син десен балон Защитете обобщената таблица с VBA код

Следният VBA код може да ви помогне да защитите обобщената таблица, моля, направете следното:

1. Задръжте натиснат ALT + F11 за да отворите Microsoft Visual Basic за приложения прозорец.

2. Щракнете Поставете > Модулии поставете следния код в Модули Window.

VBA код: защита на обобщената таблица

Sub RestrictPivotTable()
'Updateby Extendoffice
Dim xpf As PivotField
Application.ScreenUpdating = False
With ActiveSheet.PivotTables(1)
  .EnableDrilldown = False
  .EnableFieldList = False
  .EnableFieldDialog = False
  .PivotCache.EnableRefresh = False
  For Each xpf In .PageFields
    With pf
      .DragToPage = False
      .DragToRow = False
      .DragToColumn = False
      .DragToData = False
      .DragToHide = False
    End With
  Next xpf
End With
Application.ScreenUpdating = False
    MsgBox "The pivot table has been protected!", vbInformation, "Kutools for Excel"
End Sub

3. След това натиснете F5 за да изпълните този код и ще изскочи поле за подкана, за да ви напомни, че обобщената таблица е защитена, вижте екранната снимка:

doc защита на обобщена таблица 1

Забележки:

1. Този код ще деактивира много от функциите в обобщена таблица, като например предотвратяване на потребителите да плъзгат някое от полетата на различно място и деактивиране на Списък с полета, Настройки на полета, Разбивка и функцията Обновяване.

2. Ако има няколко обобщени таблици в активния лист, този код се прилага само към последната обобщена таблица.


стрелка син десен балон Защитете осевата таблица, но позволете достъп до слайсера

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

1. След като поставите слайсера, щракнете с десния бутон върху него и изберете Размер и свойства от контекстното меню вижте екранната снимка:

doc защита на обобщена таблица 2

2. В Слайсер за форматиране панел, щракнете върху Имоти за разширяване на опциите и след това махнете отметката Заключен опция, вижте екранна снимка:

doc защита на обобщена таблица 3

3. След това затворете прозореца и след това щракнете Оценки на посетители > Защита на листа за да защитите този лист, вижте екранната снимка:

doc защита на обобщена таблица 4

4. В изскочилото Защита на листа диалогов прозорец, след което проверете Изберете отключени клетки намлява Използвайте обобщена таблица и обобщена диаграма опции само в Разрешете на всички потребители на този работен лист списъчно поле и след това въведете паролата и я потвърдете, вижте екранната снимка:

doc защита на обобщена таблица 5

5, След това кликнете OK бутон за затваряне на диалоговите прозорци и сега, когато щракнете върху отчета с обобщена таблица и се опитате да го промените, той няма да бъде променен, но можете да приложите функцията Slicer, както ви е необходимо.

Най-добрите инструменти за продуктивност в офиса

🤖 Kutools AI помощник: Революционизирайте анализа на данни въз основа на: Интелигентно изпълнение   |  Генериране на код  |  Създаване на персонализирани формули  |  Анализирайте данни и генерирайте диаграми  |  Извикване на функциите на Kutools...
Популярни функции: Намерете, маркирайте или идентифицирайте дубликати   |  Изтриване на празни редове   |  Комбинирайте колони или клетки без загуба на данни   |   Кръг без формула ...
Супер търсене: VLookup с множество критерии    VLookup с множество стойности  |   VLookup в няколко листа   |   Размито търсене ....
Разширен падащ списък: Бързо създаване на падащ списък   |  Зависим падащ списък   |  Падащ списък с множество избори ....
Мениджър на колони: Добавете конкретен брой колони  |  Преместване на колони  |  Превключване на състоянието на видимост на скритите колони  |  Сравнете диапазони и колони ...
Препоръчани функции: Мрежов фокус   |  Изглед на дизайна   |   Голям формула бар    Мениджър на работни книги и листове   |  Библиотека с ресурси (Автоматичен текст)   |  Избор на дата   |  Комбинирайте работни листове   |  Шифроване/декриптиране на клетки    Изпращайте имейли по списък   |  Супер филтър   |   Специален филтър (филтър получер/курсив/зачертано...) ...
Топ 15 комплекта инструменти12 Текст Инструменти (добавяне на текст, Премахване на символи, ...)   |   50 + Графика Видове (диаграма на Гант, ...)   |   40+ Практичен формули (Изчислете възрастта въз основа на рождения ден, ...)   |   19 вмъкване Инструменти (Въведете QR код, Вмъкване на картина от пътя, ...)   |   12 Конверсия Инструменти (Числа към думи, Валутен обмен, ...)   |   7 Обединяване и разделяне Инструменти (Разширено комбиниране на редове, Разделени клетки, ...)   |   ... и още

Усъвършенствайте уменията си за Excel с Kutools за Excel и изпитайте ефективност, както никога досега. Kutools за Excel предлага над 300 разширени функции за повишаване на производителността и спестяване на време.  Щракнете тук, за да получите функцията, от която се нуждаете най-много...

Описание


Раздел Office Внася интерфейс с раздели в Office и прави работата ви много по-лесна

  • Разрешете редактиране и четене с раздели в Word, Excel, PowerPoint, Publisher, Access, Visio и Project.
  • Отваряйте и създавайте множество документи в нови раздели на един и същ прозорец, а не в нови прозорци.
  • Увеличава вашата производителност с 50% и намалява стотици кликвания на мишката за вас всеки ден!
Comments (5)
No ratings yet. Be the first to rate!
This comment was minimized by the moderator on the site
Thank you for this tip. My question is, how do I reverse the code and edit the pivot table now?
This comment was minimized by the moderator on the site
For Each xpf In .PageFields
With pf

а где "х" потеряли?))) должно же быть With xpf
This comment was minimized by the moderator on the site
The macro doesn't work it just throws an object error
This comment was minimized by the moderator on the site
Hi, andrew,
The code works well, after applying the code, you will get the prompt box to remind you the pivot table has been protected, and then close it, now, when changing any data in the pivot table, a warning message box will be pop out.
This comment was minimized by the moderator on the site
Does not work. Get a run error
There are no comments posted here yet
Please leave your comments in English
Posting as Guest
×
Rate this post:
0   Characters
Suggested Locations