Ինչպե՞ս արգելափակել կամ պաշտպանել բջիջները Excel- ում տվյալների մուտքագրումից կամ մուտքագրումից հետո:

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

VBA կոդով տվյալների մուտքագրումից կամ մուտքագրումից հետո բջիջները կողպեք կամ պաշտպանեք

VBA կոդով տվյալների մուտքագրումից կամ մուտքագրումից հետո բջիջները կողպեք կամ պաշտպանեք

Օրինակ, դատարկ բջիջների որոշակի տիրույթը A1 է: F8: Excel- ում տվյալների մուտքագրումից հետո այս բջիջները կողպելու համար կատարեք հետևյալը.

1. Խնդրում ենք նախ ապակողպել այս միջակայքը, ընտրել բջիջները և աջ կտտացնելով, ապա ընտրել Ձևաչափել բջիջները աջ կտտացնելու ընտրացանկում և Ձևաչափել բջիջները երկխոսության տուփ, ապանշում է կողպված տուփ տակ պաշտպանություն էջանիշը և վերջապես կտտացնելով այն OK կոճակ Տեսեք,

2: սեղմեք տեսություն > Պաշտպանեք Թերթիկը, Եվ նշեք գաղտնաբառ ՝ այս աշխատանքային թերթը պաշտպանելու համար:

3. Աջ կտտացրեք թերթիկի ներդիրին, ընտրեք Դիտել կոդը աջ կտտացնելու ցանկից: Դրանից հետո պատճենեք և կպցրեք ստորև նշված VBA կոդը օրենսգրքի պատուհանում: Տեսեք,

VBA կոդ. Կողպեք կամ պաշտպանեք բջիջները տվյալների մուտքագրումից կամ մուտքագրումից հետո

Dim mRg As Range
Dim mStr As String

Private Sub Worksheet_BeforeDoubleClick(ByVal Target As Range, Cancel As Boolean)
If Not Intersect(Range("A1:F8"), Target) Is Nothing Then
    Set mRg = Target.Item(1)
    mStr = mRg.Value
End If
End Sub
Private Sub Worksheet_Change(ByVal Target As Range)
    Dim xRg As Range
    On Error Resume Next
    Set xRg = Intersect(Range("A1:F8"), Target)
    If xRg Is Nothing Then Exit Sub
    Target.Worksheet.Unprotect Password:="123"
    If xRg.Value <> mStr Then xRg.Locked = True
    Target.Worksheet.Protect Password:="123" 
End Sub
Private Sub Worksheet_SelectionChange(ByVal Target As Range)
If Not Intersect(Range("A1:F8"), Target) Is Nothing Then
    Set mRg = Target.Item(1)
     mStr = mRg.Value
End If
End Sub

ՆշումԿոդում «A1: F8» - ը այն տիրույթն է, որն անհրաժեշտ է տվյալների մուտքագրման համար: իսկ «123» -ը այս պաշտպանված աշխատանքային թերթի գաղտնաբառն է: Խնդրում ենք փոխել դրանք, ինչպես ձեզ հարկավոր է:

4. Մամուլ ալտ + Q ստեղները միաժամանակ փակելու համար Microsoft Visual Basic հավելվածների համար պատուհան.

A1: F8 տիրույթի բջիջներում տվյալների մուտքագրումն ավարտելուց հետո դրանք ավտոմատ կերպով կփակվեն: Եվ դուք կստանաք արագ երկխոսության տուփ, եթե փորձեք փոխել այս տիրույթի ցանկացած բջջային բովանդակություն: Տեսեք,

Առնչվող հոդվածներ:

• Ինչպե՞ս Excel- ում միանգամից արգելափակել բջիջների բոլոր հղումները բանաձևերում:
• Ինչպե՞ս արգելափակել կամ բացել բջիջները ՝ հիմնված Excel- ի մեկ այլ բջջի արժեքների վրա:
• Ինչպե՞ս Excel- ում կողպել նկարը / նկարը բջիջում կամ դրա ներսում:

---

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

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%-ով և նվազեցնում մկնիկի հարյուրավոր սեղմումները ձեզ համար ամեն օր:

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