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

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

Հեղինակ՝ Արև Վերջին փոփոխությունը՝ 2022-12-21

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

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


նետ կապույտ աջ պղպջակ Կանխել 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- ն:

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

🤖 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 (7)
No ratings yet. Be the first to rate!
This comment was minimized by the moderator on the site
Está genial el código! Gracias! Pero esto no bloquea el poder eliminar la fila haciendo CTRL- .....
Sabrías cómo poder bloquearlo también?

Gracias!
This comment was minimized by the moderator on the site
Hi, I have updated the code in the article, you can try again, now it prevent the shortcuts and the delete command.
This comment was minimized by the moderator on the site
Bonjour

Je n'arrive plus à supprimer le fait de supprimer des lignes maintenant que j'ai créer ce code VBA.
Comment se traduit "les Vetitables" en français j'ai essayé "true" mais ça ne fonctionne pas

Merci de votre réponse
This comment was minimized by the moderator on the site
Sorry, Sand, I do not understand French.
This comment was minimized by the moderator on the site
Nice piece of code, but it doesn't prevent the user from using {ctrl} - to delete rows...
This comment was minimized by the moderator on the site
Vba code to disable delete, cut and insert option in Excel hoe ribbon
This comment was minimized by the moderator on the site
Can you Please share the vba code to disable Cut,Insert and Delete option in Home ribbon??? However i know thw vba code to disable it through right click and keyboard. But here i need code to disable cut, insert and delet option in excel home ribbon.
There are no comments posted here yet
Leave your comments
Posting as Guest
×
Rate this post:
0   Characters
Suggested Locations