Note: The other languages of the website are Google-translated. Back to English

Ինչպե՞ս կանխել ընդհանուր անպաշտպան աշխատանքային գրքում տողերի կամ սյունակների ջնջումը:

Երբ աշխատանքային գիրք եք կիսում ուրիշներին, ինչպե՞ս կարող եք խանգարել, որ մյուսները ջնջեն ձեր համատեղ աշխատանքային գրքի սյունակները կամ տողերը ՝ առանց պաշտպանելու աշխատանքային գրքույկը: Այստեղ ես գտնում եմ VBA կոդ, որը կարող է խանգարել ուրիշներին ջնջել սյունակները և տողերը ընդհանուր աշխատանքային գրքում:

Կանխել VBA- ի հետ համատեղ աշխատանքային գրքում տողերի կամ սյունների ջնջումը

Office Tab- ը միացրեք Tabbed խմբագրումը և զննարկումը Office- ում, և ձեր աշխատանքը շատ ավելի դյուրին դարձրեք ...
Excel-ի համար Kutools-ը լուծում է ձեր խնդիրների մեծ մասը և բարձրացնում ձեր արտադրողականությունը 80%-ով
  • Վերաօգտագործել ցանկացած բան. Ավելացրեք առավել օգտագործված կամ բարդ բանաձևերը, գծապատկերները և ցանկացած այլ բան ձեր նախընտրածներին և հետագայում արագորեն օգտագործեք դրանք:
  • Ավելի քան 20 տեքստի առանձնահատկություններ. Հանեք համարը տեքստային տողից; Հանել կամ հեռացնել տեքստերի մի մասը; Թվերն ու արժույթները վերածեք անգլերեն բառերի:
  • Միաձուլել գործիքներըԲազմաթիվ աշխատանքային գրքեր և թերթեր մեկում; Միավորել բազմաթիվ բջիջներ / տողեր / սյուններ ՝ առանց տվյալների կորստի: Միաձուլեք կրկնօրինակ տողերն ու գումարը:
  • Պառակտման գործիքներՏվյալները պառակտել բազմակի թերթերի ՝ հիմնված արժեքի վրա. Մեկ աշխատանքային գրքույկ ՝ բազմակի Excel, PDF կամ CSV ֆայլեր; Մեկ սյունակ մի քանի սյունակներից:
  • Կպցնել բաց թողնելը Թաքնված / Filտված շարքեր; Հաշվելը և գումարը ըստ Ֆոնի գույնի; Personalանգվածային տարբերակով ստացողներին ուղարկեք անհատականացված էլ.
  • Սուպեր ֆիլտր Ստեղծեք զտման առաջադեմ սխեմաներ և կիրառեք ցանկացած թերթի վրա; Տեսակ ըստ շաբաթվա, օրվա, հաճախականության և ավելին; ֆիլտր համարձակ, բանաձևերով, մեկնաբանությամբ ...
  • Ավելի քան 300 հզոր հատկություններ; Աշխատում է Office 2007-2021 և 365-ի հետ; Աջակցում է բոլոր լեզուներին; Հեշտ տեղակայում ձեր ձեռնարկությունում կամ կազմակերպությունում:

նետ կապույտ աջ պղպջակ Կանխել VBA- ի հետ համատեղ աշխատանքային գրքում տողերի կամ սյունների ջնջումը

1. Մամուլ Alt + F11 բացելու համար Microsoft Visual Basic կիրառման համար պատուհան.

2: սեղմեք Տեղադրել > Մոդուլներ Մոդուլի պատուհանը բացելու համար, ապա պատճենեք հետևյալ VBA- ն պատուհանում:

VBA. Կանխել տողերի կամ սյունակների ջնջումը:

Sub StopDeleteRowCols()
'Updateby20221221
Dim xBarControl As CommandBarControl
Application.OnKey "^{-}", ""
For Each xBarControl In Application.CommandBars.FindControls(ID:=293)
    xBarControl.Enabled = False
Next
For Each xBarControl In Application.CommandBars.FindControls(ID:=294)
    xBarControl.Enabled = False
Next
End Sub

3: սեղմեք Վազում կոճակը կամ F5 ստեղնաշարի ստեղն ՝ այս կոդը գործարկելու համար:

Հետո, երբ մյուսները աջ կտտացնում են ընտրված սյունակները կամ տողերը ջնջելու համար, Deleteնջել տարբերակը չի կարող կիրառվել համատեքստային ընտրացանկում: Տեսեք,

doc- անջատել-ջնջել-շարքի սյունը -1

Բացի այդ, դա թույլ չի տալիս օգտվողներին օգտագործել դյուրանցման Ctrl + - ստեղներ տողերը կամ սյունակները ջնջելու համար:

Նշում:

(1) Եթե ձեր աշխատանքային գրքի հետ կիսվել եք տեսություն > Share աշխատանքային գրքույկ, այլևս չեք կարող ավելացնել ցանկացած VBA մակրո: Հետևաբար, ավելի լավ է ավելացնել VBA- ն ՝ նախքան աշխատանքային գիրքը կիսելը:

(2) Այս VBA- ն անջատելու է ջնջել բոլոր աշխատանքային գրքերում համատեքստի ընտրացանկում, երբ դուք աջ կտտացնում եք ընտրված սյունակները կամ տողերը:

(3) վերականգնել ջնջել համատեքստային ընտրացանկում խնդրում ենք փոխարինել երկուսն էլ Կեղծ հետ Ճիշտ վերևում գտնվող VBA- ում և նորից գործարկել VBA- ն:


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

Excel-ի համար Kutools-ը լուծում է ձեր խնդիրների մեծ մասը և բարձրացնում ձեր արտադրողականությունը 80%-ով

  • Վերաօգտագործել: Արագ տեղադրեք բարդ բանաձևեր, գծապատկերներ և այն ամենը, ինչ դուք նախկինում օգտագործել եք. Ryածկագրել բջիջները գաղտնաբառով; Ստեղծեք փոստային ցուցակ և նամակներ ուղարկել ...
  • Super Formula Bar (հեշտությամբ խմբագրեք տեքստի և բանաձևի բազմաթիվ տողեր); Ընթերցանության դասավորությունը (հեշտությամբ կարդալ և խմբագրել մեծ թվով բջիջներ); Տեղադրել ֆիլտրացված տիրույթում...
  • Միաձուլել բջիջները / տողերը / սյունակները առանց տվյալների կորստի. Պառակտված բջիջների պարունակությունը; Միավորել կրկնօրինակ տողերը / սյունակները... Կանխել կրկնօրինակ բջիջները; Համեմատեք միջակայքերը...
  • Ընտրեք Կրկնօրինակ կամ Եզակի Շարքեր; Ընտրեք դատարկ շարքեր (բոլոր բջիջները դատարկ են); Super Find և Fuzzy Find շատ աշխատանքային գրքույկներում; Պատահական ընտրություն ...
  • Actշգրիտ պատճեն Բազմաթիվ բջիջներ ՝ առանց բանաձևի հղումը փոխելու; Ավտոմատ ստեղծեք հղումներ դեպի մի քանի թերթեր; Տեղադրեք փամփուշտներ, Տուփեր և ավելին ...
  • Քաղվածք տեքստ, Տեքստ ավելացնել, հեռացնել ըստ դիրքի, Հեռացնել տարածությունը; Ստեղծել և տպել էջային ենթագոտիներ; Փոխարկել բջիջների բովանդակության և մեկնաբանությունների միջև...
  • Սուպեր զտիչ (պահպանել և կիրառել ֆիլտրի սխեմաները այլ թերթերի վրա); Ընդլայնված տեսակավորում ըստ ամիս / շաբաթ / օր, հաճախականություն և ավելին; Հատուկ զտիչ համարձակ, շեղատառով ...
  • Միավորել աշխատանքային տետրերը և աշխատանքային թերթերը; Միավորել աղյուսակները ՝ հիմնված հիմնական սյունակների վրա; Տվյալները բաժանեք մի քանի թերթերի; Խմբաքանակի փոխակերպում xls, xlsx և PDF...
  • Ավելի քան 300 հզոր հատկություններ. Աջակցում է Office / Excel 2007-2021 և 365: Աջակցում է բոլոր լեզուներին: Հեշտ տեղակայում ձեր ձեռնարկությունում կամ կազմակերպությունում: Ամբողջական հնարավորություններ 30-օրյա անվճար փորձարկում: 60-օրյա գումարի վերադարձի երաշխիք:
kte էջանիշը 201905

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

  • Միացնել ներդիրներով խմբագրումը և ընթերցումը Word, Excel, PowerPoint- ով, Հրատարակիչ, Access, Visio և Project:
  • Բացեք և ստեղծեք բազմաթիվ փաստաթղթեր նույն պատուհանի նոր ներդիրներում, այլ ոչ թե նոր պատուհաններում:
  • Բարձրացնում է ձեր արտադրողականությունը 50%-ով և նվազեցնում մկնիկի հարյուրավոր սեղմումները ձեզ համար ամեն օր:
officetab ներքևում
Տեսակավորել մեկնաբանությունները ըստ
մեկնաբանություններ (7)
Դեռևս գնահատականներ չկան: Եղիր առաջինը, ով կգնահատի:
Այս մեկնաբանությունը կայքի վարողի կողմից նվազագույնի է հասցվել
Կարո՞ղ եք կիսվել vba կոդը, որպեսզի անջատեք Cut,Insert and Delete տարբերակը Home ribbon-ում??? Այնուամենայնիվ, ես գիտեմ, որ vba կոդը անջատել այն աջ սեղմման և ստեղնաշարի միջոցով: Բայց այստեղ ինձ անհրաժեշտ է կոդ՝ excel home ribbon-ում կտրելու, տեղադրելու և ջնջելու տարբերակն անջատելու համար:
Այս մեկնաբանությունը կայքի վարողի կողմից նվազագույնի է հասցվել
Vba կոդ՝ Excel-ի ժապավենում ջնջելու, կտրելու և տեղադրելու տարբերակը անջատելու համար
Այս մեկնաբանությունը կայքի վարողի կողմից նվազագույնի է հասցվել
Գեղեցիկ կոդի կտոր, բայց դա չի խանգարում օգտվողին օգտագործել {ctrl}՝ տողերը ջնջելու համար...
Այս մեկնաբանությունը կայքի վարողի կողմից նվազագույնի է հասցվել
Բարեւ Ձեզ

Je n'arrive plus à supprimer le fait de supprimer des lignes maintenant que j'ai créer ce code VBA.
Մեկնաբանություն se traduit "les Vetitables" en français j'ai essayé "true" mais ça ne fonctionne pas

Շնորհակալ եմ ձեր պատասխանի համար
Այս մեկնաբանությունը կայքի վարողի կողմից նվազագույնի է հասցվել
Կներեք, Սանդ, ես ֆրանսերեն չեմ հասկանում:
Այս մեկնաբանությունը կայքի վարողի կողմից նվազագույնի է հասցվել
Գեղեցիկ էլ կոդիգո է: Շնորհակալ եմ: Pero esto no bloquea el poder eliminar la fila haciendo CTRL- .....
Sabrías como poder bloquearlo también?

Thank you!
Այս մեկնաբանությունը կայքի վարողի կողմից նվազագույնի է հասցվել
Ողջույն, ես թարմացրել եմ հոդվածի կոդը, կարող եք նորից փորձել, այժմ այն ​​կանխում է դյուրանցումները և ջնջման հրամանը։
Առայժմ ոչ մի մեկնաբանություն չկա
Թողեք ձեր մեկնաբանությունները
Հրապարակում որպես հյուր
×
Գնահատեք այս գրառումը.
0   Անձնավորություններ
Առաջարկվող վայրեր

Հետեւեք մեզ

Հեղինակային իրավունքի © 2009 - www.extendoffice.com. | Բոլոր իրավունքները պաշտպանված են. Powered by ExtendOffice. | | Կայքի քարտեզ
Microsoft- ը և Office- ի պատկերանշանը հանդիսանում են Microsoft Corporation- ի ապրանքային նշաններ կամ գրանցված ապրանքային նշաններ ԱՄՆ-ում և (կամ) այլ երկրներում:
Պաշտպանված է Sectigo SSL- ի կողմից