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

Ինչպե՞ս կանխել բջիջների հատուկ պարունակության ջնջումը 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 կոճակը:


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

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

🤖 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 (18)
Rated 5 out of 5 · 1 ratings
This comment was minimized by the moderator on the site
Hi,

This is exactly what I was looking for, but it doesn't work for me...
This says: "End Sub expected"

Can you help me ?

Thanks :)
This comment was minimized by the moderator on the site
This is great. I was wondering if this was an option and sure enough it was. Thank you for the very easy instructions.

Andres S.
Rated 5 out of 5
This comment was minimized by the moderator on the site
No, I meant NOT to allow deletion (without protecting the wks or wkb).

It is nice the above works at Wks level.

If there is something to make it work at wkb level it would be even better (I have many sheets)

G
This comment was minimized by the moderator on the site
Is it possible to do something similar at workbook level?

Private Sub Worksheet_Change(ByVal Target As Range)
If Intersect(Target, Range("A1:M7000")) 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
This comment was minimized by the moderator on the site
Hi Gelu,
Do you mean to prevent the range "A1:M7000" from being deleted in all worksheets of the current workbook?
This comment was minimized by the moderator on the site
Thank you for the valuable information.
Regarding the below VBA:
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

The above will allow execution within a certain specified range. It does not allow the addition of new rows. Is there a way that new rows can be added yet maintaining the same protection.
thanks and regards
This comment was minimized by the moderator on the site
Hi Oussama Abou faraj,
After trying with various methods, I can't seem to get this to work. After adding a new row, the area will be locked Immediately and the newly inserted cell cannot be edited.
This comment was minimized by the moderator on the site
Hello, this code works well, however deleting row/collumn will bypass it. Is there any workaround to this? Cheers, David.
This comment was minimized by the moderator on the site
Hi David,
Which Excel version are you using? I have tried the code, entire rows and columns in the specified range can't be deleted after applying the code.
This comment was minimized by the moderator on the site
"Prevent specific cell contents from being deleted by protecting the worksheet"I did as per your guideline, still cell information could be deleted i.e. protection does not work. Any solution.
This comment was minimized by the moderator on the site
Hi Ahsan,
Did you apply the VBA method?
You need to add the VBA to the worksheet code window. Supposing the cell contents you want to protect are in Sheet9, please right click the sheet tab and select View Code from the context menu, and then directly copy the code into the code window as the below image shown.
This comment was minimized by the moderator on the site
VBA Code - Great Tip thanks

Is there a VBA code to Prevent specific cell contents from being modified AND deleted in Excel?
Usual protecting sheet does not work for me as I lose the ability to sort data?

Thanks in advance - Neil
This comment was minimized by the moderator on the site
If you don't wan to look your sheet or write VBA code, then I use a simple technique that prevents from any override except for when they use the "DELETE" key (backspace won't be allowed, but Delete is hard to stop). What I did is added a data validation with the following settings:

1) Allow --> List

2) uncheck "Ignore blank" and "in-cell dropdown"

3) In the source enter two double quotes (i.e., "")

4) In Error Alert tab, check "Show error alter after invalid data is entered", select "Stop" for style, then enter an error message and description (e.g., Don't override)
This comment was minimized by the moderator on the site
Hi,
Thanks for sharing.
This comment was minimized by the moderator on the site
Hi there,

I just tried the VBA script and while it works really well in most situations. However it doesn't work when you tab from an editable cell into the non-editable column/cell. The problem arises in that it throws the error message up - as commanded - but it doesn't keep the data that was entered in the original, editable cell which was tabbed from.

Would you have an amendment to the script so that it accepts the data in the editable cell when you tab into un-editable?

Cheers
This comment was minimized by the moderator on the site
Good day,
I tried as you mentioned in your case, but no error throws. Would you provide a screenshot of your case or tell me your Office version?
Thanks for your comment.
There are no comments posted here yet
Load More
Please leave your comments in English
Posting as Guest
×
Rate this post:
0   Characters
Suggested Locations