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

Conas cosc ​​a chur ar ábhar sonrach cille a scriosadh in Excel?

Tá an t-alt seo ag caint ar chosc a chur ar ábhar sonrach cille a scriosadh in Excel. Is féidir leat é a bhaint amach leis na modhanna san alt seo.

Cosc a chur ar ábhar sonrach cille a scriosadh tríd an mbileog oibre a chosaint
Cosc a chur ar ábhar sonrach cille a scriosadh trí chód VBA a úsáid


Cosc a chur ar ábhar sonrach cille a scriosadh tríd an mbileog oibre a chosaint

De réir réamhshocraithe, tá gach cealla sa bhileog oibre faoi ghlas. Más mian leat ábhar sonrach cille a chosc ó scriosadh, agus cealla eile a chur in eagar tar éis iad a chosaint, déan mar a leanas le do thoil.

1. Cliceáil ar an cnaipe ar an gcúinne ar chlé barr na bileoige oibre chun an bhileog oibre iomlán a roghnú. Ansin brúigh Ctrl + 1 eochracha a oscailt Cealla Formáid dialóg.

2. Sa popping suas Cealla Formáid bosca dialóige, díthiceáil an Faoi Ghlas rogha faoin Cosaint tab, agus ansin cliceáil ar an OK cnaipe. Féach an pictiúr:

3. Roghnaigh na cealla nach dteastaíonn uait an t-ábhar a scriosadh, brúigh Ctrl + 1 eochracha chun an Cealla Formáid bosca dialóige arís, seiceáil an Faoi Ghlas rogha faoin Cosaint tab, agus ansin cliceáil ar an OK cnaipe.

4. Anois cliceáil Athbhreithniú > Bileog Cosanta, ansin sonraigh agus deimhnigh do phasfhocal sa dá Bileog Cosanta agus Deimhnigh Pasfhocal boscaí dialóige.

Anois tá an bhileog oibre cosanta. Agus ní scriosfar an t-ábhar cille sonraithe níos mó.


Cosc a chur ar ábhar sonrach cille a scriosadh trí chód VBA a úsáid

Chomh maith leis an dá mhodh thuas, is féidir leat cód VBA a rith chun cosc ​​a chur ar ábhar sonrach cille a scriosadh i mbileog oibre. Déan mar a leanas le do thoil.

1. Oscail an bhileog oibre ina bhfuil an t-ábhar cille nár mhaith leat a scriosadh, cliceáil ar dheis ar an mBileog Cluaisín, agus ansin cliceáil Féach an cód ón roghchlár cliceáil ar dheis.

2. Cóipeáil agus greamaigh an cód VBA thíos i bhfuinneog Chód an Microsoft Visual Basic d’Fheidhmchláir fhuinneog.

Cód VBA: Cosc a chur ar ábhar sonrach cille a scriosadh in 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

nótaí: Sa chód, is é A1: E17 an raon a choiscfidh tú an t-ábhar cille a scriosadh. Féadfaidh tú an raon a athrú bunaithe ar do chuid riachtanas.

As seo amach, nuair a bheidh tú ag iarraidh ábhar cille a scriosadh ó raon A1: E17, gheobhaidh tú a Kutools le haghaidh Excel bosca dialóige mar a thaispeántar thíos an scáileán, cliceáil ar an OK cnaipe.


Earraí gaolmhara:


Na hUirlisí Táirgiúlachta Oifige is Fearr

Réitíonn Kutools for Excel an chuid is mó de do chuid Fadhbanna, agus Méadaíonn sé do Tháirgiúlacht 80%

  • Athúsáid: Cuir isteach go tapa foirmlí casta, cairteacha agus aon rud a d'úsáid tú roimhe seo; Cealla a Chriptiú le pasfhocal; Cruthaigh Liosta Ríomhphoist agus seol ríomhphoist ...
  • Barra Foirmle Super (cuir línte iolracha téacs agus foirmle in eagar go héasca); Leagan Amach Léitheoireachta (líon mór cealla a léamh agus a chur in eagar go héasca); Greamaigh go dtí an Raon Scagtha...
  • Cumaisc Cealla / Sraitheanna / Colúin gan Sonraí a chailleadh; Ábhar Cealla Scoilt; Comhcheangail Sraitheanna / Colúin Dúblacha... Cill Dúblach a Chosc; Déan comparáid idir Ranganna...
  • Roghnaigh Dúblach nó Uathúil Sraitheanna; Roghnaigh Blank Rows (tá na cealla uile folamh); Aimsigh Super agus Fuzzy Aimsigh i go leor Leabhar Oibre; Roghnaigh go randamach ...
  • Cóip Díreach Cealla Il gan tagairt fhoirmle a athrú; Tagairtí Cruthaigh Auto chuig Bileoga Il; Cuir Urchair isteach, Boscaí Seiceála agus go leor eile ...
  • Sliocht Téacs, Cuir Téacs leis, Bain de réir Poist, Bain Spás; Subtotals Paging a chruthú agus a phriontáil; Tiontaigh Idir Ábhar Cealla agus Tráchtanna...
  • Scagaire Super (scéimeanna scagaire a shábháil agus a chur i bhfeidhm ar bhileoga eile); Ard-Sórtáil de réir míosa / seachtaine / lae, minicíocht agus níos mó; Scagaire Speisialta le cló trom, iodálach ...
  • Comhcheangail Leabhair Oibre agus Bileoga Oibre; Cumaisc Táblaí bunaithe ar eochaircholúin; Roinn Sonraí i Ilbhileoga; Baisc Tiontaigh xls, xlsx agus PDF...
  • Níos mó ná 300 gné chumhachtach. Tacaíonn Office / Excel 2007-2021 agus 365. Tacaíonn sé le gach teanga. Imscaradh éasca i d'fhiontar nó d'eagraíocht. Gnéithe iomlána triail saor in aisce 30-lá. Ráthaíocht airgid ar ais 60-lá.
cluaisín kte 201905

Tugann Tab Oifige comhéadan Tabbed chuig Office, agus Déan Do Obair i bhfad Níos Éasca

  • Cumasaigh eagarthóireacht agus léamh tabbed i Word, Excel, PowerPoint, Foilsitheoir, Rochtain, Visio agus Tionscadal.
  • Oscail agus cruthaigh cáipéisí iolracha i gcluaisíní nua den fhuinneog chéanna, seachas i bhfuinneoga nua.
  • Méadaíonn do tháirgiúlacht 50%, agus laghdaíonn sé na céadta cad a tharlaíonn nuair luch duit gach lá!
bun officetab
Sórtáil tuairimí de réir
Comments (17)
Rátáil 5 as 5 · rátálacha 1
Rinne an modhnóir ar an láithreán an trácht seo a íoslaghdú
Díreach an rud a bhí á lorg agam, go raibh maith agat as an gcabhair!
Rinne an modhnóir ar an láithreán an trácht seo a íoslaghdú
ná bí buartha i gcónaí anseo chun cabhrú leat :)
Rinne an modhnóir ar an láithreán an trácht seo a íoslaghdú
Dia duit ann,

Bhain mé triail as an script VBA agus cé go n-oibríonn sé i ndáiríre go maith i gcásanna is mó. Ní oibríonn sé, áfach, nuair a chuireann tú cluaisín ó chill inathraithe isteach sa cholún/cill nach féidir eagarthóireacht a dhéanamh air. Eascraíonn an fhadhb sa mhéid is go gcaitheann sé an teachtaireacht earráide - mar a ordaíodh - ach ní choinníonn sé na sonraí a cuireadh isteach sa chill bhunaidh ineagarthóireachta ónar cuireadh tabú.

An mbeadh leasú agat ar an script ionas go nglacann sé leis na sonraí sa chill is féidir a chur in eagar agus tú ag cluaisín isteach nach féidir é a chur in eagar?

Cheers
Rinne an modhnóir ar an láithreán an trácht seo a íoslaghdú
Dea-lá,
Rinne mé iarracht mar a luaigh tú i do chás, ach ní throws aon earráid. An gcuirfeá seat de do chás ar fáil nó an inseoidh tú do leagan Oifige dom?
Go raibh maith agat as do chuid barúlacha.
Rinne an modhnóir ar an láithreán an trácht seo a íoslaghdú
Mura bhfuil tú ag iarraidh breathnú ar do bhileog nó cód VBA a scríobh, bainim úsáid as teicníc shimplí a choisceann aon sárú ach amháin nuair a úsáideann siad an eochair "Scriosadh" (ní cheadófar cúlspás, ach is deacair an Scrios a stopadh ). Is é an méid a rinne mé ná bailíochtú sonraí leis na socruithe seo a leanas:

1) Ceadaigh --> Liosta

2) díthiceáil "Déan neamhaird de bán" agus "anuas i gcill"

3) San fhoinse cuir isteach dhá athfhriotail dhúbailte (ie, "")

4) Sa chluaisín Earráid Alert, seiceáil "Taispeáin an t-athrú earráide tar éis sonraí neamhbhailí a chur isteach", roghnaigh "Stop" don stíl, ansin cuir isteach teachtaireacht earráide agus cur síos (m.sh., Ná sáraigh)
Rinne an modhnóir ar an láithreán an trácht seo a íoslaghdú
Haigh,
Go raibh maith agat as a roinnt.
Rinne an modhnóir ar an láithreán an trácht seo a íoslaghdú
Cód VBA - Leid Mhór go raibh maith agat

An bhfuil cód VBA ann chun ábhar cille ar leith a chosc ó mhodhnú AGUS a scriosadh in Excel?
Ní oibríonn gnáthbhileog chosanta domsa mar chaillim an cumas sonraí a shórtáil?

Go raibh maith agat roimh ré - Neil
Rinne an modhnóir ar an láithreán an trácht seo a íoslaghdú
"Cuir cosc ​​ar inneachar cille ar leith a scriosadh tríd an mbileog oibre a chosaint"Rinne mé de réir do threoirlíne, d'fhéadfaí faisnéis cille fós a scriosadh ie ní oibríonn cosaint. Aon réiteach.
Rinne an modhnóir ar an láithreán an trácht seo a íoslaghdú
Dia duit Ahsan,
Ar chuir tú an modh VBA i bhfeidhm?
Ní mór duit an VBA a chur leis an bhfuinneog cód bileog oibre. Má ghlactar leis go bhfuil an t-ábhar cille is mian leat a chosaint i mBileog 9, cliceáil ar dheis ar an táb bileog agus roghnaigh Féach ar an gCód ón roghchlár comhthéacs, agus ansin cóipeáil an cód go díreach isteach i bhfuinneog an chóid mar an íomhá thíos a thaispeántar.
Rinne an modhnóir ar an láithreán an trácht seo a íoslaghdú
Dia duit, oibríonn an cód seo go maith, ach má scriostar ró/colún seachnófar é. An bhfuil aon réiteach ar seo? Slán, David.
Rinne an modhnóir ar an láithreán an trácht seo a íoslaghdú
Hi David,
Cén leagan Excel atá á úsáid agat? Bhain mé triail as an gcód, ní féidir sraitheanna agus colúin iomlána sa raon sonraithe a scriosadh tar éis an cód a chur i bhfeidhm.
Rinne an modhnóir ar an láithreán an trácht seo a íoslaghdú
Go raibh maith agat as an eolas luachmhar.
Maidir leis an VBA thíos:
Fo-Bileog Oibre Príobháideach_Change (Sprioc ByVal Mar Raon)
Mura bhfuil aon rud ag Intersect(Sprioc, Raon ("A1:E7")) Scoir Fo
Ar Earráid TéighGo ExitPoint
Application.EnableEvents = Bréagach
Mura bhfuil IsDate(Sprioc(1)) Ansin
Feidhmchlár.Cealaigh
MsgBox " Ní féidir leat inneachar cille a scriosadh as an raon seo " _
, vbCritical, "Kutools le haghaidh Excel"
Deireadh Má
ExitPoint:
Application.EnableEvents = Fíor
Fo Deireadh

Ceadóidh an méid thuas forghníomhú laistigh de raon sonraithe áirithe. Ní cheadaíonn sé sraitheanna nua a chur leis. An bhfuil bealach ann gur féidir sraitheanna nua a chur leis ach an chosaint chéanna a choinneáil.
go raibh maith agat agus beannachtaí
Rinne an modhnóir ar an láithreán an trácht seo a íoslaghdú
Dia duit Oussama Abou faraj,
Tar éis triail a bhaint as modhanna éagsúla, ní cosúil go n-oibreoidh mé é seo. Tar éis sraith nua a chur leis, cuirfear an limistéar faoi ghlas Láithreach agus ní féidir an chill nua-ionsáite a chur in eagar.
Rinne an modhnóir ar an láithreán an trácht seo a íoslaghdú
An féidir rud éigin cosúil leis a dhéanamh ag leibhéal na leabhar saothair?

Fo-Bileog Oibre Príobháideach_Change (Sprioc ByVal Mar Raon)
Mura bhfuil aon rud ag Intersect(Sprioc, Raon ("A1: M7000")) Scoir Fo
Ar Earráid TéighGo ExitPoint
Application.EnableEvents = Bréagach
Mura bhfuil IsDate(Sprioc(1)) Ansin
Feidhmchlár.Cealaigh
MsgBox " Ní féidir leat inneachar cille a scriosadh as an raon seo " _
, vbCritical, "Kutools le haghaidh Excel"
Deireadh Má
ExitPoint:
Application.EnableEvents = Fíor
Fo Deireadh
Rinne an modhnóir ar an láithreán an trácht seo a íoslaghdú
Hi Gelu,
An bhfuil sé i gceist agat an raon "A1:M7000" a chosc ó bheith scriosta i ngach bileog oibre den leabhar oibre reatha?
Rinne an modhnóir ar an láithreán an trácht seo a íoslaghdú
Ní hea, bhí sé i gceist agam NACH scriosadh a cheadú (gan na wks nó wkb a chosaint).

Is deas na hoibreacha thuas ag leibhéal Wks.

Má tá rud éigin ann chun é a chur ag obair ag leibhéal wkb bheadh ​​sé níos fearr fós (tá go leor bileoga agam)

G
Rinne an modhnóir ar an láithreán an trácht seo a íoslaghdú
Tá sé seo iontach. Bhí mé ag smaoineamh an raibh sé seo ina rogha agus cinnte go leor go raibh sé. Go raibh maith agat as na treoracha an-éasca.

Anndra S.
Rátáil 5 as 5
Níl aon tráchtanna curtha suas anseo go fóill
Fág do chuid tuairimí
Ag postáil mar Aoi
×
Ráta an post seo:
0   Carachtair
Suímh Molta

Lean orainn

Cóipcheart © 2009 - www.extendoffice.com. | Gach ceart ar cosaint. Cumhachtaithe ag ExtendOffice. | léarscáil an tSuímh
Is trádmharcanna nó trádmharcanna cláraithe de chuid Microsoft Corporation sna Stáit Aontaithe agus / nó i dtíortha eile iad lógó Office agus Office.
Cosanta ag Sectigo SSL