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

Sut i gloi celloedd penodol heb amddiffyn y daflen waith gyfan yn Excel?

Fel rheol, mae angen i chi amddiffyn y daflen waith gyfan ar gyfer cloi celloedd rhag golygu. A oes unrhyw ddull i gloi celloedd heb amddiffyn y daflen waith gyfan? Mae'r erthygl hon yn argymell dull VBA i chi.

Clowch gelloedd penodedig heb amddiffyn y daflen waith gyfan gyda VBA


Clowch gelloedd penodedig heb amddiffyn y daflen waith gyfan gyda VBA


Gan dybio bod angen i chi gloi cell A3 ac A5 yn y daflen waith gyfredol, bydd y cod VBA canlynol yn eich helpu i'w gyflawni heb ddiogelu'r daflen waith gyfan.

1. De-gliciwch y tab dalen, a dewis Gweld y Cod o'r ddewislen clicio ar y dde.

2. Yna copïwch a gludwch y cod VBA isod i mewn i ffenestr y Cod. Gweler y screenshot:

Cod VBA: Clowch gelloedd penodedig heb amddiffyn y daflen waith gyfan

Private Sub Worksheet_SelectionChange(ByVal Target As Range)
    If Target.Column = 1 Then
        If Target.Row = 3 Or Target.Row = 5 Then
            Beep
            Cells(Target.Row, Target.Column).Offset(0, 1).Select
        End If
    End If
End Sub

Nodyn: Yn y cod, Colofn 1, Rhes = 3 ac Rhes = 5 nodwch y bydd cell A3 ac A5 yn y daflen waith gyfredol yn cael ei chloi ar ôl rhedeg y cod. Gallwch eu newid yn ôl yr angen.

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

Nawr mae cell A3 ac A5 wedi'u cloi yn y daflen waith gyfredol. Os ceisiwch ddewis cell A3 neu A5 yn y daflen waith gyfredol, bydd y cyrchwr yn cael ei symud i'r gell gyfagos dde yn awtomatig.


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 (20)
Dim sgôr eto. Byddwch y cyntaf i sgorio!
Lleihawyd y sylw hwn gan y safonwr ar y wefan
Roeddwn i eisiau cuddio fformiwla yng Nghell O1. Rhowch wybod i'r fformiwla ar gyfer yr un peth.
Lleihawyd y sylw hwn gan y safonwr ar y wefan
Annwyl ajay,
Ar gyfer cuddio fformiwla celloedd, dilynwch yr hyperddolen isod i gael yr ateb.
https://www.extendoffice.com/documents/excel/1424-excel-hide-formulas.html
Lleihawyd y sylw hwn gan y safonwr ar y wefan
Annwyl ajay,
Os ydych chi am guddio fformiwla yng nghell O1 heb amddiffyn y daflen waith, rhowch gynnig ar y sgript VBA isod.
Is-daflen Waith Breifat_SelectionChange(FalVal Target As Range)
Y Fformiwla Statig Fel Llinyn
If Target.Address = "$O$1" Yna
Gyda Targed
TheFormula = .Fformiwla
.Gwerth = .Gwerth
Diwedd Gyda
arall
Gydag Ystod ("O1")
Os Ddim .HasFormula Yna
.Fformiwla = TheFormula
Gorffennwch Os
Diwedd Gyda
Gorffennwch Os
Is-End

Ar ôl defnyddio'r cod, mae'n ymddangos bod fformiwla cell O1 yn cael ei newid i ganlyniad fformiwla. Mewn gwirionedd, mae'n cuddio'r fformiwla trwy arddangos canlyniad y fformiwla yn y Bar Fformiwla. A bydd y fformiwla yn dangos a yw'r cod wedi'i dorri.
Lleihawyd y sylw hwn gan y safonwr ar y wefan
sut allwn i gloi ystod o resi, dyweder 4-46 a cholofnau 8 a 10
Lleihawyd y sylw hwn gan y safonwr ar y wefan
Annwyl AJ,
Os ydych chi am gloi ystod o resi a cholofnau penodedig, rhowch gynnig ar y sgript VBA isod.

Is-daflen Waith Breifat_SelectionChange(FalVal Target As Range)
Dim xRg Fel Ystod
Dim xRgEx Fel Ystod
Dim xRgExEach Fel Ystod
Ar Ail-ddechrau Gwall Nesaf
Application.ScreenUpdating = Anghywir
Gosod xRg = Ystod ("H:J, 4: 46") 'Newid ystod y rhes ac ystod y golofn y byddwch yn cloi heb ddiogelu taflen waith
Gosod xRgEx = Application.Intersect(xRg, Targed)
Os yw xRgEx Yn Dim Yna Ymadael Is
Celloedd(1, 1). Dewiswch 'Nodwch gell y byddwch yn symud iddi ar ôl dewis y celloedd wedi'u cloi
Application.ScreenUpdating = Gwir
Is-End
Lleihawyd y sylw hwn gan y safonwr ar y wefan
Mae hwn yn ddatrysiad gwych, yn enwedig mewn llyfrau gwaith a rennir lle na chefnogir troi amddiffyniad ymlaen / i ffwrdd. Diolch yn fawr iawn.
Lleihawyd y sylw hwn gan y safonwr ar y wefan
Annwyl Grisial,

Rydych chi wedi rhoi ateb i mi (hanner ohono) yr wyf wedi bod yn ei chael hi'n anodd dros yr ychydig wythnosau diwethaf, ond byddai angen ychydig mwy o awgrymiadau arnaf.

Sut y gellid cymhwyso hyn i ystod tabl yn unig, nid taflen waith gyfan? Diolch ymlaen llaw.
Lleihawyd y sylw hwn gan y safonwr ar y wefan
Diwrnod da,
Fel y cod VBA a ddarperir isod, newidiwch yr ystod benodedig "H:J,4:46" i'r ystod tabl yr ydych am ei gloi yn y daflen waith yn unig.
A dylai celloedd (1,1) fod y gell y tu allan i ystod y tabl. Wrth glicio ar unrhyw gell yn yr ystod tabl, bydd y cyrchwr yn cael ei symud i'r gell honno'n awtomatig.

Is-daflen Waith Breifat_SelectionChange(FalVal Target As Range)
Dim xRg Fel Ystod
Dim xRgEx Fel Ystod
Dim xRgExEach Fel Ystod
Ar Ail-ddechrau Gwall Nesaf
Application.ScreenUpdating = Anghywir
Gosod xRg = Ystod ("H:J, 4: 46") 'Newid ystod y rhes ac ystod y golofn y byddwch yn cloi heb ddiogelu taflen waith
Gosod xRgEx = Application.Intersect(xRg, Targed)
Os yw xRgEx Yn Dim Yna Ymadael Is
Celloedd(1, 1). Dewiswch 'Nodwch gell y byddwch yn symud iddi ar ôl dewis y celloedd wedi'u cloi
Application.ScreenUpdating = Gwir
Is-End
Lleihawyd y sylw hwn gan y safonwr ar y wefan
Annwyl Grisial,

A oes yna beth bynnag y gellir rhedeg y macro hwn yn awtomatig wrth agor y ffeil, neu wrth glicio ar unrhyw gell. Nid wyf am i bobl orfod rhedeg y macro â llaw er mwyn diogelu'r ystodau gofynnol.

Hefyd, bydd angen i mi ddiogelu 12 ystod nad ydynt yn gyfagos. Er enghraifft: I11:I20 a K11:K20 ac M11:20 ac ati... Sut ydw i'n gwneud hyn?

Yn olaf, ac efallai bod yr un hwn yn gofyn gormod, ond a yw'n bosibl cymhwyso'r amddiffyniad i'r ystodau enghreifftiol a roddais uchod, OND yna ymestyn yr amddiffyniad i lawr rhesi ychwanegol wrth i rai newydd gael eu hychwanegu? Mewn geiriau eraill, byddai amddiffyniad yn cael ei gymhwyso i I11:I20 a K11:K20 ac M11:20, ond byddai defnyddiwr yn gallu ychwanegu rhes newydd (rhes 21), gyda data newydd, ond unwaith y bydd y rhes newydd yn cael ei hychwanegu, yna byddai'r amddiffyniad yn berthnasol i I11:I21 a K11:K21 ac M11:21. Ydw i'n gofyn am y lleuad? :-)

Diolch i chi am bopeth rydych chi wedi'i ddarparu'n barod! Ni allaf ddiolch digon i chi a phobl eraill fel chi am rannu eich gwybodaeth. Anhygoel!
Lleihawyd y sylw hwn gan y safonwr ar y wefan
Annwyl Carlos,
Gall y cod VBA canlynol eich helpu i ddatrys y broblem. Cwblhewch eich amrediadau ym mhedwaredd llinell y cod a gwasgwch y bysellau Alt + Q i ddychwelyd i'r daflen waith. Yna symudwch i daflen waith arall ac yna ewch yn ôl i'r daflen gyfredol i actifadu'r cod. Diolch i chi am eich sylw.

Dim xRg Fel Ystod
Is-daflen waith preifat_Activate()
Os yw xRg Yn Dim Yna
Gosod xRg = Undeb (Amrediad ("I10: I20"), Ystod ("K10: K20"), Ystod ("M10: M20"), Ystod ("O10: O20"))
Gorffennwch Os
Is-End
Is-daflen Waith Breifat_Newid(Targed ByVal Fel Ystod)
Dim I Fel Cyfanrif
Dim xRgNewydd Fel Ystod
Dim xRgLCell Fel Ystod
Ar Ail-ddechrau Gwall Nesaf
Application.EnableEvents = Gau
Am I = 1 I xRg.Areas.Count
Gosod xRgLCell = xRg.Areas.Item(I)
Gosod xRgLCell = xRgLCell(xRgLCell.Count).Offset(1, 0)
Os Targed.Address = xRgLCell.Address Yna
Os yw xRgNewydd yn Ddim Yna
Gosod xRgNew = Targed
arall
Gosod xRgNew = Undeb(xRgNew, Targed)
Gorffennwch Os
Gorffennwch Os
Digwyddiadau
Gosod xRg = Undeb(xRg, xRgNew)
Application.EnableEvents = Gwir
Is-End
Is-daflen Waith Breifat_SelectionChange(FalVal Target As Range)
Ar Gwall GoTo Exitsub
Os nad yw (Ddim yn Croestorri(xRg, Targed)) A (Target.Count = 1) Yna
Targed.Gwrthbwyso(0, 1).Dewiswch
Gorffennwch Os
Exitsub:
Is-End
Lleihawyd y sylw hwn gan y safonwr ar y wefan
Annwyl Grisial,

Diolch yn fawr iawn am hyn! Mae'n gweithio'n berffaith.

Rwyf wedi defnyddio'r cod yn sylw Carlos i redeg y macro yn awtomatig wrth i chi agor y ffeil. Roeddwn yn meddwl tybed a oes ffordd o gael botwm "Dadwneud" neu rywbeth tebyg, sy'n caniatáu ichi ganslo'r cod hwnnw ac felly, datgloi'r ystodau hynny sydd wedi'u cloi.

Rwyf am i'r rheini gael eu cloi y rhan fwyaf o'r amser, ond hoffwn eu datgloi pe bai angen i mi newid unrhyw ddata. Yr unig reswm nad wyf yn amddiffyn y ddalen gyfan yw oherwydd, os gwnaf, mae'n dadactifadu'r gallu i ehangu ar fyrddau. Hynny yn ei dro, ymhelaethu ar siart llinell.

Diolch yn fawr iawn am yr help!
Lleihawyd y sylw hwn gan y safonwr ar y wefan
Helo Erin,
Gallwch dorri'r cod â llaw trwy glicio ar y botwm Break yn ffenestr Microsoft Visual Basic for Applications i ddatgloi'r ystodau hynny. A rhedeg y cod i'w actifadu eto. Diolch am eich sylw.
Lleihawyd y sylw hwn gan y safonwr ar y wefan
Bonjour,
Sylw faire pour verrouiller de la cellule B8 à B10000?
D'avance merci de votre réponse.
Christophe
Lleihawyd y sylw hwn gan y safonwr ar y wefan
A oes unrhyw swyddogaeth i'w gosod er enghraifft Rhes 2 cell 13 i 900? Neu a oes angen i mi dyrnu pob enw cell yn y cod â llaw?
Lleihawyd y sylw hwn gan y safonwr ar y wefan
Helo,

Defnyddiais y cod a ddarparwyd i Carlos a gwnaeth yn union yr hyn yr oeddwn ei eisiau. A oes ffordd i wrthbwyso rhai amrediadau o fewn y ROW i'r dde o'r amrediad gwarchodedig (fel y mae'r cod "Carlos" eisoes yn ei wneud), ond bod ystodau eraill wedi'u gwrthbwyso o fewn y COLOFN i'r gell yn union o dan yr ystod warchodedig? Ceisiais fynd i mewn i'r cod "Carlos" ddwywaith a newid y gwrthbwyso, ond derbyniais amrywiaeth o wallau.

Diolch yn fawr
Lleihawyd y sylw hwn gan y safonwr ar y wefan
Helo Charlie,
Mae'n ddrwg gennym ni all eich helpu gyda hynny eto. Diolch i chi am eich sylw.
Lleihawyd y sylw hwn gan y safonwr ar y wefan
Heia,

Rwyf wedi ceisio defnyddio'r cod ar gyfer ystodau rydych wedi'u postio o'r blaen ond nid yw'n gweithio - a allwch chi fy hysbysu a ddylwn i fod yn cyfuno'r cod ar gyfer ystodau uwch neu is?


diolch
Lleihawyd y sylw hwn gan y safonwr ar y wefan
Rwyf wedi ceisio methu, Cuddio fformiwla heb amddiffyn.
Lleihawyd y sylw hwn gan y safonwr ar y wefan
A oes ffordd i'r cod VBA hwn redeg yn awtomatig bob tro y bydd rhywun yn agor y ffeil?
Lleihawyd y sylw hwn gan y safonwr ar y wefan
Helo Aaron, Ar ôl ychwanegu'r cod, cadwch y llyfr gwaith fel Gweithlyfr Excel Macro-Galluogi (cliciwch ffeil > Save As > pennu ffolder ar gyfer y ffeil > dewis Llyfr Gwaith Macro-alluogedig Excel oddi wrth y Arbed fel teipiwch y gwymplen > Save). Ar ôl hynny, bob tro pan fyddwch chi'n agor y ffeil, mae'r cod yn gweithio'n awtomatig.
Nid oes unrhyw sylwadau wedi'u postio yma eto
Gadewch eich sylwadau
Postio fel Gwestai
×
Graddiwch y swydd hon:
0   Cymeriadau
Lleoliadau a Awgrymir