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

Sut i atal cynnwys celloedd penodol rhag cael ei ddileu yn Excel?

Mae'r erthygl hon yn sôn am atal cynnwys celloedd penodol rhag cael ei ddileu yn Excel. Gallwch ei gyflawni gyda'r dulliau yn yr erthygl hon.

Atal cynnwys celloedd penodol rhag cael ei ddileu trwy ddiogelu'r daflen waith
Atal cynnwys celloedd penodol rhag cael ei ddileu trwy ddefnyddio cod VBA


Atal cynnwys celloedd penodol rhag cael ei ddileu trwy ddiogelu'r daflen waith


Yn ddiofyn, mae'r holl gelloedd yn y daflen waith wedi'u cloi. Os ydych chi am atal cynnwys celloedd penodol rhag cael ei ddileu, a gwneud celloedd eraill yn olygadwy ar ôl eu gwarchod, gwnewch fel a ganlyn.

1. Cliciwch ar y botwm ar gornel chwith uchaf y daflen waith i ddewis y daflen waith gyfan. Yna pwyswch Ctrl + 1 allweddi i agor y Celloedd Fformat blwch deialog.

2. Yn y popping up Celloedd Fformat blwch deialog, dad-diciwch y Dan glo opsiwn o dan y Diogelu tab, ac yna cliciwch ar y OK botwm. Gweler y screenshot:

3. Dewiswch y celloedd nad ydych chi am i'r cynnwys gael eu dileu, pwyswch Ctrl + 1 allwedd i agor y Celloedd Fformat blwch deialog eto, gwiriwch y Dan glo opsiwn o dan y Diogelu tab, ac yna cliciwch ar y OK botwm.

4. Nawr cliciwch adolygiad > Diogelu Dalen, yna nodwch a chadarnhewch eich cyfrinair yn y ddau Diogelu Dalen ac cadarnhau Cyfrinair blychau deialog.

Nawr mae'r daflen waith wedi'i gwarchod. Ac ni fydd cynnwys penodol y gell yn cael ei ddileu mwyach.


Atal cynnwys celloedd penodol rhag cael ei ddileu trwy ddefnyddio cod VBA

Heblaw am y ddau ddull uchod, gallwch redeg cod VBA i atal cynnwys celloedd penodol rhag cael ei ddileu mewn taflen waith. Gwnewch fel a ganlyn.

1. Agorwch y daflen waith sy'n cynnwys cynnwys y gell nad ydych chi am gael ei dileu, cliciwch ar y dde ar y Tab Dalen, ac yna cliciwch Gweld y Cod o'r ddewislen clicio ar y dde.

2. Copïwch a gludwch y cod VBA isod i mewn i ffenestr Cod y Microsoft Visual Basic ar gyfer Ceisiadau ffenestr.

Cod VBA: Atal cynnwys celloedd penodol rhag cael ei ddileu yn 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

Nodyn: Yn y cod, A1: E17 yw'r amrediad y bydd cynnwys y gell y byddwch yn ei atal rhag cael ei ddileu. Gallwch newid yr ystod yn seiliedig ar eich anghenion.

O hyn ymlaen, pan fyddwch chi'n ceisio dileu cynnwys celloedd o ystod A1: E17, fe gewch chi a Kutools ar gyfer Excel blwch deialog fel isod dangosir y screenshot, cliciwch y OK botwm.


Erthyglau perthnasol:


Yr Offer Cynhyrchedd Swyddfa Gorau

Mae Kutools for Excel yn Datrys y rhan fwyaf o'ch Problemau, ac yn Cynyddu Eich Cynhyrchedd 80%

  • Ailddefnyddio: Mewnosod yn gyflym fformwlâu cymhleth, siartiau ac unrhyw beth rydych chi wedi'i ddefnyddio o'r blaen; Amgryptio Celloedd gyda chyfrinair; Creu Rhestr Bostio ac anfon e-byst ...
  • Bar Fformiwla Gwych (golygu llinellau lluosog o destun a fformiwla yn hawdd); Cynllun Darllen (darllen a golygu nifer fawr o gelloedd yn hawdd); Gludo i'r Ystod Hidlo...
  • Uno Celloedd / Rhesi / Colofnau heb golli Data; Cynnwys Celloedd Hollt; Cyfuno Rhesi / Colofnau Dyblyg... Atal Celloedd Dyblyg; Cymharwch y Meysydd...
  • Dewiswch Dyblyg neu Unigryw Rhesi; Dewiswch Blank Rows (mae pob cell yn wag); Darganfyddiad Gwych a Darganfyddiad Niwlog mewn Llawer o Lyfrau Gwaith; Dewis ar Hap ...
  • Copi Union Celloedd Lluosog heb newid cyfeirnod fformiwla; Auto Creu Cyfeiriadau i Daflenni Lluosog; Mewnosod Bwledi, Blychau Gwirio a mwy ...
  • Testun Detholiad, Ychwanegu Testun, Tynnu yn ôl Swydd, Tynnwch y Gofod; Creu ac Argraffu Subtotals Paging; Trosi rhwng Cynnwys a Sylwadau Celloedd...
  • Hidlo Super (arbed a chymhwyso cynlluniau hidlo i ddalenni eraill); Trefnu Uwch yn ôl mis / wythnos / dydd, amlder a mwy; Hidlo Arbennig gan feiddgar, italig ...
  • Cyfuno Llyfrau Gwaith a Thaflenni Gwaith; Uno Tablau yn seiliedig ar golofnau allweddol; Rhannwch Ddata yn Daflenni Lluosog; Trosi Swp xls, xlsx a PDF...
  • Mwy na 300 o nodweddion pwerus. Yn cefnogi Swyddfa / Excel 2007-2019 a 365. Yn cefnogi pob iaith. Defnydd hawdd yn eich menter neu sefydliad. Nodweddion llawn treial am ddim 30 diwrnod. Gwarant arian yn ôl 60 diwrnod.
tab kte 201905

Mae Tab Office yn Dod â rhyngwyneb Tabbed i'r Swyddfa, a Gwneud Eich Gwaith yn Haws o lawer

  • Galluogi golygu a darllen tabbed yn Word, Excel, PowerPoint, Cyhoeddwr, Mynediad, Visio a Phrosiect.
  • Agor a chreu dogfennau lluosog mewn tabiau newydd o'r un ffenestr, yn hytrach nag mewn ffenestri newydd.
  • Yn cynyddu eich cynhyrchiant 50%, ac yn lleihau cannoedd o gliciau llygoden i chi bob dydd!
gwaelod officetab
sylwadau (13)
Dim sgôr eto. Byddwch y cyntaf i sgorio!
Lleihawyd y sylw hwn gan y safonwr ar y wefan
Yr union beth roeddwn i'n edrych amdano, diolch am yr help!
Lleihawyd y sylw hwn gan y safonwr ar y wefan
peidiwch â phoeni yma i helpu bob amser :)
Lleihawyd y sylw hwn gan y safonwr ar y wefan
Hi 'na,

Rhoddais gynnig ar y sgript VBA ac er ei fod yn gweithio'n dda iawn yn y rhan fwyaf o sefyllfaoedd. Fodd bynnag, nid yw'n gweithio pan fyddwch yn tabio o gell y gellir ei golygu i'r golofn/gell na ellir ei golygu. Mae'r broblem yn codi yn yr ystyr ei fod yn taflu'r neges gwall i fyny - fel y gorchmynnwyd - ond nid yw'n cadw'r data a roddwyd yn y gell wreiddiol y gellir ei golygu y tabwyd ohoni.

A fyddai gennych chi ddiwygiad i'r sgript fel ei bod yn derbyn y data yn y gell y gellir ei olygu pan fyddwch chi'n tabio i mewn i anolygadwy?

Cheers
Lleihawyd y sylw hwn gan y safonwr ar y wefan
Da dydd,
Ceisiais fel y soniasoch yn eich achos, ond nid oes unrhyw wall yn taflu. A fyddech chi'n darparu sgrinlun o'ch achos neu'n dweud wrthyf eich fersiwn Office?
Diolch am eich sylwadau.
Lleihawyd y sylw hwn gan y safonwr ar y wefan
Os nad ydych am edrych ar eich dalen neu ysgrifennu cod VBA, yna rwy'n defnyddio techneg syml sy'n atal unrhyw wrthwneud ac eithrio pan fyddant yn defnyddio'r allwedd "DELETE" (ni chaniateir backspace, ond mae Dileu yn anodd ei stopio ). Yr hyn a wnes i yw ychwanegu dilysiad data gyda'r gosodiadau canlynol:

1) Caniatáu --> Rhestr

2) dad-diciwch "Anwybyddu'n wag" a "gwymp i lawr yn y gell"

3) Yn y ffynhonnell nodwch ddau ddyfynbris dwbl (hy, "")

4) Yn y tab Error Alert, gwiriwch "Dangos newid gwall ar ôl i ddata annilys gael ei fewnbynnu", dewiswch "Stop" ar gyfer arddull, yna nodwch neges gwall a disgrifiad (ee, Peidiwch â diystyru)
Lleihawyd y sylw hwn gan y safonwr ar y wefan
Heia,
Diolch am rannu.
Lleihawyd y sylw hwn gan y safonwr ar y wefan
Cod VBA - Cyngor Gwych diolch

A oes cod VBA i Atal cynnwys celloedd penodol rhag cael ei addasu A'i ddileu yn Excel?
Nid yw taflen amddiffyn arferol yn gweithio i mi gan fy mod yn colli'r gallu i ddidoli data?

Diolch ymlaen llaw - Neil
Lleihawyd y sylw hwn gan y safonwr ar y wefan
"Atal cynnwys celloedd penodol rhag cael ei ddileu trwy ddiogelu'r daflen waith"Gwnes yn unol â'ch canllaw, gellid dileu gwybodaeth celloedd llonydd hy nid yw amddiffyniad yn gweithio. Unrhyw ateb.
Lleihawyd y sylw hwn gan y safonwr ar y wefan
Helo Ahsan,
A wnaethoch chi gymhwyso'r dull VBA?
Mae angen ichi ychwanegu'r VBA at ffenestr cod y daflen waith. Gan dybio bod cynnwys y gell rydych chi am ei ddiogelu yn Nhaflen9, cliciwch ar y dde ar y tab dalen a dewis Gweld Cod o'r ddewislen cyd-destun, ac yna copïwch y cod yn uniongyrchol i ffenestr y cod fel y llun isod.
Lleihawyd y sylw hwn gan y safonwr ar y wefan
Helo, mae'r cod hwn yn gweithio'n dda, ond bydd dileu rhes/colofn yn ei osgoi. A oes unrhyw ateb i hyn? Llongyfarchiadau, David.
Lleihawyd y sylw hwn gan y safonwr ar y wefan
Helo David,
Pa fersiwn Excel ydych chi'n ei ddefnyddio? Rwyf wedi rhoi cynnig ar y cod, ni ellir dileu rhesi cyfan a cholofnau yn yr ystod benodedig ar ôl cymhwyso'r cod.
Lleihawyd y sylw hwn gan y safonwr ar y wefan
Diolch am y wybodaeth werthfawr.
O ran y VBA isod:
Is-daflen Waith Breifat_Newid(Targed ByVal Fel Ystod)
Os yw Intersect(Targed, Ystod ("A1:E7")) yn Dim Yna Gadael Is
Ar Gwall Ewch i ExitPoint
Application.EnableEvents = Gau
Os Na IsDate(Targed(1)) Yna
Cais.Dadwneud
msgstr " Ni allwch ddileu cynnwys cell o'r ystod hon " _
, vbCritical, "Kutools ar gyfer Excel"
Gorffennwch Os
ExitPoint:
Application.EnableEvents = Gwir
Is-End

Bydd yr uchod yn caniatáu gweithredu o fewn ystod benodol benodol. Nid yw'n caniatáu ychwanegu rhesi newydd. A oes ffordd y gellir ychwanegu rhesi newydd ond gan gynnal yr un amddiffyniad.
diolch a pharch
Lleihawyd y sylw hwn gan y safonwr ar y wefan
Helo Oussama Abou faraj,
Ar ôl ceisio gyda gwahanol ddulliau, ni allaf ymddangos i gael hyn i weithio. Ar ôl ychwanegu rhes newydd, bydd yr ardal yn cael ei chloi ar unwaith ac ni ellir golygu'r gell sydd newydd ei mewnosod.
Nid oes unrhyw sylwadau wedi'u postio yma eto
Gadewch eich sylwadau
Postio fel Gwestai
×
Graddiwch y swydd hon:
0   Cymeriadau
Lleoliadau a Awgrymir