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:
- Sut i atal taflen waith benodol rhag cael ei dileu yn Excel?
- Sut i atal dewis nifer o daflenni gwaith yn Excel?
Offer Cynhyrchiant Swyddfa Gorau
Supercharge Eich Sgiliau Excel gyda Kutools ar gyfer Excel, a Phrofiad Effeithlonrwydd Fel Erioed Erioed. Kutools ar gyfer Excel Yn Cynnig Dros 300 o Nodweddion Uwch i Hybu Cynhyrchiant ac Arbed Amser. Cliciwch Yma i Gael Y Nodwedd Sydd Ei Angen Y Mwyaf...
Mae Office Tab yn dod â rhyngwyneb Tabbed i Office, ac yn 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!