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

Ինչպե՞ս կանխել բջիջների հատուկ պարունակության ջնջումը Excel- ում:

Այս հոդվածում խոսվում է այն բանի մասին, որ Excel- ում բջիջների հատուկ պարունակությունը չի ջնջվում: Դուք կարող եք դրան հասնել այս հոդվածում ներկայացված մեթոդներով:

Կանխել բջիջների հատուկ պարունակության ջնջումը ՝ պաշտպանելով աշխատանքային թերթը
Կանխեք բջիջների հատուկ պարունակության ջնջումը ՝ օգտագործելով VBA կոդ


Կանխել բջիջների հատուկ պարունակության ջնջումը ՝ պաշտպանելով աշխատանքային թերթը

Լռելյայնորեն, աշխատանքային թերթի բոլոր բջիջները կողպված են: Եթե ​​ցանկանում եք կանխել բջիջների հատուկ պարունակության ջնջումը, և պաշտպանելուց հետո այլ բջիջներ դարձրեք խմբագրելի, ապա արեք հետևյալը.

1. Սեղմեք աշխատաթերթի վերին ձախ անկյունում գտնվող կոճակը `ամբողջ աշխատանքային թերթը ընտրելու համար: Դրանից հետո սեղմեք Ctrl + 1 բացել ստեղները Ձևաչափել բջիջները երկխոսության վանդակում:

2. Պատուհանման մեջ Ձևաչափել բջիջները երկխոսության տուփ, ապանշել կողպված տարբերակով Պաշտպանություն էջանշանը, ապա սեղմեք OK կոճակ Տեսեք,

3. Ընտրեք այն բջիջները, որոնք չեք ցանկանում, որ բովանդակությունը ջնջվի, սեղմեք Ctrl + 1 ստեղներ ՝ բացելու համար Ձևաչափել բջիջները նորից երկխոսության տուփ, ստուգեք կողպված տարբերակով Պաշտպանություն էջանշանը, ապա սեղմեք OK կոճակը:

4. Այժմ կտտացրեք տեսություն > Պաշտպանեք Թերթիկը, ապա նշեք և հաստատեք ձեր գաղտնաբառը և՛ մեկում Պաշտպանեք Թերթիկը և Հաստատել գաղտնաբառը երկխոսության տուփեր:

Այժմ աշխատանքային թերթը պաշտպանված է: Եվ նշված բջջային բովանդակությունն այլևս չի ջնջվի:


Կանխեք բջիջների հատուկ պարունակության ջնջումը ՝ օգտագործելով VBA կոդ

Բացի վերը նշված երկու մեթոդներից, դուք կարող եք գործարկել VBA կոդ ՝ կանխելու համար, որ բջիջների հատուկ պարունակությունը ջնջվի աշխատանքային թերթում: Խնդրում եմ, արեք հետևյալ կերպ.

1. Բացեք աշխատաթերթը, որը պարունակում է այն բջջային բովանդակությունը, որը չեք ցանկանում ջնջել, աջով կտտացրեք թերթիկի ներդիրին և այնուհետև կտտացրեք Դիտել կոդը աջ կտտացնելու ցանկից:

2. Պատճենեք և կպցրեք ստորև ներկայացված VBA կոդը կոդի պատուհանում Microsoft Visual Basic հավելվածների համար պատուհան.

VBA կոդ. Կանխել հատուկ բջիջների պարունակության ջնջումը Excel- ում

Private Sub Worksheet_Change(ByVal Target As Range)
    If Intersect(Target, Range("A1:E7")) Is Nothing Then Exit Sub
    On Error GoTo ExitPoint
    Application.EnableEvents = False
    If Not IsDate(Target(1)) Then
        Application.Undo
        MsgBox " You can't delete cell contents from this range " _
        , vbCritical, "Kutools for Excel"
    End If
ExitPoint:
    Application.EnableEvents = True
End Sub

ՆշումԿոդում `A1: E17- ը այն տիրույթն է, որի բջջային պարունակությունը կանխելու եք ջնջել: Դուք կարող եք փոխել տեսականին ՝ ելնելով ձեր կարիքներից:

Այսուհետ, երբ փորձում եք ջնջել բջիջների պարունակությունը A1: E17 տիրույթից, կստանաք a Excel- ի համար նախատեսված գործիքներ երկխոսության տուփը, ինչպես ցույց է տրված ստորև նշված նկարը, OK կոճակը:


Առնչվող հոդվածներ:


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

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 ներքևում
Տեսակավորել մեկնաբանությունները ըստ
մեկնաբանություններ (17)
Գնահատված 5- ը 5- ից դուրս է · 1 վարկանիշ
Այս մեկնաբանությունը կայքի վարողի կողմից նվազագույնի է հասցվել
Պարզապես այն, ինչ ես փնտրում էի, շնորհակալություն օգնության համար:
Այս մեկնաբանությունը կայքի վարողի կողմից նվազագույնի է հասցվել
Մի անհանգստացեք միշտ այստեղ օգնելու համար :)
Այս մեկնաբանությունը կայքի վարողի կողմից նվազագույնի է հասցվել
Hi այնտեղ,

Ես պարզապես փորձեցի VBA սկրիպտը, և չնայած այն իսկապես լավ է աշխատում շատ իրավիճակներում: Այնուամենայնիվ, այն չի աշխատում, երբ խմբագրվող բջիջից ներդիր եք անում չխմբագրվող սյունակ/բջիջ: Խնդիրն առաջանում է նրանից, որ այն վեր է նետում սխալի հաղորդագրությունը, ինչպես հրամայված է, բայց այն չի պահում այն ​​տվյալները, որոնք մուտքագրվել են բնօրինակ, խմբագրելի բջիջում, որտեղից ներդիր է եղել:

Կցանկանայի՞ք լրացում կատարել սկրիպտում, որպեսզի այն ընդունի տվյալներ խմբագրվող բջիջում, երբ մուտքագրեք un-editable:

Կենացը
Այս մեկնաբանությունը կայքի վարողի կողմից նվազագույնի է հասցվել
Բարի օր,
Ես փորձեցի, ինչպես դուք նշեցիք ձեր դեպքում, բայց ոչ մի սխալ չի նետում: Կտրամադրե՞ք ձեր գործի սքրինշոթը կամ կասե՞ք ինձ ձեր Office տարբերակը:
Շնորհակալություն ձեր մեկնաբանության համար:
Այս մեկնաբանությունը կայքի վարողի կողմից նվազագույնի է հասցվել
Եթե ​​դուք չեք ցանկանում նայել ձեր թերթիկը կամ գրել VBA կոդ, ապա ես օգտագործում եմ մի պարզ տեխնիկա, որը կանխում է ցանկացած անտեսում, բացառությամբ այն դեպքերի, երբ նրանք օգտագործում են «DELETE» ստեղնը (backspace-ը չի թույլատրվի, բայց Ջնջելը դժվար է դադարեցնել: ): Այն, ինչ ես արեցի, ավելացվեց տվյալների վավերացում հետևյալ կարգավորումներով.

1) Թույլատրել --> Ցուցակ

2) հանեք «Անտեսել դատարկը» և «ներբջջում բացվող ցանկը»

3) Աղբյուրում մուտքագրեք երկու կրկնակի չակերտ (այսինքն՝ «»)

4) Error Alert ներդիրում ստուգեք «Ցույց տալ սխալի փոփոխությունը անվավեր տվյալների մուտքագրումից հետո», ընտրեք «Stop» ոճի համար, այնուհետև մուտքագրեք սխալի հաղորդագրություն և նկարագրություն (օրինակ՝ Մի անտեսեք)
Այս մեկնաբանությունը կայքի վարողի կողմից նվազագույնի է հասցվել
Ողջու՜յն,
Thanks for sharing.
Այս մեկնաբանությունը կայքի վարողի կողմից նվազագույնի է հասցվել
VBA Code - Հիանալի հուշում, շնորհակալություն

Արդյո՞ք կա VBA կոդ՝ Excel-ում բջիջների որոշակի բովանդակության փոփոխումը և ջնջումը կանխելու համար:
Սովորական պաշտպանիչ թերթիկը չի՞ աշխատում ինձ մոտ, քանի որ ես կորցնում եմ տվյալները տեսակավորելու ունակությունը:

Նախապես շնորհակալություն - Նիլ
Այս մեկնաբանությունը կայքի վարողի կողմից նվազագույնի է հասցվել
«Կանխեք հատուկ բջջային բովանդակության ջնջումը` պաշտպանելով աշխատաթերթը»: Ես արեցի ձեր ուղեցույցի համաձայն, այնուամենայնիվ, բջջային տեղեկատվությունը կարող է ջնջվել, այսինքն պաշտպանությունը չի գործում: Ցանկացած լուծում.
Այս մեկնաբանությունը կայքի վարողի կողմից նվազագույնի է հասցվել
Բարև Ահսան,
Դուք կիրառե՞լ եք VBA մեթոդը:
Դուք պետք է ավելացնեք VBA-ն աշխատաթերթի կոդի պատուհանում: Ենթադրելով, որ բջիջի բովանդակությունը, որը ցանկանում եք պաշտպանել, գտնվում է Sheet9-ում, խնդրում ենք աջ սեղմել թերթի ներդիրի վրա և համատեքստի ընտրացանկից ընտրել Դիտել կոդը, այնուհետև ուղղակիորեն պատճենել կոդը կոդի պատուհանում, ինչպես ցույց է տրված ստորև ներկայացված պատկերը:
Այս մեկնաբանությունը կայքի վարողի կողմից նվազագույնի է հասցվել
Ողջույն, այս կոդը լավ է աշխատում, սակայն տող/սյունակ ջնջելը կշրջանցի այն: Կա՞ որևէ լուծում այս հարցում: Շնորհավոր, Դավիթ:
Այս մեկնաբանությունը կայքի վարողի կողմից նվազագույնի է հասցվել
Hi David,
Excel-ի ո՞ր տարբերակն եք օգտագործում: Ես փորձել եմ կոդը, նշված տիրույթի ամբողջ տողերն ու սյունակները չեն կարող ջնջվել կոդը կիրառելուց հետո:
Այս մեկնաբանությունը կայքի վարողի կողմից նվազագույնի է հասցվել
Շնորհակալություն արժեքավոր տեղեկատվության համար։
Ինչ վերաբերում է ստորև նշված VBA-ին.
Private Sub Worksheet_Change (ByVal Target as Range)
Եթե ​​խաչմերուկը (Թիրախը, միջակայքը ("A1:E7")) ոչինչ է, ապա դուրս եկեք ենթակետից
Սխալի դեպքում GoTo ExitPoint
Application.EnableEvents = False
If Not IsDate(Target(1)) Ապա
Դիմում. Հետարկել
MsgBox «Դուք չեք կարող ջնջել բջիջների բովանդակությունը այս տիրույթից» _
, vbCritical, «Kutools for Excel»
Վերջ: Եթե
Ելքի կետ.
Application.EnableEvents = Ճիշտ է
Վերջ Sub

Վերոնշյալը թույլ կտա կատարել որոշակի սահմանված տիրույթում: Այն թույլ չի տալիս նոր տողերի ավելացում։ Արդյո՞ք կա նոր տողեր ավելացնելու հնարավորություն՝ պահպանելով նույն պաշտպանությունը:
շնորհակալություն և հարգանքներով
Այս մեկնաբանությունը կայքի վարողի կողմից նվազագույնի է հասցվել
Բարև Ուսամա Աբու Ֆարաջ,
Տարբեր մեթոդներով փորձելուց հետո, կարծես թե, չեմ կարողանում դա գործի դնել: Նոր տող ավելացնելուց հետո տարածքը անմիջապես կկողպվի, և նոր տեղադրված բջիջը հնարավոր չէ խմբագրել:
Այս մեկնաբանությունը կայքի վարողի կողմից նվազագույնի է հասցվել
Հնարավո՞ր է նման բան անել աշխատանքային գրքույկի մակարդակով:

Private Sub Worksheet_Change (ByVal Target as Range)
Եթե ​​խաչմերուկ (Target, Range ("A1:M7000")) ոչինչ է, ապա դուրս եկեք ենթակետից
Սխալի դեպքում GoTo ExitPoint
Application.EnableEvents = False
If Not IsDate(Target(1)) Ապա
Դիմում. Հետարկել
MsgBox «Դուք չեք կարող ջնջել բջիջների բովանդակությունը այս տիրույթից» _
, vbCritical, «Kutools for Excel»
Վերջ: Եթե
Ելքի կետ.
Application.EnableEvents = Ճիշտ է
Վերջ Sub
Այս մեկնաբանությունը կայքի վարողի կողմից նվազագույնի է հասցվել
Բարև Գելու,
Նկատի ունեք կանխել «A1:M7000» միջակայքի ջնջումը ընթացիկ աշխատանքային գրքի բոլոր աշխատաթերթերում:
Այս մեկնաբանությունը կայքի վարողի կողմից նվազագույնի է հասցվել
Չէ, ես նկատի ունեի Ջնջումը ՉԹույլատրել (առանց wks-ի կամ wkb-ի պաշտպանության):

Հաճելի է, որ վերը նշվածը աշխատում է Wks մակարդակով:

Եթե ​​կա ինչ-որ բան, որպեսզի այն աշխատի wkb մակարդակով, ավելի լավ կլինի (ես ունեմ շատ թերթիկներ)

G
Այս մեկնաբանությունը կայքի վարողի կողմից նվազագույնի է հասցվել
Սա շատ լավ է. Ես մտածում էի, թե արդյոք սա տարբերակ էր, և դա բավական է: Շնորհակալություն շատ հեշտ հրահանգների համար:

Անդրես Ս.
Գնահատված 5- ը 5- ից դուրս է
Առայժմ ոչ մի մեկնաբանություն չկա
Թողեք ձեր մեկնաբանությունները
Հրապարակում որպես հյուր
×
Գնահատեք այս գրառումը.
0   Անձնավորություններ
Առաջարկվող վայրեր

Հետեւեք մեզ

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