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

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.

doc amddiffyn erbyn dyddiad 1

Amddiffyn pob rhes ac eithrio rhes dyddiad heddiw gyda chod VBA

Amddiffyn pob rhes mae'r dyddiad wedi mynd heibio gyda chod VBA


swigen dde glas saeth 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

doc amddiffyn erbyn dyddiad 2

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:

doc amddiffyn erbyn dyddiad 3

(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:

doc amddiffyn erbyn dyddiad 4


swigen dde glas saeth 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

doc amddiffyn erbyn dyddiad 5

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:

doc amddiffyn erbyn dyddiad 6

(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:

doc amddiffyn erbyn dyddiad 7


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 (30)
Dim sgôr eto. Byddwch y cyntaf i sgorio!
Lleihawyd y sylw hwn gan y safonwr ar y wefan
Loophole: Gall person arall weld y cyfrinair trwy ddefnyddio opsiwn "View Code".
Lleihawyd y sylw hwn gan y safonwr ar y wefan
ddim yn gweithio gan fod yr holl gell yn dangos y neges ond mae modd eu golygu
Lleihawyd y sylw hwn gan y safonwr ar y wefan
Helo ydy hi'n bosib cloi colofnau erbyn y dyddiad yn union uwchben y colofnau?
Lleihawyd y sylw hwn gan y safonwr ar y wefan
Is-ddalen waith breifat_Change(ByVal Target As Range)

'Tanysgrifio i http://youtube.com/excel10tutorial

'Cefnogwch y sianel trwy gyfrannu ymlaen http://patreon.com/excel10tutorial

Dim col As Range

'Rhowch enw cywir y ddalen yma:

Gyda ThisWorkbook.Sheets("AGOSTO-22")

.Unprotect "ABCDE"

Ar gyfer Pob col Yn .UsedRange.Columns

col.EntireColumn.Locked = col.Range("A1").Gwerth <> Dyddiad

Col nesaf

.Protect "ABCDE"

.EnableSelection = xlNoCyfyngiadau

Diwedd Gyda

Is-End
Lleihawyd y sylw hwn gan y safonwr ar y wefan
Helo a yw'n bosibl cloi rhai celloedd yn dibynnu ar y dyddiad sy'n union uwch eu pennau mewn colofn?
Lleihawyd y sylw hwn gan y safonwr ar y wefan
Helo, Lusis,
A allwch roi eich problem yn fwy penodol? Neu gallwch atodi sgrinlun fel eich problem.
Diolch yn fawr!
Lleihawyd y sylw hwn gan y safonwr ar y wefan
Helo skyyang

Ydy, dyma sgrinlun. Gobeithio bod hyn yn helpu.
Lleihawyd y sylw hwn gan y safonwr ar y wefan
Dyma hi.
Lleihawyd y sylw hwn gan y safonwr ar y wefan
Helo, Lucis,
Ydych chi'n bwriadu cloi'r colofnau pa ddyddiad sydd wedi mynd heibio, a dim ond colofnau heddiw a'r dyfodol all gael eu haddasu?
Lleihawyd y sylw hwn gan y safonwr ar y wefan
Cywir! Sut fyddwn i'n mynd ati i wneud hynny?
Lleihawyd y sylw hwn gan y safonwr ar y wefan
Helo, Luis,
Beth am y gell dyddiad yn A1? A yw'n cael ei gofnodi â llaw neu ei fewnbynnu gyda fformiwla =now()? Os yw'n gell fformiwla, bydd y colofnau cloi yn cael eu newid gyda'r newidiadau dyddiad.
Edrych ymlaen at eich ateb!
Lleihawyd y sylw hwn gan y safonwr ar y wefan
Helo Skyyangg

oes mae gan y gell A1 y fformiwla =now().

diolch!
Lleihawyd y sylw hwn gan y safonwr ar y wefan
Helo.....


Rwy'n defnyddio'r cod ar gyfer Diogelu pob rhes ac eithrio'r rhes dyddiad heddiw ......



Is-daflen Waith Breifat_SelectionChange(FalVal Target As Range)
'Updateby Extendoffice 20161025
Os Ystod ("A" & Selection.Row).Gwerth <> Dyddiad Yna
ActiveSheet.Protect Password:="111111"
msgstr "Dim ond rhes dyddiad heddiw y gellir ei golygu!", vbInformation, "Kutools for Excel"
Ystod ElseIf("E" & Selection.Row).Value = Dyddiad Yna
ActiveSheet.Unprotect Password:="111111"
ActiveSheet.EnableSelection = xlNoRestrictions
Gorffennwch Os
Is-End


Ar ôl i mi gadw fi a chlicio ar gell caf neges dim ond rhes dyddiad heddiw y gellir ei olygu....ond os byddaf yn clicio ddwywaith ar y gell gallaf olygu... pls help
Lleihawyd y sylw hwn gan y safonwr ar y wefan
Mae hyn yn gweithio'n wych. ond sut alla i ei newid i ddatgloi colofn yn seiliedig ar ddyddiadau yn rhes 3?
Lleihawyd y sylw hwn gan y safonwr ar y wefan
Fel rhywun sy'n gymharol newydd i VBA, a fyddech chi'n meindio egluro pam mae xRow = 2 yn Llinell 4?



diolch
Lleihawyd y sylw hwn gan y safonwr ar y wefan
oherwydd yn rhes no. 1 mae gennych bennawd
Lleihawyd y sylw hwn gan y safonwr ar y wefan
Heia,

wrth redeg y cod hwn rwy'n cael gwall fel y dangosir yn y ffigur
Hefyd, rydw i'n atodi ciplun o'm Excel lle rydw i eisiau gwneud newidiadau.

A allwch chi arwain yn fy nghod ble ddylwn i wneud newidiadau yn ôl fy ffeil excel fel bod modd golygu celloedd sy'n cynnwys dyddiad heddiw a dyfodol yn unig???
Lleihawyd y sylw hwn gan y safonwr ar y wefan
Helo, Karan,
Oherwydd bod celloedd wedi'u huno yn eich tabl, ni all y cod uchod gael ei gymhwyso'n gywir yn y tabl celloedd wedi'u cyfuno.
Os oes gennych chi unrhyw syniadau da eraill, rhowch sylwadau yma. Diolch!
Lleihawyd y sylw hwn gan y safonwr ar y wefan
Helo, ceisiais wneud yr un peth ond i Ddiogelu pob colofn ac eithrio'r golofn dyddiad heddiw gyda chod VBA trwy ddisodli "Selection.Row" gyda "Selection.Columns" ac "E" gyda "5" (rhif rhes lle mae dyddiadau), ond Rwy'n dal i dderbyn gwall 1004!

Unrhyw help os gwelwch yn dda?

Diolch yn fawr
Lleihawyd y sylw hwn gan y safonwr ar y wefan
Helo, ceisiais wneud yr un peth ond i Ddiogelu pob colofn ac eithrio'r golofn dyddiad heddiw gyda chod VBA trwy ddisodli "Selection.Row" gyda "Selection.Columns" ac "E" gyda "5" (rhif rhes lle mae dyddiadau), ond Rwy'n dal i dderbyn gwall 1004!

Unrhyw help os gwelwch yn dda?

Diolch yn fawr
Lleihawyd y sylw hwn gan y safonwr ar y wefan
Helo,
I gymhwyso'r cod hwn i'r colofnau sydd eu hangen arnoch, defnyddiwch y cod VBA canlynol: (Sylwer: Yn y cod, 5 yw'r rhif rhes sy'n cynnwys y dyddiad, newidiwch ef i'ch angen.)

Is-daflen Waith Breifat_SelectionChange(FalVal Target As Range)
Dim xRg Fel Ystod
Gosod xRg = Target.Worksheet.Cells(5, Target.Column)
Os xRg <> Dyddiad Yna
ActiveSheet.Protect Password:="111111"
msgstr "Dim ond rhes dyddiad heddiw y gellir ei golygu!", vbInformation, "Kutools for Excel"
ElseIf xRg.Value = Dyddiad Yna
ActiveSheet.Unprotect Password:="111111"
ActiveSheet.EnableSelection = xlNoRestrictions
Gorffennwch Os
Is-End

Ceisiwch, gobeithio y gall eich helpu!
Lleihawyd y sylw hwn gan y safonwr ar y wefan
Diolch! Mae'n ddrwg gennym, ni chefais eich ateb tan nawr, efallai ei fod yn broblem yn fy e-bost.

Fe weithiodd! Methu dweud diolch ddigon! Dwi wir yn gwerthfawrogi hynny!
Lleihawyd y sylw hwn gan y safonwr ar y wefan
Heia,
Falch y gall eich helpu chi!
Lleihawyd y sylw hwn gan y safonwr ar y wefan
Heia,

Rwy'n ceisio ehangu hyn i ddiogelu colofnau nad ydynt yn cynnwys y mis cyfredol hwn neu/a'r wythnos gyfredol hon. Ceisiais ddisodli "Dyddiad" gyda "mis" neu "wythnos", ond nid oedd yn gweithio.

Rwyf wedi atodi taflen sampl ar gyfer wythnosau lle na all y defnyddiwr olygu na theipio colofnau heblaw'r wythnos hon.

Unrhyw gyngor ar hynny? neu a fyddaf yn defnyddio dyddiadau gwirioneddol i adlewyrchu diwrnod yn y mis?
Lleihawyd y sylw hwn gan y safonwr ar y wefan
Diolch am eich help, Diolch yn fawr cyfaill, Mae'n help mawr. a datrys fy nhensiwn.
Byddwch yn ddiogel
Cofion Rohit Khanna
Lleihawyd y sylw hwn gan y safonwr ar y wefan
Helo Rwy'n wynebu un broblem, ar ôl i mi gau'r ffeil a'i hailagor eto ar yr un dyddiad, nid yw'r cod yn gweithio. pls helpu im sownd
Lleihawyd y sylw hwn gan y safonwr ar y wefan
Helo, rohit,
I gadw'r cod, dylech arbed eich llyfr gwaith fel fformat Excel Macro-Enabled Workbook, ceisiwch, diolch!
Lleihawyd y sylw hwn gan y safonwr ar y wefan
helo fe wnes i ond pan fyddaf yn pwyso neges cell yn dangos na ellir ei olygu ond pan fyddaf yn pwyso bysellfwrdd gallaf ysgrifennu yn y gell o hyd
Lleihawyd y sylw hwn gan y safonwr ar y wefan
Helo, hoffwn amddiffyn dyddiau'r dyfodol a chaniatáu golygu dyddiau presennol a gorffennol. Sut mae gwneud hynny?
Lleihawyd y sylw hwn gan y safonwr ar y wefan
Helo, Miguel, Er mwyn amddiffyn y dyddiau yn y dyfodol, cymhwyswch y cod isod: Is-daflen waith breifat_Change(ByVal Target As Excel.Range)
'Updateby Extendoffice
Dim xRow Cyhyd
xRhes = 2
ThisWorkbook.ActiveSheet.Unprotect Password:="111111"
ThisWorkbook.ActiveSheet.Cells.Locked = Gau
Gwneud Tan Yn Wag(Celloedd(xRow, 5))
Os Celloedd(xRow, 5) > Dyddiad Yna
Rhesi(xRow).Locked = Gwir
Gorffennwch Os
xRow = xRhes + 1
dolen
ThisWorkbook.ActiveSheet.Protect Password:="111111"
Diwedd SubPlease Ceisiwch, gobeithio y gall eich helpu!
Nid oes unrhyw sylwadau wedi'u postio yma eto
Gadewch eich sylwadau
Postio fel Gwestai
×
Graddiwch y swydd hon:
0   Cymeriadau
Lleoliadau a Awgrymir