Gå til hovedindhold

Hvordan beskyttes pivottabel i Excel?

Hvordan kunne vi i Excel beskytte pivottabellen for at forhindre, at andre brugere trækker felterne eller ødelægger layoutet? I denne artikel vil jeg tale om nogle metoder til at beskytte pivottabellen i regnearket.

Beskyt pivottabellen med VBA-kode

Beskyt drejebordet, men tillad adgang til skæremaskinen


pil blå højre boble Beskyt pivottabellen med VBA-kode

Følgende VBA-kode kan hjælpe dig med at beskytte pivottabellen, gør venligst som dette:

1. Hold nede ALT + F11 nøgler til at åbne Microsoft Visual Basic til applikationer vindue.

2. Klik indsatte > Moduler, og indsæt følgende kode i Moduler Vindue.

VBA-kode: beskyt pivottabel

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. Tryk derefter på F5 tasten for at køre denne kode, og en promptboks vil poppe ud for at minde dig om, at pivottabellen er blevet beskyttet, se skærmbillede:

doc protect pivottabel 1

Bemærkninger:

1. Denne kode vil deaktivere mange af funktionerne i en pivottabel, såsom at forhindre brugere i at trække nogen af ​​felterne til en anden placering og deaktivere feltlisten, feltindstillingerne, drilldown og opdateringsfunktionen.

2. Hvis der er flere pivottabeller i det aktive ark, anvendes denne kode kun på den sidste pivottabel.


pil blå højre boble Beskyt drejebordet, men tillad adgang til skæremaskinen

Nogle gange vil du måske beskytte pivottabellen, men hvis du giver adgang til udskæreren for at anvende filterfunktionen, kan de følgende trin gøre dig en tjeneste.

1. Efter at have indsat sliceren, højreklik på den og vælg Størrelse og egenskaber fra kontekstmenuen, se skærmbillede:

doc protect pivottabel 2

2. I Format Slicer rude, klik Ejendomme for at udvide mulighederne, og fjern derefter markeringen Låst mulighed, se skærmbillede:

doc protect pivottabel 3

3. Luk derefter ruden, og klik derefter anmeldelse > Beskyt ark for at beskytte dette ark, se skærmbillede:

doc protect pivottabel 4

4. I poppet ud Beskyt ark dialogboksen, og tjek derefter Vælg ulåste celler , Brug pivottabel og pivotdiagram muligheder kun i Tillad alle brugere af dette regneark til listeboks, og indtast derefter adgangskoden og bekræft den, se skærmbillede:

doc protect pivottabel 5

5. Klik derefter på OK knappen for at lukke dialogerne, og nu, når du klikker på pivottabelrapporten og prøver at ændre den, bliver den ikke ændret, men du kan anvende Slicer-funktionen efter behov.

Bedste kontorproduktivitetsværktøjer

🤖 Kutools AI Aide: Revolutionér dataanalyse baseret på: Intelligent udførelse   |  Generer kode  |  Opret brugerdefinerede formler  |  Analyser data og generer diagrammer  |  Aktiver Kutools funktioner...
Populære funktioner: Find, fremhæv eller identificer dubletter   |  Slet tomme rækker   |  Kombiner kolonner eller celler uden at miste data   |   Runde uden formel ...
Super opslag: VLookup med flere kriterier    Multiple Value VLookup  |   VOpslag på tværs af flere ark   |   Fuzzy Lookup ....
Avanceret rulleliste: Opret hurtigt rulleliste   |  Afhængig rulleliste   |  Multivælg rulleliste ....
Column Manager: Tilføj et bestemt antal kolonner  |  Flyt kolonner  |  Skift synlighedsstatus for skjulte kolonner  |  Sammenlign områder og kolonner ...
Fremhævede funktioner: Grid fokus   |  Designvisning   |   Stor Formel Bar    Arbejdsbog & Ark Manager   |  Ressourcebibliotek (Autotekst)   |  Datovælger   |  Kombiner regneark   |  Krypter/Dekrypter celler    Send e-mails efter liste   |  Superfilter   |   Specielt filter (filter fed/kursiv/gennemstreget...) ...
Top 15 værktøjssæt12 tekst Værktøjer (tilføje tekst, Fjern tegn, ...)   |   50 + Chart Typer (Gantt kort, ...)   |   40+ Praktisk formler (Beregn alder baseret på fødselsdag, ...)   |   19 Indsættelse Værktøjer (Indsæt QR-kode, Indsæt billede fra sti, ...)   |   12 Konvertering Værktøjer (Tal til ord, Valutaomregning, ...)   |   7 Flet og del Værktøjer (Avancerede kombinere rækker, Opdel celler, ...)   |   ... og mere

Overlad dine Excel-færdigheder med Kutools til Excel, og oplev effektivitet som aldrig før. Kutools til Excel tilbyder over 300 avancerede funktioner for at øge produktiviteten og spare tid.  Klik her for at få den funktion, du har mest brug for...

Beskrivelse


Fanen Office bringer en grænseflade til et kontor med Office, og gør dit arbejde meget lettere

  • Aktiver redigering og læsning af faner i Word, Excel, PowerPoint, Publisher, Access, Visio og Project.
  • Åbn og opret flere dokumenter i nye faner i det samme vindue snarere end i nye vinduer.
  • Øger din produktivitet med 50 % og reducerer hundredvis af museklik for dig hver dag!
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