Перейти до основного матеріалу

Як захистити зведену таблицю в Excel?

Як в Excel ми могли захистити зведену таблицю, щоб інші користувачі не перетягували поля або не псували макет? У цій статті я розповім про деякі методи захисту зведеної таблиці на аркуші.

Захистіть зведену таблицю за допомогою коду VBA

Захистіть зведену таблицю, але надайте доступ до різальної машини


стрілка синя права міхур Захистіть зведену таблицю за допомогою коду VBA

Наступний код VBA може допомогти вам захистити зведену таблицю, виконайте наступні дії:

1. Утримуйте клавішу ALT + F11 ключі, щоб відкрити Microsoft Visual Basic для додатків вікна.

2. Клацання Insert > Модуліта вставте наступний код у Модулі Вікно

Код 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 , щоб закрити діалогові вікна, і тепер, коли ви клацаєте звіт зведеної таблиці та намагаєтесь змінити його, він не буде змінений, але ви можете застосувати функцію нарізки, як вам потрібно.

Найкращі інструменти продуктивності офісу

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

Покращуйте свої навички 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