Ինչպե՞ս պաշտպանել բջիջները ՝ ելնելով Excel- ի ամսաթվից:

Սովորաբար, մենք կարող ենք պաշտպանել աշխատաթերթը ՝ կանխելու համար, որ մյուսները բջիջների արժեքները խմբագրեն կամ փոփոխեն, բայց, երբեմն, անհրաժեշտ է պաշտպանել բջիջները ՝ ելնելով ամսաթվից: Օրինակ ՝ ես ուզում եմ պաշտպանել այլ բջիջներ, բայց թույլ եմ տալիս միայն այսօրվա ամսաթվի բջիջների արժեքները փոփոխել, ինչպես ցույց է տրված հետևյալ նկարում, այս հոդվածում կխոսվի, թե ինչպես պաշտպանել բջիջները ՝ ելնելով ամսաթվից:

Պաշտպանեք բոլոր տողերը, բացի այսօրվա ամսաթվից VBA կոդով

Պաշտպանեք բոլոր տողերը, որոնց ամսաթիվն անցել է, VBA կոդով

Պաշտպանեք բոլոր տողերը, բացի այսօրվա ամսաթվից VBA կոդով

Թույլ տվեք փոփոխել միայն այսօրվա ամսաթվին հավասար տողը, հետևյալ ծածկագիրը կարող է օգնել ձեզ, խնդրում ենք արեք հետևյալ կերպ.

1, Աջ կտտացրեք այն թերթիկի ներդիրին, որը ցանկանում եք պաշտպանել բջիջները ՝ ելնելով ամսաթվից, և այնուհետև ընտրել Դիտել կոդը համատեքստի ընտրացանկից ՝ դուրս եկած պատուհանում Microsoft Visual Basic հավելվածների համար պատուհանը, խնդրում ենք պատճենել և տեղադրեք հետևյալ կոդը դատարկ Մոդուլի մեջ.

VBA կոդ. Պաշտպանեք բոլոր տողերը, բացառությամբ այսօրվա ամսաթվերի:

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

ՆշումՎերոհիշյալ ծածկագրում `նամակը E սյունակի վերնագիրն է, որտեղ տեղակայված է ամսաթիվը, «111111”Այս ծածկագիրը պաշտպանելու գաղտնաբառն է: Կարող եք դրանք փոխել ըստ ձեր կարիքի:

2, Դրանից հետո պահեք և փակեք այս կոդի պատուհանը:

(1.) Եթե դուք կտտացնում եք այլ բջիջներ այսօրվա ամսաթվից այն կողմ, ապա հուշում է արկղը ՝ հիշեցնելու համար, որ բջիջը հնարավոր չէ խմբագրել, տես նկարի նկարը.

(2.) Եթե կտտացրեք և խմբագրեք տողը հավասար է այսօրվա ամսաթվին, այն հաջողությամբ կփոփոխվի, տես նկարի նկարը.

Պաշտպանեք բոլոր տողերը, որոնց ամսաթիվն անցել է, VBA կոդով

Եթե ​​Ձեզ անհրաժեշտ է պաշտպանել բոլոր տողերը, երբ անցել է ամսաթիվը, թույլ տվեք փոփոխել միայն այսօրվա և ապագա ամսաթվերի շարքերը, կիրառեք հետևյալ VBA կոդը.

1, Աջ կտտացրեք այն թերթիկի ներդիրին, որը ցանկանում եք պաշտպանել բջիջները ՝ ելնելով ամսաթվից, և այնուհետև ընտրել Դիտել կոդը համատեքստի ընտրացանկից ՝ դուրս եկած պատուհանում Microsoft Visual Basic հավելվածների համար պատուհանը, խնդրում ենք պատճենել և տեղադրեք հետևյալ կոդը դատարկ Մոդուլի մեջ.

VBA կոդ. Պաշտպանեք բոլոր շարքերի ամսաթիվը, որն անցել է.

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

ՆշումՎերոհիշյալ կոդում համարը 5 սյունակի համարն է, որտեղ տեղակայված է ամսաթիվը, «111111”Այս ծածկագիրը պաշտպանելու գաղտնաբառն է: Կարող եք դրանք փոխել ըստ ձեր կարիքի:

3, Դրանից հետո պահեք և փակեք այս կոդի պատուհանը:

(1.) Եթե կտտացնում եք բջիջների ամսաթվի անցման մասին, հուշում է արկղը, որը կհիշեցնի ձեզ, որ բջիջը հնարավոր չէ խմբագրել, տե՛ս նկարը.

(2.) Եթե կտտացնում եք շարքերի բջիջը ՝ փորձելու համար փոխել արժեքները այսօրվա կամ ապագա ամսաթվով, այն հաջողությամբ կփոփոխվի, տես նկարի նկարը.

---

Գրասենյակի արտադրողականության լավագույն գործիքները

Excel-ի համար Kutools-ը լուծում է ձեր խնդիրների մեծ մասը և բարձրացնում ձեր արտադրողականությունը 80%-ով

• Վերաօգտագործել: Արագ տեղադրեք բարդ բանաձևեր, գծապատկերներ և այն ամենը, ինչ դուք նախկինում օգտագործել եք. Ryածկագրել բջիջները գաղտնաբառով; Ստեղծեք փոստային ցուցակ և նամակներ ուղարկել ...
• Super Formula Bar (հեշտությամբ խմբագրեք տեքստի և բանաձևի բազմաթիվ տողեր); Ընթերցանության դասավորությունը (հեշտությամբ կարդալ և խմբագրել մեծ թվով բջիջներ); Տեղադրել ֆիլտրացված տիրույթում...
• Միաձուլել բջիջները / տողերը / սյունակները առանց տվյալների կորստի. Պառակտված բջիջների պարունակությունը; Միավորել կրկնօրինակ տողերը / սյունակները... Կանխել կրկնօրինակ բջիջները; Համեմատեք միջակայքերը...
• Ընտրեք Կրկնօրինակ կամ Եզակի Շարքեր; Ընտրեք դատարկ շարքեր (բոլոր բջիջները դատարկ են); Super Find և Fuzzy Find շատ աշխատանքային գրքույկներում; Պատահական ընտրություն ...
• Actշգրիտ պատճեն Բազմաթիվ բջիջներ ՝ առանց բանաձևի հղումը փոխելու; Ավտոմատ ստեղծեք հղումներ դեպի մի քանի թերթեր; Տեղադրեք փամփուշտներ, Տուփեր և ավելին ...
• Քաղվածք տեքստ, Տեքստ ավելացնել, հեռացնել ըստ դիրքի, Հեռացնել տարածությունը; Ստեղծել և տպել էջային ենթագոտիներ; Փոխարկել բջիջների բովանդակության և մեկնաբանությունների միջև...
• Սուպեր զտիչ (պահպանել և կիրառել ֆիլտրի սխեմաները այլ թերթերի վրա); Ընդլայնված տեսակավորում ըստ ամիս / շաբաթ / օր, հաճախականություն և ավելին; Հատուկ զտիչ համարձակ, շեղատառով ...
• Միավորել աշխատանքային տետրերը և աշխատանքային թերթերը; Միավորել աղյուսակները ՝ հիմնված հիմնական սյունակների վրա; Տվյալները բաժանեք մի քանի թերթերի; Խմբաքանակի փոխակերպում xls, xlsx և PDF...
• Ավելի քան 300 հզոր հատկություններ. Աջակցում է Office / Excel 2007-2021 և 365: Աջակցում է բոլոր լեզուներին: Հեշտ տեղակայում ձեր ձեռնարկությունում կամ կազմակերպությունում: Ամբողջական հնարավորություններ 30-օրյա անվճար փորձարկում: 60-օրյա գումարի վերադարձի երաշխիք:

Կարդալ ավելին... Անվճար ներբեռնում... Գնեք ... 

---

Office Tab- ը Tabbed ինտերֆեյսը բերում է Office, և ձեր աշխատանքը շատ ավելի դյուրին դարձրեք

• Միացնել ներդիրներով խմբագրումը և ընթերցումը Word, Excel, PowerPoint- ով, Հրատարակիչ, Access, Visio և Project:
• Բացեք և ստեղծեք բազմաթիվ փաստաթղթեր նույն պատուհանի նոր ներդիրներում, այլ ոչ թե նոր պատուհաններում:
• Բարձրացնում է ձեր արտադրողականությունը 50%-ով և նվազեցնում մկնիկի հարյուրավոր սեղմումները ձեզ համար ամեն օր:

Կարդալ ավելին... Անվճար ներբեռնում... Գնեք ...