Բաց թողնել հիմնական բովանդակությունը

Ինչպե՞ս պաշտպանել առանցքային աղյուսակը Excel- ում:

Excel- ում ինչպե՞ս կարող ենք պաշտպանել առանցքային աղյուսակը, որպեսզի այլ օգտվողներ դաշտերը չքաշեն կամ դասավորությունը չխառնեն: Այս հոդվածում ես կխոսեմ աշխատանքային թերթում առանցքային աղյուսակը պաշտպանելու որոշ մեթոդների մասին:

Պաշտպանեք առանցքային աղյուսակը VBA կոդով

Պաշտպանեք առանցքային աղյուսակը, բայց թույլ տվեք մուտքը կտրող սարքին


նետ կապույտ աջ պղպջակ Պաշտպանեք առանցքային աղյուսակը VBA կոդով

Հետևյալ VBA կոդը կարող է օգնել ձեզ պաշտպանել առանցքային աղյուսակը, խնդրում ենք արեք հետևյալ կերպ.

1, Պահեք պահեք ALT + F11 բացել ստեղները Microsoft Visual Basic հավելվածների համար պատուհան.

2: Սեղմեք Տեղադրել > Մոդուլներ, և տեղադրեք հետևյալ կոդը Մոդուլներ Պատուհանը:

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. Այս կոդը անջատելու է առանցքային աղյուսակի շատ գործառույթներ, ինչպիսիք են ՝ օգտվողներին կանխելը որևէ դաշտը որևէ այլ վայր տեղափոխելը և անջատել Field List- ը, Field Settings- ը, Drilldown- ը և Refresh- ը:

2. Եթե ակտիվ թերթում կան բազմաթիվ առանցքային աղյուսակներ, այս կոդը կիրառվում է միայն վերջին առանցքային աղյուսակի վրա:


նետ կապույտ աջ պղպջակ Պաշտպանեք առանցքային աղյուսակը, բայց թույլ տվեք մուտքը կտրող սարքին

Երբեմն գուցե ցանկանաք պաշտպանել առանցքային աղյուսակը, բայց թույլ տալով զտիչի գործառույթը կիրառելու համար կտրող սարքին հետևել, հետևյալ քայլերը կարող են լավություն բերել ձեզ:

1, Կտրիչը տեղադրելուց հետո, այնուհետև սեղմեք այն և ընտրեք Չափը և հատկությունները համատեքստային ընտրացանկից տե՛ս նկարը.

doc պաշտպանել առանցքային աղյուսակ 2

2, Մեջ Ձևաչափի կտրիչ վահանակ, սեղմեք Հատկություններ ընդլայնել ընտրանքները, ապա հանել ընտրությունը կողպված տարբերակը, տես նկարի նկարը.

doc պաշտպանել առանցքային աղյուսակ 3

3, Ապա փակեք պատուհանը և այնուհետև կտտացրեք տեսություն > Պաշտպանեք Թերթիկը այս թերթը պաշտպանելու համար տես նկարի նկարը.

doc պաշտպանել առանցքային աղյուսակ 4

4, Դուրս ցցված Պաշտպանեք Թերթիկը երկխոսության տուփ, ապա ստուգեք Ընտրեք ապակողպված բջիջները և Օգտագործեք PivotTable & PivotChart ընտրանքներ միայն Թույլատրել այս աշխատաթերթի բոլոր օգտագործողներին ցուցակի վանդակը, ապա մուտքագրեք գաղտնաբառը և հաստատեք այն, տես նկարի նկարը.

doc պաշտպանել առանցքային աղյուսակ 5

5. Այնուհետեւ կտտացրեք OK երկխոսությունները փակելու կոճակը, և այժմ, երբ կտտացնում եք առանցքային աղյուսակի հաշվետվությունը և փորձում փոխել այն, այն չի փոփոխվի, բայց կարող եք կիրառել Slicer հատկությունը, ինչպես ձեզ հարկավոր է:

Գրասենյակի արտադրողականության լավագույն գործիքները

🤖 Kutools AI օգնականՀեղափոխություն կատարել տվյալների վերլուծության հիման վրա՝ Խելացի կատարում   |  Ստեղծեք ծածկագիր  |  Ստեղծեք հատուկ բանաձևեր  |  Վերլուծել տվյալները և ստեղծել գծապատկերներ  |  Invoke Kutools-ի գործառույթները...
Հանրաճանաչ հատկություններ: Գտեք, ընդգծեք կամ նույնականացրեք կրկնօրինակները   |  Deleteնջել դատարկ շարքերը   |  Միավորել սյունակները կամ բջիջները՝ առանց տվյալների կորստի   |   Կլոր առանց բանաձևի ...
Super Փնտրել: Բազմաթիվ չափանիշների VLookup    Բազմակի արժեք VLookup  |   VLookup բազմաթիվ թերթերում   |   Fuzzy Փնտրել ....
Ընդլայնված բացվող ցուցակ: Արագ ստեղծեք բացվող ցուցակը   |  Կախված բացվող ցուցակ   |  Բազմակի ընտրություն Drop Down ցուցակ ....
Սյունակի կառավարիչ: Ավելացրեք որոշակի քանակությամբ սյունակներ  |  Տեղափոխել սյունակները  |  Փոխարկել թաքնված սյունակների տեսանելիության կարգավիճակը  |  Համեմատեք միջակայքերը և սյունակները ...
Առանձնահատկություններ: Ցանցի կենտրոնացում   |  Դիզայնի տեսք   |   Մեծ Formula Bar    Աշխատանքային գրքույկի և թերթիկների կառավարիչ   |  Ռեսուրսների գրադարան (Ավտոմատ տեքստ)   |  Ամսաթիվ ընտրող   |  Միավորել աշխատանքային թերթերը   |  Գաղտնագրել/գաղտնազերծել բջիջները    Ուղարկեք նամակներ ըստ ցանկի   |  Սուպեր զտիչ   |   Հատուկ զտիչ (զտել թավ/շեղ/շեղված...) ...
Լավագույն 15 գործիքների հավաքածու12 Տեքստ Գործիքներ (Ավելացրեք տեքստ, Հեռացնել նիշերը, ...)   |   50+ Աղյուսակ Տեսակներ (Գանտի աղյուսակը, ...)   |   40+ Գործնական Բանաձեւեր (Հաշվարկել տարիքը ՝ ելնելով ծննդյան տարեդարձից, ...)   |   19 միացում Գործիքներ (Տեղադրեք QR կոդ, Տեղադրեք նկար ուղուց, ...)   |   12 Փոխարկում Գործիքներ (Բառեր համարներ, Արտարժույթի փոխակերպումը, ...)   |   7 Միաձուլում և պառակտում Գործիքներ (Ընդլայնված կոմբինատ տողեր, Պառակտված բջիջներ, ...)   |   ... եւ ավելին

Լրացրեք ձեր Excel-ի հմտությունները Kutools-ի հետ Excel-ի համար և փորձեք արդյունավետությունը, ինչպես երբեք: Kutools-ը Excel-ի համար առաջարկում է ավելի քան 300 առաջադեմ առանձնահատկություններ՝ արտադրողականությունը բարձրացնելու և ժամանակ խնայելու համար:  Սեղմեք այստեղ՝ Ձեզ ամենաշատ անհրաժեշտ հատկանիշը ստանալու համար...

Նկարագրություն


Office Tab- ը Tabbed ինտերֆեյսը բերում է Office, և ձեր աշխատանքը շատ ավելի դյուրին դարձրեք

  • Միացնել ներդիրներով խմբագրումը և ընթերցումը Word, Excel, PowerPoint- ով, Հրատարակիչ, 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