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.
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
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
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:
(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:
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
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:
(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:
Uirlisí Táirgiúlachta Oifige is Fearr
Supercharge Do Scileanna Excel le Kutools le haghaidh Excel, agus Éifeachtúlacht Taithí Cosúil Ná Roimhe. Kutools le haghaidh Excel Tairiscintí Níos mó ná 300 Ardghnéithe chun Táirgiúlacht a Treisiú agus Sábháil Am. Cliceáil anseo chun an ghné is mó a theastaíonn uait a fháil ...
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á!