Ինչպե՞ս արգելափակել կամ պաշտպանել բջիջները 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%-ով և նվազեցնում մկնիկի հարյուրավոր սեղմումները ձեզ համար ամեն օր:



































