Hvordan beskyttes celler baseret på dato i Excel?
Normalt kan vi beskytte regnearket for at forhindre andre i at redigere eller ændre celleværdierne, men nogle gange er du nødt til at beskytte cellerne baseret på dato. For eksempel vil jeg beskytte andre celler, men kun tillade, at celleværdierne i dagens dato ændres som vist på følgende skærmbillede, denne artikel vil tale om, hvordan man beskytter celler baseret på dato.
Beskyt alle rækker undtagen dagens datorrække med VBA-kode
Beskyt alle rækker, datoen er passeret med VBA-kode
Beskyt alle rækker undtagen dagens datorrække med VBA-kode
Tillad kun den række, der svarer til dagens dato, at blive ændret, følgende kode kan hjælpe dig, gør venligst som denne:
1. Højreklik på arkfanen, som du vil beskytte cellerne baseret på dato, og vælg derefter Vis kode fra genvejsmenuen, i poppet ud Microsoft Visual Basic til applikationer vindue, skal du kopiere og indsætte følgende kode i det tomme modul:
VBA-kode: Beskyt alle rækker undtagen dagens datorrække:
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
Bemærk: I ovenstående kode, brevet E er kolonneoverskriften, hvor datoen er placeret, “111111”Er adgangskoden til at beskytte dette ark. Du kan ændre dem til dit behov.
2. Gem og luk derefter dette kodevindue.
(1.) Hvis du klikker på andre celler ud over dagens datorrække, vises et promptfelt for at minde dig om, at cellen ikke kan redigeres, se skærmbillede:
(2.) Hvis du klikker og rediger rækken svarer til dagens dato, vil den blive ændret med succes, se skærmbillede:
Beskyt alle rækker, datoen er passeret med VBA-kode
Hvis du har brug for at beskytte alle rækker, datoen er gået, kun tillader ændring i dag og fremtidige datorrækker, skal du anvende følgende VBA-kode:
1. Højreklik på arkfanen, som du vil beskytte cellerne baseret på dato, og vælg derefter Vis kode fra genvejsmenuen, i poppet ud Microsoft Visual Basic til applikationer vindue, skal du kopiere og indsætte følgende kode i det tomme modul:
VBA-kode: Beskyt alle rækker datoen er passeret:
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
Bemærk: I ovenstående kode, nummeret 5 er kolonnenummeret, hvor datoen er placeret, “111111”Er adgangskoden til at beskytte dette ark. Du kan ændre dem til dit behov.
3. Gem og luk derefter dette kodevindue.
(1.) Hvis du klikker på celledatoen er passeret, vises et promptfelt for at minde dig om at cellen ikke kan redigeres, se skærmbillede:
(2.) Hvis du klikker på cellen med rækker for at prøve at ændre værdierne i dagens dato eller fremtidige dato, vil den blive ændret med succes, se skærmbillede:
De bedste Office-produktivitetsværktøjer
Kutools til Excel løser de fleste af dine problemer og øger din produktivitet med 80%
- Genbruge: Indsæt hurtigt komplekse formler, diagrammer og alt, hvad du har brugt før; Krypter celler med adgangskode Opret postliste og send e-mails ...
- Super formel bar (let redigere flere linjer med tekst og formel); Læsning Layout (let at læse og redigere et stort antal celler); Indsæt til filtreret rækkevidde...
- Flet celler / rækker / kolonner uden at miste data; Split celler indhold; Kombiner duplikerede rækker / kolonner... Forhindre duplikerede celler; Sammenlign områder...
- Vælg Duplicate eller Unique Rækker; Vælg tomme rækker (alle celler er tomme); Super Find og Fuzzy Find i mange arbejdsbøger; Tilfældig valg ...
- Præcis kopi Flere celler uden at ændre formelreference; Auto Opret referencer til flere ark; Indsæt kugler, Afkrydsningsfelter og mere ...
- Uddrag tekst, Tilføj tekst, Fjern efter position, Fjern mellemrum; Opret og udskriv personsøgningssubtotaler; Konverter mellem celler indhold og kommentarer...
- Superfilter (gem og anvend filterskemaer på andre ark); Avanceret sortering efter måned / uge / dag, hyppighed og mere; Specielt filter af fed, kursiv ...
- Kombiner arbejdsbøger og arbejdsark; Fletabeller baseret på nøglekolonner; Opdel data i flere ark; Batch Konverter xls, xlsx og PDF...
- Mere end 300 kraftfulde funktioner. Understøtter Office / Excel 2007-2021 og 365. Understøtter alle sprog. Nem implementering i din virksomhed eller organisation. Fuld funktioner 30-dages gratis prøveperiode. 60 dages pengene tilbage garanti.
Fanen Office bringer en grænseflade til et kontor med Office, og gør dit arbejde meget lettere
- Aktiver redigering og læsning af faner i Word, Excel, PowerPoint, Publisher, Access, Visio og Project.
- Åbn og opret flere dokumenter i nye faner i det samme vindue snarere end i nye vinduer.
- Øger din produktivitet med 50 % og reducerer hundredvis af museklik for dig hver dag!
