Ինչպե՞ս կանխել ընդհանուր անպաշտպան աշխատանքային գրքում տողերի կամ սյունակների ջնջումը:
Երբ աշխատանքային գիրք եք կիսում ուրիշներին, ինչպե՞ս կարող եք խանգարել, որ մյուսները ջնջեն ձեր համատեղ աշխատանքային գրքի սյունակները կամ տողերը ՝ առանց պաշտպանելու աշխատանքային գրքույկը: Այստեղ ես գտնում եմ 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նջել տարբերակը չի կարող կիրառվել համատեքստային ընտրացանկում: Տեսեք,
Բացի այդ, դա թույլ չի տալիս օգտվողներին օգտագործել դյուրանցման Ctrl + - ստեղներ տողերը կամ սյունակները ջնջելու համար:
Նշում:
(1) Եթե ձեր աշխատանքային գրքի հետ կիսվել եք տեսություն > Share աշխատանքային գրքույկ, այլևս չեք կարող ավելացնել ցանկացած VBA մակրո: Հետևաբար, ավելի լավ է ավելացնել VBA- ն ՝ նախքան աշխատանքային գիրքը կիսելը:
(2) Այս VBA- ն անջատելու է ջնջել բոլոր աշխատանքային գրքերում համատեքստի ընտրացանկում, երբ դուք աջ կտտացնում եք ընտրված սյունակները կամ տողերը:
(3) վերականգնել ջնջել համատեքստային ընտրացանկում խնդրում ենք փոխարինել երկուսն էլ Կեղծ հետ Ճիշտ վերևում գտնվող VBA- ում և նորից գործարկել VBA- ն:
Գրասենյակի արտադրողականության լավագույն գործիքները
Լրացրեք ձեր Excel-ի հմտությունները Kutools-ի հետ Excel-ի համար և փորձեք արդյունավետությունը, ինչպես երբեք: Kutools-ը Excel-ի համար առաջարկում է ավելի քան 300 առաջադեմ առանձնահատկություններ՝ արտադրողականությունը բարձրացնելու և ժամանակ խնայելու համար: Սեղմեք այստեղ՝ Ձեզ ամենաշատ անհրաժեշտ հատկանիշը ստանալու համար...
Office Tab- ը Tabbed ինտերֆեյսը բերում է Office, և ձեր աշխատանքը շատ ավելի դյուրին դարձրեք
- Միացնել ներդիրներով խմբագրումը և ընթերցումը Word, Excel, PowerPoint- ով, Հրատարակիչ, Access, Visio և Project:
- Բացեք և ստեղծեք բազմաթիվ փաստաթղթեր նույն պատուհանի նոր ներդիրներում, այլ ոչ թե նոր պատուհաններում:
- Բարձրացնում է ձեր արտադրողականությունը 50%-ով և նվազեցնում մկնիկի հարյուրավոր սեղմումները ձեզ համար ամեն օր: