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

Conas cealla a chosaint bunaithe ar dháta in Excel?

De ghnáth, is féidir linn an bhileog oibre a chosaint chun cosc ​​a chur ar dhaoine eile luachanna na gcealla a eagarthóireacht nó a mhodhnú, ach, uaireanta, ní mór duit na cealla a chosaint bunaithe ar dháta. Mar shampla, ba mhaith liom cealla eile a chosaint ach gan ach luachanna cille dáta an lae inniu a mhodhnú mar a leanas an pictiúr a thaispeántar, labhróidh an t-alt seo faoi conas cealla a chosaint bunaithe ar dháta.

doc a chosaint faoi dháta 1

Cosain na sraitheanna go léir ach amháin as a chéile dáta an lae inniu le cód VBA

Cosain gach sraitheanna a rith an dáta le cód VBA


mboilgeog cheart gorm saighead Cosain na sraitheanna go léir ach amháin as a chéile dáta an lae inniu le cód VBA

Ná lig ach an tsraith atá cothrom le dáta an lae inniu a mhodhnú, is féidir leis an gcód seo a leanas cabhrú leat, déan é seo le do thoil:

1. Cliceáil ar dheis ar an táb bileog a theastaíonn uait na cealla a chosaint bunaithe ar dháta, agus ansin roghnaigh Féach an cód ón roghchlár comhthéacs, sa popped amach Microsoft Visual Basic d’Fheidhmchláir fuinneog, cóipeáil agus greamaigh an cód seo a leanas sa Mhodúl bán:

Cód VBA: Cosain na sraitheanna go léir ach amháin as a chéile dáta an lae inniu:

Private Sub Worksheet_SelectionChange(ByVal Target As Range)
'Updateby Extendoffice 20161025
    If Range("E" & Selection.Row).Value <> Date Then
        ActiveSheet.Protect Password:="111111"
        MsgBox "Only today's date row can be edited!", vbInformation, "Kutools for Excel"
    ElseIf Range("E" & Selection.Row).Value = Date Then
        ActiveSheet.Unprotect Password:="111111"
        ActiveSheet.EnableSelection = xlNoRestrictions
    End If
End Sub

doc a chosaint faoi dháta 2

nótaí: Sa chód thuas, an litir E is é ceanntásc an cholúin ina bhfuil an dáta suite, “111111"Is é an focal faire chun an bhileog seo a chosaint. Is féidir leat iad a athrú de réir do riachtanas.

2. Ansin sábháil agus dún an fhuinneog cód seo.

(1.) Má chliceálann tú cealla eile níos faide ná a chéile dáta an lae inniu, tiocfaidh bosca pras amach le cur i gcuimhne duit nach féidir an cill a chur in eagar, féach an scáileán:

doc a chosaint faoi dháta 3

(2.) Má chliceálann tú agus má dhéanann tú eagarthóireacht ar an tsraith is ionann agus dáta an lae inniu, athrófar é go rathúil, féach an scáileán:

doc a chosaint faoi dháta 4


mboilgeog cheart gorm saighead Cosain gach sraitheanna a rith an dáta le cód VBA

Más gá duit na sraitheanna go léir a rith an dáta a chosaint, ná lig ach sraitheanna an lae inniu agus na todhchaí a mhodhnú, cuir an cód VBA seo a leanas i bhfeidhm:

1. Cliceáil ar dheis ar an táb bileog a theastaíonn uait na cealla a chosaint bunaithe ar dháta, agus ansin roghnaigh Féach an cód ón roghchlár comhthéacs, sa popped amach Microsoft Visual Basic d’Fheidhmchláir fuinneog, cóipeáil agus greamaigh an cód seo a leanas sa Mhodúl bán:

Cód VBA: Cosain gach dáta atá caite:

Private Sub Worksheet_Change(ByVal Target As Excel.Range)
'Updateby Extendoffice 20161025
  Dim xRow As Long
  xRow = 2
  ThisWorkbook.ActiveSheet.Unprotect Password:="111111"
  ThisWorkbook.ActiveSheet.Cells.Locked = False
  Do Until IsEmpty(Cells(xRow, 5))
    If Cells(xRow, 5) < Date Then
      Rows(xRow).Locked = True
    End If
    xRow = xRow + 1
  Loop
  ThisWorkbook.ActiveSheet.Protect Password:="111111"
End Sub

doc a chosaint faoi dháta 5

nótaí: Sa chód thuas, an uimhir 5 is í uimhir an cholúin ina bhfuil an dáta suite, “111111"Is é an focal faire chun an bhileog seo a chosaint. Is féidir leat iad a athrú de réir do riachtanas.

3. Ansin sábháil agus dún an fhuinneog cód seo.

(1.) Má chliceálann tú go bhfuil dáta na gcealla caite, tiocfaidh bosca pras amach le cur i gcuimhne duit nach féidir an cill a chur in eagar, féach an scáileán:

doc a chosaint faoi dháta 6

(2.) Má chliceálann tú cill na sraitheanna chun iarracht a dhéanamh na luachanna i dáta an lae inniu nó sa dáta amach anseo a athrú, athrófar é go rathúil, féach an pictiúr:

doc a chosaint faoi dháta 7


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 (30)
Níl rátálacha ar bith fós. Bí ar an gcéad duine a rátáil!
Rinne an modhnóir ar an láithreán an trácht seo a íoslaghdú
Foscadh: Is féidir le duine eile pasfhocal a fheiceáil trí rogha "View Code" a úsáid.
Rinne an modhnóir ar an láithreán an trácht seo a íoslaghdú
nach bhfuil ag obair mar a thaispeánann an chill go léir an teachtaireacht ach is féidir eagarthóireacht a dhéanamh air
Rinne an modhnóir ar an láithreán an trácht seo a íoslaghdú
Dia duit, an féidir colúin a ghlasáil faoin dáta díreach os cionn na gcolún?
Rinne an modhnóir ar an láithreán an trácht seo a íoslaghdú
Fo-bhileog oibre Príobháideach_Athraigh(ByVal Target As Range)

'Liostáil le http://youtube.com/excel10tutorial

'Tacaigh leis an gcainéal trí bhronnadh ar http://patreon.com/excel10tutorial

Dim col As Raon

'Socraigh ainm na bileoige ceart anseo:

Le ThisWorkbook.Sheets("AGOSTO-22")

.Díchosaint "ABCDE"

Do Gach col I .UsedRange.Columns

col.EntireColumn.Locked = col.Range("A1").Luach <> Dáta

An chéad chol eile

.Protect "ABCDE"

.EnableSelection = xlNoRestrictions

Deireadh Le

Fo Deireadh
Rinne an modhnóir ar an láithreán an trácht seo a íoslaghdú
Dia duit an féidir cealla áirithe a ghlasáil ag brath ar an dáta atá díreach os a gcionn i gcolún?
Rinne an modhnóir ar an láithreán an trácht seo a íoslaghdú
Dia duit, Lusis,
An féidir leat d’fhadhb a thabhairt ar bhealach níos sonraí? Nó is féidir leat gabháil scáileáin a cheangal mar d’fhadhb.
Go raibh maith agat!
Rinne an modhnóir ar an láithreán an trácht seo a íoslaghdú
Dia duit skyyang

Sea, seo seat de. Tá súil go gcabhraíonn sé seo.
Rinne an modhnóir ar an láithreán an trácht seo a íoslaghdú
Rinne an modhnóir ar an láithreán an trácht seo a íoslaghdú
Dia duit, a Lucis,
An bhfuil sé i gceist agat na colúin a bhfuil dáta caite acu a ghlasáil, agus nach féidir ach colúin an lae inniu agus na laethanta amach anseo a mhodhnú?
Rinne an modhnóir ar an láithreán an trácht seo a íoslaghdú
Ceart! Conas a rachainn faoi sin?
Rinne an modhnóir ar an láithreán an trácht seo a íoslaghdú
Dia duit, Luis,
Cad mar gheall ar an gcill dáta in A1? An gcuirtear isteach é de láimh nó an gcuirtear isteach é le foirmle =now()? Más cill fhoirmle é, athrófar na colúin faoi ghlas leis na hathruithe dáta.
Breathnú ar aghaidh le do fhreagra!
Rinne an modhnóir ar an láithreán an trácht seo a íoslaghdú
Dia duit Skyyang

tá an fhoirmle =now() ag an gcill A1.

raibh maith agat!
Rinne an modhnóir ar an láithreán an trácht seo a íoslaghdú
Dia dhuit.....


Tá mé ag baint úsáide as an gcód Cosain gach sraith ach amháin dáta an lae inniu........



Fo-bhileog Oibre Príobháideach_SelectionChange(ByVal Target As Range)
'Updateby Extendoffice 20161025
Má Raon ("A" & Roghnú.Row).Luach <> Dáta Ansin
Pasfhocal ActiveSheet.Protect:="111111"
MsgBox "Ní féidir ach dáta an lae inniu a chur in eagar!", vbInformation, "Kutools for Excel"
Raon EileIf ("E" & Selection.Row).Luach = Dáta Ansin
ActiveSheet.Unprotect Pasfhocal:="111111"
ActiveSheet.EnableSelection = xlNoRestrictions
Deireadh Má
Fo Deireadh


Tar éis dom mé a shábháil agus cliceáil ar an gcill ní fhaighim teachtaireacht ach ní féidir eagarthóireacht a dhéanamh ar an tsraith dáta inniu....ach má chliceálann mé an chill faoi dhó is féidir liom eagarthóireacht a dhéanamh...pls
Rinne an modhnóir ar an láithreán an trácht seo a íoslaghdú
Oibríonn sé seo go hiontach. ach conas is féidir liom é a athrú chun colún a dhíghlasáil bunaithe ar dhátaí i ró 3?
Rinne an modhnóir ar an láithreán an trácht seo a íoslaghdú
Mar dhuine atá sách nua do VBA, ar mhiste leat a mhíniú cén fáth xRow = 2 i Líne 4?



Go raibh maith agat
Rinne an modhnóir ar an láithreán an trácht seo a íoslaghdú
mar i ndiaidh a chéile uimh. 1 tá ceanntásc agat
Rinne an modhnóir ar an láithreán an trácht seo a íoslaghdú
Haigh,

agus an cód seo á rith tá earráid á fáil agam mar a thaispeántar san fhigiúr
Chomh maith leis sin táim ag gabháil le pictiúr de mo Excel nuair is mian liom athruithe a dhéanamh.

An féidir leat a threorú i mo chód cá háit ar cheart dom athruithe a dhéanamh de réir mo chomhad excel ionas gur féidir cealla nach bhfuil iontu ach dáta an lae inniu & amach anseo a chur in eagar ???
Rinne an modhnóir ar an láithreán an trácht seo a íoslaghdú
Dia duit, Karan,
Toisc go bhfuil cealla cumaisc i do tábla, ní féidir an cód thuas a chur i bhfeidhm i gceart i dtábla cealla cumaisc.
Má tá aon smaointe maithe eile agat, déan trácht anseo. Go raibh maith agat!
Rinne an modhnóir ar an láithreán an trácht seo a íoslaghdú
Dia duit, rinne mé iarracht an rud céanna a dhéanamh ach gach colún a chosaint ach amháin colún dáta an lae inniu le cód VBA trí "Selection.Row" a chur in ionad "Selection.Columns" agus "E" le "5" (uimhir as a chéile ina bhfuil dátaí), ach Leanaim ag fáil earráid 1004!

Aon chabhair le do thoil?

Go raibh maith agat
Rinne an modhnóir ar an láithreán an trácht seo a íoslaghdú
Dia duit, rinne mé iarracht an rud céanna a dhéanamh ach gach colún a chosaint ach amháin colún dáta an lae inniu le cód VBA trí "Selection.Row" a chur in ionad "Selection.Columns" agus "E" le "5" (uimhir as a chéile ina bhfuil dátaí), ach Leanaim ag fáil earráid 1004!

Aon chabhair le do thoil?

Go raibh maith agat
Rinne an modhnóir ar an láithreán an trácht seo a íoslaghdú
Dia duit,
Chun an cód seo a chur i bhfeidhm ar na colúin a theastaíonn uait, bain úsáid as an gcód VBA seo a leanas:(Nóta: Sa chód, is é 5 uimhir an tsraithe ina bhfuil an dáta, athraigh go dtí do riachtanas é.)

Fo-bhileog Oibre Príobháideach_SelectionChange(ByVal Target As Range)
Dim xRg Mar Raon
Socraigh xRg = Sprioc.Bileog Oibre.Cealla(5, Target.Column)
Má xRg <> Dáta Ansin
Pasfhocal ActiveSheet.Protect:="111111"
MsgBox "Ní féidir ach dáta an lae inniu a chur in eagar!", vbInformation, "Kutools for Excel"
ElseIf xRg.Value = Dáta Ansin
ActiveSheet.Unprotect Pasfhocal:="111111"
ActiveSheet.EnableSelection = xlNoRestrictions
Deireadh Má
Fo Deireadh

Bain triail as, le do thoil, tá súil gur féidir leis cabhrú leat!
Rinne an modhnóir ar an láithreán an trácht seo a íoslaghdú
Go raibh maith agat! Tá brón orm, ní bhfuair mé do fhreagra go dtí seo, b'fhéidir go bhfuil sé ina fhadhb i mo ríomhphost.

D'oibrigh sé! Ní féidir a rá go raibh maith agat go leor! Is mór agam é sin!
Rinne an modhnóir ar an láithreán an trácht seo a íoslaghdú
Haigh,
Sásta gur féidir leis cabhrú leat!
Rinne an modhnóir ar an láithreán an trácht seo a íoslaghdú
Haigh,

Táim ag iarraidh é seo a leathnú chun colúin nach n-áirítear an mhí reatha seo nó/agus an tseachtain reatha seo a chosaint. Rinne mé iarracht "mí" nó "seachtain" a chur in ionad "Date", ach níor oibrigh sé.

Tá bileog shamplach do sheachtainí ceangailte agam nach féidir leis an úsáideoir colúin a chur in eagar nó a chlóscríobh seachas an tseachtain seo.

Aon chomhairle faoi sin? nó an úsáidfidh mé dátaí iarbhír chun lá sa mhí a léiriú?
Rinne an modhnóir ar an láithreán an trácht seo a íoslaghdú
Go raibh maith agat as do chabhair, Go raibh míle maith agat a chara, Is mór an chabhair é. agus réitigh sé mo teannas.
Bí curamach
Maidir le Rohit Khanna
Rinne an modhnóir ar an láithreán an trácht seo a íoslaghdú
Dia duit Tá fadhb amháin le sárú agam, a luaithe a dhúnann mé an comhad agus a athosclaíonn sé arís ar an dáta céanna, ní oibríonn an cód. pls cabhrú im bhfostú
Rinne an modhnóir ar an láithreán an trácht seo a íoslaghdú
Dia duit, rohit,
Chun an cód a choinneáil, ba cheart duit do leabhar oibre a shábháil mar Excel Macro-Enabled Workbook format, le do thoil déan iarracht, go raibh maith agat!
Rinne an modhnóir ar an láithreán an trácht seo a íoslaghdú
Dia duit rinne mé é ach nuair a bhrúim teachtaireacht cille léiríonn sé nach féidir é a chur in eagar ach nuair a bhrúim méarchláir is féidir liom scríobh sa chill fós
Rinne an modhnóir ar an láithreán an trácht seo a íoslaghdú
Dia duit, ba mhaith liom laethanta amach anseo a chosaint agus eagarthóireacht a cheadú ar an lá atá inniu ann agus na laethanta atá caite. Conas is féidir liom é sin a dhéanamh?
Rinne an modhnóir ar an láithreán an trácht seo a íoslaghdú
Dia duit, Miguel,Chun na laethanta amach anseo a chosaint, cuir an cód thíos i bhfeidhm le do thoil: Fo-bhileog Oibre Príobháideach_Athrú (Sprioc ByVal Mar Excel.Range)
'Updateby Extendoffice
Dim xRow Chomh fada
xRow=2
ThisWorkbook.ActiveSheet.Unprotect Password:="111111"
ThisWorkbook.ActiveSheet.Cells.Locked = Bréagach
Déan Go dtí Is Folamh(Cealla(xRow, 5))
Má Cealla(xRow, 5) > Dáta Ansin
Rónna(xRow).Glasta = Fíor
Deireadh Má
xRow = xRow+1
Lúb
ThisWorkbook.ActiveSheet.Protect Pasfhocal:="111111"
Críochnaigh Fo le do thoil, tá súil agam gur féidir leis cabhrú leat!
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