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

Sut i gloi neu amddiffyn celloedd ar ôl mewnbynnu neu fewnbynnu data yn Excel?

Gan dybio bod gennych daflen waith a dim ond ystod benodol o gelloedd gwag sydd angen mewnbynnu data, ac ar ôl gorffen mewnbynnu data, mae angen i'r celloedd gael eu cloi yn awtomatig er mwyn atal newidiadau eto. Sut allwch chi ei wneud i'w gyflawni? Gall yr erthygl hon eich helpu chi.

Clowch neu amddiffyn celloedd ar ôl mewnbynnu data neu fewnbynnu gyda chod VBA


Clowch neu amddiffyn celloedd ar ôl mewnbynnu data neu fewnbynnu gyda chod VBA

Er enghraifft, yr ystod benodol o gelloedd gwag yw A1: F8. Gwnewch fel a ganlyn i gloi'r celloedd hyn ar ôl mewnbynnu data yn Excel.

1. Datgloi’r ystod hon yn gyntaf, dewiswch y celloedd a chlicio ar y dde, yna dewiswch Celloedd Fformat yn y ddewislen clicio ar y dde, ac yn y Celloedd Fformat blwch deialog, dad-wirio'r Dan glo blwch o dan y amddiffyn tab, ac yn olaf clicio ar y OK botwm. Gweler y screenshot:

2. Cliciwch adolygiad > Diogelu Dalen. A nodwch gyfrinair i amddiffyn y daflen waith hon.

3. De-gliciwch y tab dalen, dewiswch Gweld y Cod o'r ddewislen clicio ar y dde. Yna copïwch a gludwch y cod VBA isod i mewn i ffenestr y Cod. Gweler y screenshot:

Cod VBA: Clowch neu amddiffyn celloedd ar ôl mewnbynnu neu fewnbynnu data

Dim mRg As Range
Dim mStr As String

Private Sub Worksheet_BeforeDoubleClick(ByVal Target As Range, Cancel As Boolean)
If Not Intersect(Range("A1:F8"), Target) Is Nothing Then
    Set mRg = Target.Item(1)
    mStr = mRg.Value
End If
End Sub
Private Sub Worksheet_Change(ByVal Target As Range)
    Dim xRg As Range
    On Error Resume Next
    Set xRg = Intersect(Range("A1:F8"), Target)
    If xRg Is Nothing Then Exit Sub
    Target.Worksheet.Unprotect Password:="123"
    If xRg.Value <> mStr Then xRg.Locked = True
    Target.Worksheet.Protect Password:="123" 
End Sub
Private Sub Worksheet_SelectionChange(ByVal Target As Range)
If Not Intersect(Range("A1:F8"), Target) Is Nothing Then
    Set mRg = Target.Item(1)
     mStr = mRg.Value
End If
End Sub

Nodyn: Yn y cod, “A1: F8” yw'r ystod y mae angen i chi fewnbynnu data; a “123” yw cyfrinair y daflen waith warchodedig hon. Newidiwch nhw yn ôl yr angen.

4. Gwasgwch Alt + Q allweddi ar yr un pryd i gau'r Microsoft Visual Basic ar gyfer Ceisiadau ffenestr.

Ar ôl gorffen mewnbynnu data i gelloedd amrediad A1: F8, byddant yn cael eu cloi yn awtomatig. A byddwch yn cael blwch deialog prydlon os ceisiwch newid unrhyw gynnwys celloedd o'r ystod hon. Gweler y screenshot:


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 (74)
Wedi graddio 5 allan o 5 · Graddfeydd 1
Lleihawyd y sylw hwn gan y safonwr ar y wefan
Helo, mae gen i daenlen gyda'r ystod A3:AN219, hoffwn amddiffyn yr ystod hon pan fydd y mewnbwn wedi'i gwblhau. Helpwch fi ar hyn os gwelwch yn dda. Ceisiais uchod cod ond nid yw'n gweithio i mi
Lleihawyd y sylw hwn gan y safonwr ar y wefan
Nid yw hyn yn gweithio pan fydd yn ailagor ffeil excel helpwch
Lleihawyd y sylw hwn gan y safonwr ar y wefan
Rhowch gynnig ar y cod hwn yn lle hynny: Is-daflen Waith Breifat_Change(ByVal Target As Range) Dim MyRange As Range Set MyRange = Croestoriad(Amrediad("A1:D100"), Targed) Os Nad yw MyRange A oes Dim Yna Sheets("Taflen1").Dad-ddiogelwch cyfrinair: = "helo" MyRange.Locked = Dalennau Gwir ("Taflen 1").Amddiffyn cyfrinair:="helo" Diwedd Os Diwedd Is A chofiwch newid ystod (A1:D100), cyfrinair (helo) a thaflen (Taflen 1) enwau/rhifau os nad yw'n cyfateb i'r uchod :)
Lleihawyd y sylw hwn gan y safonwr ar y wefan
Diolch am y cod. Rhowch wybod i mi sut i gloi'r celloedd yn awtomatig (yn debyg i'r rhai a restrir gennych chi) DIM OND AR ÔL cadw'r ffeil
Lleihawyd y sylw hwn gan y safonwr ar y wefan
Helo Syr, yr wyf yn wynebu un broblem gyda'r un cod wrth ddefnyddio'r cod hwn gyda cobe arall yn VBA. Awgrymwch rywfaint o ateb i mi Diolch a Cofion Gourav
Lleihawyd y sylw hwn gan y safonwr ar y wefan
Annwyl Gourav,
Mae'n ddrwg gennym ni all ddatrys y broblem hon.
Lleihawyd y sylw hwn gan y safonwr ar y wefan
Rhoddais gynnig ar y cod ac roedd yn ymddangos ei fod yn gweithio rhywfaint. Fodd bynnag, mae'n caniatáu i mi ddileu'r dyddiad a gofnodwyd yn y gell ond dim ond yn fy atal pan fyddaf yn ceisio mynd i mewn i rywbeth arall. A oes ffordd i gadw data rhag cael eu dileu?
Lleihawyd y sylw hwn gan y safonwr ar y wefan
Annwyl Stacy,
Nid yw'r un broblem yn ymddangos yn fy achos i. Mae'r cod yn atal defnyddwyr rhag mynd i mewn yn ogystal â dileu data o'r ystod benodol. A fyddech chi'n darparu eich fersiwn Office i'w brofi ymhellach?
Lleihawyd y sylw hwn gan y safonwr ar y wefan
I unrhyw un a allai fod wedi baglu yma ers y sylw hwn. Os ydych chi'n gorfod datgloi'r daflen waith BOB AMSER rydych chi'n llenwi cell yna mae angen i chi yn gyntaf, - Datgloi'r daenlen - Amlygu ardal y daflen waith y mae'r cod yn berthnasol drosodd - De-gliciwch ac ewch i 'fformat celloedd' - Ewch i'r tab ar y dde eithaf o'r enw 'Amddiffyn' a DAD-WIRIO'r adran 'Wedi cloi' (Hyd yn oed os Mae'n ymddangos fel llenwad solet yn hytrach na thic) Ar ôl hynny byddwch yn gallu mewnbynnu data mewn celloedd lluosog heb orfod datgloi bob tro. Cofiwch os oes angen i chi ailymweld â chelloedd sydd wedi'u cloi i ddileu neu olygu gwybodaeth efallai y bydd angen i chi ailadrodd y camau uchod. Gobeithio bod hyn yn helpu.
Lleihawyd y sylw hwn gan y safonwr ar y wefan
Rwy'n hoffi cloi'r celloedd wedi'u golygu yn unig. unwaith y byddaf yn mewnbynnu unrhyw ddata i'r celloedd gwag, mae angen i mi gloi'r gell olygedig i gael ei chloi'n awtomatig ond nid y celloedd gwag.
Lleihawyd y sylw hwn gan y safonwr ar y wefan
Annwyl Subhash,
Ar ôl defnyddio'r cod, dim ond y celloedd wedi'u golygu sydd wedi'u cloi yn yr ystod benodol. A gallwch barhau i fewnbynnu data i'r celloedd gwag yn yr ystod benodol ag sydd ei angen arnoch. Ar ôl llenwi'r gell wag, bydd yn cael ei chloi'n awtomatig.
Lleihawyd y sylw hwn gan y safonwr ar y wefan
Na, mae'n cloi'r ystod gyfan ar unwaith ar ôl mewnbwn data i gell yn yr ystod
Lleihawyd y sylw hwn gan y safonwr ar y wefan
Annwyl pradip,
Pa fersiwn Office ydych chi'n ei ddefnyddio?
Lleihawyd y sylw hwn gan y safonwr ar y wefan
Thanx am y codio, ond mae gen i broblem i roi 2 codio mewn 1 ddalen, pls help.
Lleihawyd y sylw hwn gan y safonwr ar y wefan
Annwyl Ffair,
Mae'n ddrwg gennym ni all ddatrys y broblem hon.
Lleihawyd y sylw hwn gan y safonwr ar y wefan
Heia,
Syr fi angen cloi ar ôl un amser mewnbwn data!
Fel yr wyf yn dilyn un cwsmer ac yn ysgrifennu statws, yna ni all unrhyw weithiwr arall olygu neu addasu hynny!
Lleihawyd y sylw hwn gan y safonwr ar y wefan
Diwrnod da,
Gall dull yn y swydd hon hefyd eich helpu i ddatrys y broblem hon.
Lleihawyd y sylw hwn gan y safonwr ar y wefan
nid oes modd golygu celloedd hyd yn oed...beth aeth o'i le ddim yn deall pls help
Lleihawyd y sylw hwn gan y safonwr ar y wefan
Diwrnod da,
Ar y dechrau, mae angen i chi osod celloedd penodedig i Unlocked for editig , ac yna amddiffyn y daflen waith. Ac yn olaf cymhwyso'r sgript VBA.
Lleihawyd y sylw hwn gan y safonwr ar y wefan
oes rhaid codio?
Lleihawyd y sylw hwn gan y safonwr ar y wefan
Hi


Rwyf am iddo gloi'r ystod ar ôl mynd i mewn i un gell yn yr ystod, a allwch chi gynghori sut mae angen i mi olygu hyn i wneud hyn diolch
Lleihawyd y sylw hwn gan y safonwr ar y wefan
Hi
golygu'r cod a oes modd ei gael i gloi'r holl gelloedd yn yr amrediad ar ôl i ddata gael ei fewnbynnu i un gell o fewn yr amrediad hwnnw ? felly dim ond mewn un gell y gallant fewnbynnu data o fewn yr ystod nid lluosog.


diolch
Lleihawyd y sylw hwn gan y safonwr ar y wefan
Annwyl Jackie,
Gall y cod VBA isod eich helpu i ddatrys y broblem.

Is-daflen Waith Breifat_Newid(Targed ByVal Fel Ystod)
Dim xRg Fel Ystod
Dim xSRg Fel Ystod
Ar Ail-ddechrau Gwall Nesaf
Gosod xSRg = Ystod ("A1: F8")
Gosod xRg = Croestoriad(xSRg, Targed)
Os yw xRg Yn Ddim Yna Ymadael Is
Target.Worksheet.Unprotect Password:="123"
xSRg.Locked = Gwir
Target.Worksheet.Protect Password:="123"
Is-End
Lleihawyd y sylw hwn gan y safonwr ar y wefan
Helo,
A oes ffordd i gloi celloedd yn unig yn hytrach na'r ddalen gyfan? Er enghraifft, os yw defnyddiwr yn mynd i mewn i "Ie" yn A2, yna byddai A2 yn cloi ar unwaith er mwyn peidio â chaniatáu unrhyw newidiadau. Hoffwn pe bai eraill yn dal i allu golygu unrhyw gell arall hefyd. Diolch!
Lleihawyd y sylw hwn gan y safonwr ar y wefan
Helo Smith,
Gall y cod VBA isod eich helpu i ddatrys y broblem. Ceisiwch ddiolch i chi am eich sylw.

Is-daflen Waith Breifat_Newid(Targed ByVal Fel Ystod)
Ar Ail-ddechrau Gwall Nesaf
Target.Worksheet.Unprotect Password:="123"
Target.Locked = Gwir
Target.Worksheet.Protect Password:="123"
Is-End
Lleihawyd y sylw hwn gan y safonwr ar y wefan
Bore Da,

A oes yna beth bynnag i atal defnyddiwr rhag clicio ar y dde "view code" a gweld cyfrinair y gweinyddwr?
Lleihawyd y sylw hwn gan y safonwr ar y wefan
Peidiwch byth â meddwl, fe ges i.
Lleihawyd y sylw hwn gan y safonwr ar y wefan
Sut? ches i ddim o...
Lleihawyd y sylw hwn gan y safonwr ar y wefan
helo mae angen rhywfaint o help


Rwy'n gwneud rhestr waith ar gyfer grŵp mawr o bobl mewn gwirionedd, ac mae'r daflen hon ar gael i bawb fel y gallant nodi eu ceisiadau am ddiwrnodau i ffwrdd / gwyliau blynyddol ac ati. diwrnod (uchafswm o 5 ar wyliau) ac ar ôl 5 o geisiadau am wyliau yn cael eu rhoi i mewn am y diwrnod, ni all unrhyw gorff arall lenwi mwy o geisiadau ar gyfer y dyddiad penodol hwnnw.


a oes unrhyw god/swyddogaeth a fydd yn cyfrifo nifer y ceisiadau penodol y dydd yna pan gyrhaeddir y cwota, yna mae'r celloedd eraill yn cael eu rhwystro rhag i'r ceisiadau beidio â mynd y tu hwnt? Diolch ymlaen llaw
Lleihawyd y sylw hwn gan y safonwr ar y wefan
Da dydd,
Croeso i bostio unrhyw gwestiwn yn ein fforwm: https://www.extendoffice.com/forum.html.
Byddwch yn cael mwy o gefnogaeth Excel gan ein cefnogwyr Excel proffesiynol neu eraill.
Lleihawyd y sylw hwn gan y safonwr ar y wefan
Helo - roedd y post hwn yn ddefnyddiol iawn ac yn gweithio'n berffaith. Fodd bynnag, mae fy hidlwyr yn rhoi'r gorau i weithio pan fydd y celloedd yn cloi. A oes ffordd o gwmpas hyn? Diolch!
Lleihawyd y sylw hwn gan y safonwr ar y wefan
Helo Kim,
Mae'n ddrwg gennym ni all helpu gyda hyn. Mae'r nodwedd hidlo wedi'i hanalluogi mewn taflen waith warchodedig yn ddiofyn.
Lleihawyd y sylw hwn gan y safonwr ar y wefan
Diolch ddyn, Fe wnaeth hyn achub fy swydd : D
Lleihawyd y sylw hwn gan y safonwr ar y wefan
pan fyddaf yn mynd allan o'r ffeil sy'n gweithio ar hyn o bryd a'i hagor eto canfûm nad yw cell newydd wedi'i chloi ar ôl cofnodi data, dim ond y gell clo flaenorol a ddarganfuwyd clo. unrhyw ateb
Lleihawyd y sylw hwn gan y safonwr ar y wefan
Helo Nazmul,
Mae angen i chi gadw'r llyfr gwaith fel Llyfr Gwaith Macro-Galluogi Excel cyn ei gau.
Nid oes unrhyw sylwadau wedi'u postio yma eto
Llwytho mwy o
Gadewch eich sylwadau
Postio fel Gwestai
×
Graddiwch y swydd hon:
0   Cymeriadau
Lleoliadau a Awgrymir