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

Ինչպե՞ս արգելափակել կամ պաշտպանել բջիջները 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-ի համար Kutools-ը լուծում է ձեր խնդիրների մեծ մասը և բարձրացնում ձեր արտադրողականությունը 80%-ով

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

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

  • Միացնել ներդիրներով խմբագրումը և ընթերցումը Word, Excel, PowerPoint- ով, Հրատարակիչ, Access, Visio և Project:
  • Բացեք և ստեղծեք բազմաթիվ փաստաթղթեր նույն պատուհանի նոր ներդիրներում, այլ ոչ թե նոր պատուհաններում:
  • Բարձրացնում է ձեր արտադրողականությունը 50%-ով և նվազեցնում մկնիկի հարյուրավոր սեղմումները ձեզ համար ամեն օր:
officetab ներքևում
Տեսակավորել մեկնաբանությունները ըստ
մեկնաբանություններ (74)
Գնահատված 5- ը 5- ից դուրս է · 1 վարկանիշ
Այս մեկնաբանությունը կայքի վարողի կողմից նվազագույնի է հասցվել
Ողջույն, ես A3:AN219 տիրույթով աղյուսակ ունեմ, ես կցանկանայի պաշտպանել այս տիրույթը, երբ մուտքագրումն ավարտվի: Խնդրում եմ օգնեք ինձ այս հարցում: Ես փորձեցի վերը նշված կոդը, բայց այն ինձ մոտ չի աշխատում
Այս մեկնաբանությունը կայքի վարողի կողմից նվազագույնի է հասցվել
Սա չի աշխատում, երբ այն նորից բացում է excel ֆայլը, խնդրում ենք օգնել
Այս մեկնաբանությունը կայքի վարողի կողմից նվազագույնի է հասցվել
Փոխարենը փորձեք այս կոդը՝ Private Sub Worksheet_Change (ByVal Target As Range) Dim MyRange As Range Set MyRange = Intersect(Range("A1:D100"), Target) If Not MyRange Is Nothing, then Sheets("Sheet1"): Ապապաշտպանել գաղտնաբառը: ="բարև" MyRange.Locked = True Sheets("Sheet1").Պաշտպանեք գաղտնաբառը:="hello" End If End Sub Եվ հիշեք փոխել տիրույթը (A1:D100), գաղտնաբառը (բարև) և թերթի (Sheet1) անունները/թվերը: եթե այն չի համապատասխանում վերը նշվածին :)
Այս մեկնաբանությունը կայքի վարողի կողմից նվազագույնի է հասցվել
Շնորհակալություն կոդի համար: Խնդրում եմ ինձ տեղյակ պահեք, թե ինչպես անել բջիջների ավտոմատ կողպումը (ձեր կողմից թվարկվածների նման) ՄԻԱՅՆ ֆայլը պահելուց հետո:
Այս մեկնաբանությունը կայքի վարողի կողմից նվազագույնի է հասցվել
Ողջույն, պարոն, ես բախվում եմ նույն կոդի հետ կապված մեկ խնդրի հետ VBA-ում այս կոդը այլ cobe-ի հետ օգտագործելիս: Խնդրում եմ ինձ ինչ-որ լուծում առաջարկեք: Շնորհակալություն և հարգանքներով Gourav
Այս մեկնաբանությունը կայքի վարողի կողմից նվազագույնի է հասցվել
Հարգելի Գուրավ,
Ներողություն, չի կարող լուծել այս խնդիրը:
Այս մեկնաբանությունը կայքի վարողի կողմից նվազագույնի է հասցվել
Ես փորձեցի կոդը և կարծես թե որոշ չափով աշխատեց: Այնուամենայնիվ, այն թույլ է տալիս ինձ ջնջել բջիջ մուտքագրված ամսաթիվը, բայց ինձ խանգարում է միայն այն ժամանակ, երբ փորձում եմ այլ բան մուտքագրել: Տվյալները չջնջելու միջոց կա՞:
Այս մեկնաբանությունը կայքի վարողի կողմից նվազագույնի է հասցվել
Հարգելի Սթեյսի,
Նույն խնդիրը իմ դեպքում չի առաջանում։ Կոդը թույլ չի տալիս օգտվողներին մուտք գործել, ինչպես նաև ջնջել տվյալները նշված տիրույթից: Կտրամադրե՞ք ձեր Office տարբերակը հետագա փորձարկման համար:
Այս մեկնաբանությունը կայքի վարողի կողմից նվազագույնի է հասցվել
Յուրաքանչյուրի համար, ով կարող էր այս մեկնաբանությունից հետո այստեղ սայթաքել: Եթե ​​դուք պետք է ապակողպեք աշխատաթերթը ԱՄԵՆ ԱՆԳԱՄ բջիջ եք լրացնում, ապա նախ պետք է, - Բացեք աղյուսակը - Նշեք աշխատանքային թերթի այն տարածքը, որի վրա կիրառվում է կոդը - Աջ սեղմեք և անցեք «ֆորմատավորել բջիջները» - Գնալ դեպի «Պաշտպանություն» կոչվող ծայրամասային աջ ներդիրը և ՀԱՆՁՆԵՔ «Կողպված» բաժինը (նույնիսկ եթե այն երևում է որպես պինդ լցոն՝ նշանի փոխարեն): Դրանից հետո դուք կկարողանաք տվյալներ մուտքագրել բազմաթիվ բջիջներում՝ առանց ամեն անգամ ապակողպելու անհրաժեշտության: Հիշեք, եթե տեղեկատվությունը ջնջելու կամ խմբագրելու համար անհրաժեշտ է նորից այցելել կողպված բջիջներ, գուցե անհրաժեշտ լինի կրկնել վերը նշված քայլերը: Հուսով եմ, որ սա օգնում է:
Այս մեկնաբանությունը կայքի վարողի կողմից նվազագույնի է հասցվել
Ես սիրում եմ կողպել միայն խմբագրված բջիջները: Երբ ես որևէ տվյալ մուտքագրում եմ դատարկ բջիջներում, ես պահանջում եմ կողպել խմբագրված բջիջը, որպեսզի ինքնաբերաբար կողպվի, բայց ոչ դատարկ բջիջները:
Այս մեկնաբանությունը կայքի վարողի կողմից նվազագույնի է հասցվել
Հարգելի Սուբհաշ,
Կոդն օգտագործելուց հետո միայն խմբագրված բջիջներն են կողպվում նշված տիրույթում։ Եվ դուք դեռ կարող եք տվյալներ մուտքագրել դատարկ բջիջներում նշված տիրույթում, ինչպես ձեզ անհրաժեշտ է: Դատարկ բջիջը լրացնելուց հետո այն ինքնաբերաբար կկողպվի:
Այս մեկնաբանությունը կայքի վարողի կողմից նվազագույնի է հասցվել
Ոչ, այն միանգամից կողպում է ամբողջ տիրույթը տիրույթում գտնվող բջիջ տվյալների մուտքագրումից հետո
Այս մեկնաբանությունը կայքի վարողի կողմից նվազագույնի է հասցվել
Հարգելի Պրադիպ,
Office-ի ո՞ր տարբերակն եք օգտագործում:
Այս մեկնաբանությունը կայքի վարողի կողմից նվազագույնի է հասցվել
Շնորհակալ եմ կոդավորման համար, բայց ես խնդիր ունեմ 2 կոդավորում տեղադրել 1 թերթում, խնդրում եմ օգնեք:
Այս մեկնաբանությունը կայքի վարողի կողմից նվազագույնի է հասցվել
Հարգելի տոնավաճառ,
Ներողություն, չի կարող լուծել այս խնդիրը:
Այս մեկնաբանությունը կայքի վարողի կողմից նվազագույնի է հասցվել
Ողջու՜յն,
Պարոն, ես ուզում եմ կողպել մեկ անգամ մուտքագրելուց հետո:
Ոնց որ ես հետևում եմ մեկ հաճախորդի և գրում եմ կարգավիճակը, այլևս որևէ աշխատակից չի կարող դա խմբագրել կամ փոփոխել:
Այս մեկնաբանությունը կայքի վարողի կողմից նվազագույնի է հասցվել
Լավ օր,
Այս գրառման մեթոդը կարող է նաև օգնել ձեզ լուծել այս խնդիրը:
Այս մեկնաբանությունը կայքի վարողի կողմից նվազագույնի է հասցվել
բջիջները նույնիսկ խմբագրելի չեն...ինչը սխալ է եղել, չեմ հասկանում, խնդրում եմ օգնեք
Այս մեկնաբանությունը կայքի վարողի կողմից նվազագույնի է հասցվել
Լավ օր,
Սկզբում դուք պետք է կարգավորեք նշված բջիջները՝ Unlocked-ի խմբագրման համար, այնուհետև պաշտպանեք աշխատաթերթը: Եվ վերջապես կիրառեք VBA սցենարը:
Այս մեկնաբանությունը կայքի վարողի կողմից նվազագույնի է հասցվել
այն պետք է կոդավորվի՞
Այս մեկնաբանությունը կայքի վարողի կողմից նվազագույնի է հասցվել
Hi


Ես ուզում եմ, որ այն կողպվի միջակայքը տիրույթի մեկ բջիջ մտնելուց հետո, խնդրում եմ, կարող եք խորհուրդ տալ, թե ինչպես պետք է խմբագրեմ սա դա անելու համար: Շնորհակալություն
Այս մեկնաբանությունը կայքի վարողի կողմից նվազագույնի է հասցվել
Hi
Կոդը խմբագրելիս կա՞ միջոց, որով այն արգելափակի տիրույթի բոլոր բջիջները, երբ տվյալ տիրույթում տվյալները մուտքագրվեն մեկ բջիջ: այնպես որ նրանք կարող են տվյալներ մուտքագրել միայն մեկ բջիջ, ոչ թե բազմակի տիրույթում:


Շնորհակալություն
Այս մեկնաբանությունը կայքի վարողի կողմից նվազագույնի է հասցվել
Հարգելի Ջեքի,
Ստորև բերված VBA կոդը կարող է օգնել ձեզ լուծել խնդիրը:

Private Sub Worksheet_Change (ByVal Target as Range)
Dim xRg որպես տիրույթ
Dim xSRg որպես միջակայք
Ս.թ. սխալի Ռեզյումե Next
Սահմանել xSRg = միջակայք («A1:F8»)
Սահմանել xRg = Խաչմերուկ (xSRg, թիրախ)
Եթե ​​xRg-ը ոչինչ է, ապա դուրս եկեք Sub
Target.Worksheet.Unprotect Password:="123"
xSRg.Locked = Ճիշտ է
Target.Worksheet.Protect Password:="123"
Վերջ Sub
Այս մեկնաբանությունը կայքի վարողի կողմից նվազագույնի է հասցվել
Բարեւ,
Կա՞ միջոց կողպելու միայն բջիջները, այլ ոչ թե ամբողջ թերթիկը: Օրինակ, եթե օգտվողը մուտքագրում է «Այո» A2-ում, ապա A2-ը անմիջապես կկողպվի, որպեսզի թույլ չտա որևէ փոփոխություն: Ես դեռ կցանկանայի, որ մյուսները նույնպես կարողանան խմբագրել որևէ այլ բջիջ: Շնորհակալություն
Այս մեկնաբանությունը կայքի վարողի կողմից նվազագույնի է հասցվել
Բարև Սմիթ,
Ստորև բերված VBA կոդը կարող է օգնել ձեզ լուծել խնդիրը: Խնդրում ենք փորձել և շնորհակալություն մեկնաբանության համար:

Private Sub Worksheet_Change (ByVal Target as Range)
Ս.թ. սխալի Ռեզյումե Next
Target.Worksheet.Unprotect Password:="123"
Target.Locked = Ճիշտ է
Target.Worksheet.Protect Password:="123"
Վերջ Sub
Այս մեկնաբանությունը կայքի վարողի կողմից նվազագույնի է հասցվել
Բարի առավոտ,

Արդյո՞ք կա՞ որևէ կերպ թույլ չտալ օգտվողին աջ սեղմել «դիտել կոդը» և տեսնել ադմինիստրատորի գաղտնաբառը:
Այս մեկնաբանությունը կայքի վարողի կողմից նվազագույնի է հասցվել
Դեմ չէ, ես հասկացա:
Այս մեկնաբանությունը կայքի վարողի կողմից նվազագույնի է հասցվել
Ինչպե՞ս: չհասկացա...
Այս մեկնաբանությունը կայքի վարողի կողմից նվազագույնի է հասցվել
բարև, օգնության կարիք կա


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


կա՞ որևէ կոդ/ֆունկցիա, որը կհաշվարկի օրական կոնկրետ հարցումների քանակը, այնուհետև, երբ քվոտան հասնի, ապա մյուս բջիջները արգելափակվեն հարցումների համար, որպեսզի չգերազանցվեն: նախապես շնորհակալություն
Այս մեկնաբանությունը կայքի վարողի կողմից նվազագույնի է հասցվել
Բարի օր,
Բարի գալուստ ցանկացած հարց տեղադրել մեր ֆորումում. https://www.extendoffice.com/forum.html.
Դուք կստանաք ավելի շատ Excel աջակցություն մեր պրոֆեսիոնալ կամ Excel-ի այլ երկրպագուներից:
Այս մեկնաբանությունը կայքի վարողի կողմից նվազագույնի է հասցվել
Բարև, այս գրառումը շատ օգտակար էր և հիանալի աշխատում: Այնուամենայնիվ, իմ ֆիլտրերը դադարում են աշխատել, երբ բջիջները արգելափակվում են: Սա շրջանցելու ճանապարհ կա՞: Շնորհակալություն
Այս մեկնաբանությունը կայքի վարողի կողմից նվազագույնի է հասցվել
Բարև Քիմ,
Ներողություն չեմ կարող օգնել այս հարցում: Զտիչի ֆունկցիան լռելյայն անջատված է պաշտպանված աշխատաթերթում:
Այս մեկնաբանությունը կայքի վարողի կողմից նվազագույնի է հասցվել
Շնորհակալություն մարդ, սա փրկեց իմ աշխատանքը: D
Այս մեկնաբանությունը կայքի վարողի կողմից նվազագույնի է հասցվել
երբ ես դուրս եկա ընթացիկ գործող ֆայլից և նորից բացեցի այն, ես գտա, որ նոր բջիջը կողպված չէ տվյալների մուտքագրումից հետո, միայն նախորդ կողպեքի բջիջը գտել է կողպեքը: ցանկացած լուծում
Այս մեկնաբանությունը կայքի վարողի կողմից նվազագույնի է հասցվել
Ողջույն Նազմուլ,
Նախքան այն փակելը, դուք պետք է պահեք աշխատանքային գիրքը որպես Excel մակրո-միացված աշխատանքային գրքույկ:
Առայժմ ոչ մի մեկնաբանություն չկա
Բեռնել More
Թողեք ձեր մեկնաբանությունները
Հրապարակում որպես հյուր
×
Գնահատեք այս գրառումը.
0   Անձնավորություններ
Առաջարկվող վայրեր

Հետեւեք մեզ

Հեղինակային իրավունքի © 2009 - www.extendoffice.com. | Բոլոր իրավունքները պաշտպանված են. Powered by ExtendOffice. | | Կայքի քարտեզ
Microsoft- ը և Office- ի պատկերանշանը հանդիսանում են Microsoft Corporation- ի ապրանքային նշաններ կամ գրանցված ապրանքային նշաններ ԱՄՆ-ում և (կամ) այլ երկրներում:
Պաշտպանված է Sectigo SSL- ի կողմից