Sut i amddiffyn celloedd yn seiliedig ar ddyddiad yn Excel?
Fel rheol, gallwn amddiffyn y daflen waith i atal eraill rhag golygu neu addasu gwerthoedd y celloedd, ond, weithiau, mae angen i chi amddiffyn y celloedd ar sail dyddiad. Er enghraifft, rwyf am amddiffyn celloedd eraill ond dim ond caniatáu i werthoedd celloedd y dyddiad heddiw gael eu haddasu fel a ganlyn y screenshot a ddangosir, bydd yr erthygl hon yn siarad am sut i amddiffyn celloedd yn seiliedig ar ddyddiad.
Amddiffyn pob rhes ac eithrio rhes dyddiad heddiw gyda chod VBA
Amddiffyn pob rhes mae'r dyddiad wedi mynd heibio gyda chod VBA
Amddiffyn pob rhes ac eithrio rhes dyddiad heddiw gyda chod VBA
Dim ond caniatáu i'r rhes sy'n hafal i'r dyddiad heddiw gael ei haddasu, gall y cod canlynol eich helpu chi, gwnewch fel hyn:
1. Cliciwch ar y dde ar y tab dalen rydych chi am amddiffyn y celloedd ar sail dyddiad, ac yna dewiswch Gweld y Cod o'r ddewislen cyd-destun, yn y popped allan Microsoft Visual Basic ar gyfer Ceisiadau ffenestr, copïwch a gludwch y cod canlynol i'r Modiwl gwag:
Cod VBA: Amddiffyn pob rhes ac eithrio rhes dyddiad heddiw:
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
Nodyn: Yn y cod uchod, y llythyr E yw pennawd y golofn lle mae'r dyddiad wedi'i leoli, “111111”Yw'r cyfrinair i amddiffyn y ddalen hon. Gallwch eu newid i'ch angen.
2. Yna arbedwch a chau y ffenestr god hon.
(1.) Os cliciwch gelloedd eraill y tu hwnt i res dyddiad heddiw, bydd blwch prydlon yn popio allan i'ch atgoffa na ellir golygu'r gell, gweler y screenshot:
(2.) Os ydych chi'n clicio ac yn golygu'r rhes sy'n hafal i'r dyddiad heddiw, bydd yn cael ei newid yn llwyddiannus, gweler y screenshot:
Amddiffyn pob rhes mae'r dyddiad wedi mynd heibio gyda chod VBA
Os oes angen i chi amddiffyn pob rhes mae'r dyddiad wedi mynd heibio, dim ond caniatáu i resi dyddiad heddiw ac yn y dyfodol gael eu haddasu, cymhwyswch y cod VBA canlynol:
1. Cliciwch ar y dde ar y tab dalen rydych chi am amddiffyn y celloedd ar sail dyddiad, ac yna dewiswch Gweld y Cod o'r ddewislen cyd-destun, yn y popped allan Microsoft Visual Basic ar gyfer Ceisiadau ffenestr, copïwch a gludwch y cod canlynol i'r Modiwl gwag:
Cod VBA: Mae dyddiad amddiffyn pob rhes wedi mynd heibio:
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
Nodyn: Yn y cod uchod, y rhif 5 yw rhif y golofn lle mae'r dyddiad wedi'i leoli, “111111”Yw'r cyfrinair i amddiffyn y ddalen hon. Gallwch eu newid i'ch angen.
3. Yna arbedwch a chau y ffenestr god hon.
(1.) Os cliciwch fod dyddiad y celloedd wedi mynd heibio, bydd blwch prydlon yn popio allan i'ch atgoffa na ellir golygu'r gell, gweler y screenshot:
(2.) Os cliciwch y gell o resi i geisio newid y gwerthoedd yn y dyddiad heddiw neu'r dyddiad yn y dyfodol, bydd yn cael ei newid yn llwyddiannus, gweler y screenshot:
Offer Cynhyrchiant Swyddfa Gorau
Supercharge Eich Sgiliau Excel gyda Kutools ar gyfer Excel, a Phrofiad Effeithlonrwydd Fel Erioed Erioed. Kutools ar gyfer Excel Yn Cynnig Dros 300 o Nodweddion Uwch i Hybu Cynhyrchiant ac Arbed Amser. Cliciwch Yma i Gael Y Nodwedd Sydd Ei Angen Y Mwyaf...
Mae Office Tab yn dod â rhyngwyneb Tabbed i Office, ac yn 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!