Przejdź do głównej zawartości

Jak chronić tabelę przestawną w programie Excel?

W programie Excel, jak możemy chronić tabelę przestawną, aby uniemożliwić innym użytkownikom przeciąganie pól lub zepsucie układu? W tym artykule omówię niektóre metody ochrony tabeli przestawnej w arkuszu.

Chroń tabelę przestawną za pomocą kodu VBA

Chroń tabelę przestawną, ale zezwól na dostęp do fragmentatora


strzałka niebieski prawy bąbelek Chroń tabelę przestawną za pomocą kodu VBA

Poniższy kod VBA może pomóc w ochronie tabeli przestawnej, wykonaj następujące czynności:

1. Przytrzymaj ALT + F11 klawisze, aby otworzyć Microsoft Visual Basic for Applications okno.

2. Kliknij wstawka > Modułi wklej następujący kod w Moduł Okno.

Kod VBA: chroń tabelę przestawną

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. Następnie naciśnij F5 klucz do uruchomienia tego kodu, a pojawi się okno zachęty przypominające, że tabela przestawna została zabezpieczona, patrz zrzut ekranu:

doc chroń stół przestawny 1

Uwagi:

1. Ten kod wyłączy wiele funkcji tabeli przestawnej, takich jak uniemożliwianie użytkownikom przeciągania któregokolwiek z pól w inne miejsce oraz wyłączenie listy pól, ustawień pól, analizy i odświeżania.

2. Jeśli w aktywnym arkuszu znajduje się wiele tabel przestawnych, ten kod jest stosowany tylko do ostatniej tabeli przestawnej.


strzałka niebieski prawy bąbelek Chroń tabelę przestawną, ale zezwól na dostęp do fragmentatora

Czasami możesz chcieć chronić tabelę przestawną, ale zezwalając na dostęp do fragmentatora w celu zastosowania funkcji filtru, poniższe kroki mogą Ci pomóc.

1. Po wstawieniu fragmentatora kliknij go prawym przyciskiem myszy i wybierz Rozmiar i właściwości z menu kontekstowego, zobacz zrzut ekranu:

doc chroń stół przestawny 2

2, w Fragmentator formatu okienko, kliknij Właściwości aby rozwinąć opcje, a następnie usuń zaznaczenie Zamknięty opcja, patrz zrzut ekranu:

doc chroń stół przestawny 3

3. Następnie zamknij okienko, a następnie kliknij Review > Chroń arkusz aby chronić ten arkusz, zobacz zrzut ekranu:

doc chroń stół przestawny 4

4. W wyskoczył Chroń arkusz okno dialogowe, a następnie zaznacz Wybierz odblokowane komórki i Użyj tabeli przestawnej i wykresu przestawnego opcje tylko w Zezwalaj wszystkim użytkownikom tego arkusza pole listy, a następnie wprowadź hasło i potwierdź je, patrz zrzut ekranu:

doc chroń stół przestawny 5

5. Następnie kliknij OK , aby zamknąć okna dialogowe, a teraz, gdy klikniesz raport tabeli przestawnej i spróbujesz go zmienić, nie zostanie on zmodyfikowany, ale możesz zastosować funkcję fragmentatora według potrzeb.

Najlepsze narzędzia biurowe

🤖 Pomocnik AI Kutools: Zrewolucjonizuj analizę danych w oparciu o: Inteligentne wykonanie   |  Wygeneruj kod  |  Twórz niestandardowe formuły  |  Analizuj dane i generuj wykresy  |  Wywołaj funkcje Kutools...
Popularne funkcje: Znajdź, wyróżnij lub zidentyfikuj duplikaty   |  Usuń puste wiersze   |  Łącz kolumny lub komórki bez utraty danych   |   Okrągły bez wzoru ...
Super wyszukiwanie: Wiele kryteriów VLookup    Wiele wartości VLookup  |   Przeglądanie pionowe na wielu arkuszach   |   Wyszukiwanie rozmyte ....
Zaawansowana lista rozwijana: Szybko twórz listę rozwijaną   |  Zależna lista rozwijana   |  Lista rozwijana wielokrotnego wyboru ....
Menedżer kolumn: Dodaj określoną liczbę kolumn  |  Przesuń kolumny  |  Przełącz stan widoczności ukrytych kolumn  |  Porównaj zakresy i kolumny ...
Polecane funkcje: Fokus siatki   |  Widok projektu   |   Duży pasek formuły    Menedżer skoroszytów i arkuszy   |  Biblioteka zasobów (Automatyczny tekst)   |  Selektor dat   |  Połącz arkusze   |  Szyfruj/odszyfruj komórki    Wysyłaj e-maile według listy   |  Super filtr   |   Specjalny filtr (filtruj pogrubienie/kursywa/przekreślenie...) ...
15 najlepszych zestawów narzędzi12 Tekst Tools (Dodaj tekst, Usuń znaki, ...)   |   50 + Wykres rodzaje (Wykres Gantta, ...)   |   40+ Praktyczne Wzory (Oblicz wiek na podstawie urodzin, ...)   |   19 Wprowadzenie Tools (Wstaw kod QR, Wstaw obraz ze ścieżki, ...)   |   12 Konwersja Tools (Liczby na słowa, Przeliczanie walut, ...)   |   7 Połącz i podziel Tools (Zaawansowane wiersze łączenia, Podział komórki, ...)   |   ... i więcej

Zwiększ swoje umiejętności Excela dzięki Kutools for Excel i doświadcz wydajności jak nigdy dotąd. Kutools dla programu Excel oferuje ponad 300 zaawansowanych funkcji zwiększających produktywność i oszczędzających czas.  Kliknij tutaj, aby uzyskać funkcję, której najbardziej potrzebujesz...

Opis


Karta Office wprowadza interfejs z zakładkami do pakietu Office i znacznie ułatwia pracę

  • Włącz edycję i czytanie na kartach w programach Word, Excel, PowerPoint, Publisher, Access, Visio i Project.
  • Otwieraj i twórz wiele dokumentów w nowych kartach tego samego okna, a nie w nowych oknach.
  • Zwiększa produktywność o 50% i redukuje setki kliknięć myszką każdego dnia!
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