Ինչպե՞ս պահել սեղանն ընդարձակելի ՝ Excel- ում պաշտպանված աշխատանքային թերթում տեղադրելով սեղանի տողը:

Excel- ում աշխատաթերթը պաշտպանելուց հետո աղյուսակի ավտոմատ ընդլայնման գործառույթը կկորչի: Օրինակ, ձեր պաշտպանված աշխատաթերթում կա Աղյուսակ անունով աղյուսակ, երբ վերջին շարքի տակ որևէ բան եք մուտքագրում, աղյուսակը ավտոմատ չի ընդլայնվի ՝ ներառելով նոր տողը: Կա՞ արդյոք մեթոդ ՝ սեղանը ընդարձակելի պահելու համար ՝ նոր շարքը տեղադրելով պաշտպանված աշխատաթերթում: Այս հոդվածում նշված մեթոդը կարող է օգնել ձեզ հասնել դրան:

Պահպանեք աղյուսակը ընդարձակելի `տեղադրելով աղյուսակի տողը պաշտպանված աշխատաթերթում` VBA կոդով

Պահպանեք աղյուսակը ընդարձակելի `տեղադրելով աղյուսակի տողը պաշտպանված աշխատաթերթում` VBA կոդով

Amazարմանալի! Օգտագործելով արդյունավետ ներդիրներ Excel- ում, ինչպիսիք են Chrome- ը, Firefox- ը և Safari- ն:

Խնայեք ձեր ժամանակի 50% -ը և ամեն օր կրճատեք մկնիկի հազարավոր կտտոցներ ձեզ համար:

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

1: սեղմեք Երեվակիչ > Տեղադրել > Կոճակ (Ձևի հսկողություն) տեղադրելու համար ա Ձևի վերահսկում կոճակը ձեր աշխատաթերթում:

2. Պատուհանման մեջ Նշանակեք մակրո երկխոսության տուփ, կտտացրեք նոր կոճակը:

3. Մեջ Microsoft Visual Basic հավելվածների համար պատուհանը, խնդրում ենք պատճենել և կպցնել ներքևի VBA կոդը ՝ Sub և Վերջ Sub պարբերություններ Կոդ պատուհան.

VBA կոդ. Պահպանեք աղյուսակը ընդարձակելի `պաշտպանական աշխատանքային թերթում տեղադրելով սեղանի տողը

 'Update by ExtendOffice 20220826
    Dim xRg, tableRg As Range
    Dim xRowCount As Integer
    Dim pswStr As String
    pswStr = "123"
    On Error Resume Next
    Application.ScreenUpdating = False
    ActiveSheet.Unprotect Password:=pswStr

    Set tableRg = ActiveSheet.ListObjects("Table4").Range
    xRowCount = tableRg.Rows.Count
    
    Set xRg = Range("Table4[[#Headers],[Total]]").Offset(1, 0)
    Set yRg = xRg.Resize(xRowCount, 1)
    xRg.Resize(xRowCount - 1, 1).AutoFill Destination:=yRg, Type:=xlFillDefault

    ActiveSheet.Protect Password:=pswStr, DrawingObjects:=False, _
                    Contents:=True, Scenarios:=False, _
                    AllowFormattingCells:=True, AllowFormattingColumns:=True, _
                    AllowFormattingRows:=True, AllowInsertingColumns:=True, _
                    AllowInsertingRows:=True, AllowInsertingHyperlinks:=True, _
                    AllowDeletingColumns:=True, AllowDeletingRows:=True, _
                    AllowSorting:=True, AllowFiltering:=True, _
                    AllowUsingPivotTables:=True
    Application.ScreenUpdating = True

Notes:

1) Կոդում «123» համարը գաղտնաբառն է, որը կօգտագործեք աշխատանքային թերթը պաշտպանելու համար:

2) Խնդրում ենք փոխել աղյուսակի անվանումը և սյունակի անվանումը, որը պարունակում է ձեր պաշտպանած բանաձևը:

4. Սեղմեք ալտ + Q Microsoft Visual Basic ծրագրերի համար պատուհանը փակելու ստեղներ:

5. Ընտրեք աղյուսակի այն բջիջները, որոնցում անհրաժեշտ է նոր տվյալներ հատկացնել `բացառությամբ բանաձևի սյունակի, ապա սեղմեք այն Ctrl + 1 բացել ստեղները Ձևաչափել բջիջները երկխոսության տուփ: Մեջ Ձևաչափել բջիջները երկխոսության տուփ, ապանշել կողպված տուփը, ապա կտտացրեք OK կոճակ Տեսեք,

6. Այժմ պաշտպանեք ձեր աշխատանքային թերթը VBA կոդում նշված գաղտնաբառով:

Այսուհետ, ձեր պաշտպանված աշխատաթերթում Ձևի վերահսկման կոճակը կտտացնելուց հետո, աղյուսակը ընդլայնվելու է ՝ տեղադրելով նոր տող, ինչպես ցույց է տրված նկարում:

ՆշումԴուք կարող եք փոփոխել աղյուսակը, բացառությամբ բանաձևի սյունակի, որը պահպանվում է աշխատաթերթում:

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

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

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

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

մեկնաբանություններ (18)

Դեռևս գնահատականներ չկան: Եղիր առաջինը, ով կգնահատի:

Մոդել

մոտ 4 տարի առաջ

#26500

Այս մեկնաբանությունը կայքի վարողի կողմից նվազագույնի է հասցվել

Այսպիսով, ես փորձեցի սա, սակայն այն ավելացնում է նոր տող աշխատանքային գրքի ներքևի մասում 1048576 տողում, սակայն իմ աղյուսակն ունի ընդամենը մոտ 800 գրառում: Ես գաղափար չունեմ, թե ինչու է դա անում:

պատասխանել

բյուրեղապակի Մոդել

մոտ 4 տարի առաջ

#26501

Այս մեկնաբանությունը կայքի վարողի կողմից նվազագույնի է հասցվել

Բարև Բրինդի,
Կոդը թարմացվել է խնդրի լուծմամբ, խնդրում ենք փորձել և շնորհակալություն մեկնաբանության համար:

պատասխանել

հաշվետվություն

Ali բյուրեղապակի

մոտ 4 տարի առաջ

#26502

Այս մեկնաբանությունը կայքի վարողի կողմից նվազագույնի է հասցվել

Բարև Կրիստալ, խնդիրը նույնն է: Ես ինձ համար նոր աղյուսակ ստեղծեցի ընդամենը 2 տողով: Երբ ես սեղմում եմ կոճակը, ցանկը ընդլայնվում է մինչև աղյուսակի վերջը, առանց որևէ տող ավելացնելու: Այն պետք է ավելացվի 3-րդ շարքին:

պատասխանել

Ali բյուրեղապակի

մոտ 4 տարի առաջ

#26503

Այս մեկնաբանությունը կայքի վարողի կողմից նվազագույնի է հասցվել

պատասխանել

հաշվետվություն

Mac

մոտ 3 տարի առաջ

#28550

Այս մեկնաբանությունը կայքի վարողի կողմից նվազագույնի է հասցվել

Փորձեք այս Vba կոդը՝ ձեր աղյուսակում նոր տող ավելացնելու համար

Sub Tab_Line_Add()
Dim pswStr As String
pswStr = «123»
Ս.թ. սխալի Ռեզյումե Next
Դիմում. ScreenUpdating = Սուտ է
ActiveSheet. Unprotect Password:=pswStr
ActiveSheet.Range(«D8»).Ընտրեք
«D8-ը ներդիրի վերնագիրն է
Տարածք («Աղյուսակ1[[#Headers],[Total]]»): Ընտրեք
Ընտրություն.Վերջ(xlDown).Ընտրեք
Selection.ListObject.ListRows.Add AlwaysInsert:=False
ActiveSheet.Protect Գաղտնաբառ:=pswStr

Վերջ Sub
.

պատասխանել

բյուրեղապակի Mac

մոտ 3 տարի առաջ

#28551

Այս մեկնաբանությունը կայքի վարողի կողմից նվազագույնի է հասցվել

Բարև Mac,
Thanks for sharing.

պատասխանել

հաշվետվություն

Սոհաել ալ-Հուսեյնի Mac

մոտ 3 տարի առաջ

#28552

Այս մեկնաբանությունը կայքի վարողի կողմից նվազագույնի է հասցվել

օգտագործելով առաջարկված (Selection.ListObject.ListRows.Add AlwaysInsert:=False) ինձ համար նույն խնդիրն ուղղվեց սկզբնական կոդի հետ, որտեղ նոր ամբողջական տող (ընդարձակվող բջիջը պարունակում է բանաձևեր) չէր ավելացվի աղյուսակում շատ ավելի լայնությամբ: աղյուսակ 51 սյունակ: Այսպիսով, շնորհակալություն Mac-ին համօգտագործելու և ուղղելու համար:

պատասխանել

Michelle

մոտ 3 տարի առաջ

#30336

Այս մեկնաբանությունը կայքի վարողի կողմից նվազագույնի է հասցվել

Բարև, ես օգտագործել եմ վերը նշված կոդը և ստացել եմ հետևյալ սխալի հաղորդագրությունը.
«Կոդերի կատարումն ընդհատվել է». Երբ ես սեղմում եմ «Վրիպազերծում», 20-րդ տող «Selection.ClearContents» ընդգծված է:

Երբ ես սկզբում մուտքագրեցի կոդը, այն ճիշտ էր աշխատում:

Ես փոխել եմ «Աղյուսակը» աղյուսակի անունով, իսկ սյունակը փոխել եմ իմ օգտագործած սյունակի անունով: Ես նաև փոխեցի «Selection.Offset (x,-x).Select»-ը՝ իմ կարիքներին համապատասխանելու համար:

Որևէ առաջարկություն, թե ինչու է դա տեղի ունենում:

պատասխանել

հաշվետվություն

Օլու

մոտ 2 տարի առաջ

#32756

Այս մեկնաբանությունը կայքի վարողի կողմից նվազագույնի է հասցվել

Բարեւ,

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

այն ինձ անընդհատ ասում է սխալ գաղտնաբառ: Իսկ ծածկագիրը անհետացել է։ .

պատասխանել

նամակներ արտոնագրային

մոտ 8 ամիս առաջ

#38184

Այս մեկնաբանությունը կայքի վարողի կողմից նվազագույնի է հասցվել

Merhaba Tablo ismini ve satır başlangıc yerlerini değiştirdiğim zaman kod çalışmıyor yardımcı olurmusunuz.

պատասխանել

բյուրեղապակի նամակներ արտոնագրային

մոտ 8 ամիս առաջ

#38241

Այս մեկնաբանությունը կայքի վարողի կողմից նվազագույնի է հասցվել

Ողջու՜յն,
Համոզվեք, որ դուք փոխել եք ճիշտ նույն աղյուսակի անվանումը և կոդի սյունակի վերնագիրը:
Ես փոխել եմ աղյուսակի անվանումը և սյունակի վերնագիրը՝ կոդը փորձարկելու համար, և այն լավ է աշխատում:
Ստացե՞լ եք որևէ սխալի հուշում: Ես պետք է ավելի կոնկրետ իմանամ ձեր խնդրի մասին, օրինակ՝ ձեր Excel տարբերակը: Որքան ավելի մանրամասն նկարագրեք սխալը, այնքան ավելի արագ կարող ենք հասկանալ և լուծել այն:

պատասխանել

հաշվետվություն

Ալիսոն Ջունս

մոտ 7 ամիս առաջ

#38424

Այս մեկնաբանությունը կայքի վարողի կողմից նվազագույնի է հասցվել

Ինչպե՞ս կարող եմ կոճակ ստեղծել տողերը ջնջելու համար:

պատասխանել

Diana

մոտ 5 ամիս առաջ

#39590

Այս մեկնաբանությունը կայքի վարողի կողմից նվազագույնի է հասցվել

Բարեւ Ձեզ!!!
Tengo una tabla donde más de una columna está protegida.
La tabla tiene 17 columnas de las cuales 7 deben quedar bloqueadas porque poseen fórmulas.
Mi tabla arranca en celda A4

Estaba tratando de usar este codigo para probarlo, cambiando lo que verán abajo como "CLAVE", "MITABLA" y "AVISO 1" կամ այլ անվանումների մասին:
Donde "AVISO 1"-ը համապատասխանում է una de las columnas que está protegida-ին:

Dim pswStr As String
«Թարմացվել է ExtendOffice 20181106
pswStr = «CLAVE»
Ս.թ. սխալի Ռեզյումե Next
Դիմում. ScreenUpdating = Սուտ է
ActiveSheet. Unprotect Password:=pswStr
ActiveSheet.Range («A4»): Ընտրեք
Տարածք («MITABLA[[#Headers],[AVISO 1]]»): Ընտրեք
Ընտրություն.Վերջ(xlDown).Ընտրեք
Ընտրություն.Օֆսեթ(1, -16). Ընտրել
ActiveCell.FormulaR1C1 = «նոր»
ActiveSheet.Protect Գաղտնաբառ:=pswStr, DrawingObjects:=False, _
Բովանդակություն:=Ճիշտ, Սցենարներ:=Սխալ, _
AllowFormattingCells:=Ճիշտ, AllowFormattingColumns:=Ճիշտ, _
AllowFormattingRows:=Ճիշտ, AllowInsertingColumns:=Ճիշտ, _
AllowInsertingRows:=Ճիշտ, AllowInsertingHyperlinks:=Ճիշտ, _
AllowDeletingColumns:=Ճիշտ, AllowDeletingRows:=Ճիշտ, _
AllowSorting:=Ճիշտ, AllowFiltering:=Ճիշտ, _
AllowUsingPivotTables:=Ճիշտ է
Ընտրություն.Մաքուր բովանդակություն
Դիմում. ScreenUpdating = ueիշտ է

Lo que está haciendo el codigo tal cual como lo escribo es que en lugar de agregar una nueva línea a mi tabla, está colocando la palabra «նոր» en la última celda contenido de la columna «AVISO 1»:

Surgen-ը ներառում է 2 դուդա.
1. ¿cómo podría hacer para determinar más de una columna protegida?
2. ¿por qué está haciendo esto el codigo definido?

Agradezco de antemano que me puedan ayudar! Էստարե ատենտա.

պատասխանել

բյուրեղապակի Diana

մոտ 5 ամիս առաջ

#39715

Այս մեկնաբանությունը կայքի վարողի կողմից նվազագույնի է հասցվել

Բարև Դաինա,
1. Եթե 7 բանաձևի սյունակները, որոնք ցանկանում եք պաշտպանել, հաջորդական են աղյուսակում:
Օրինակ, սյունակների վերնագրերն են gg, hh, ii, jj, kk, ll, mm, ինչպես ցույց է տրված ստորև ներկայացված սքրինշոթում: Դա կատարելու համար կարող եք կիրառել հետևյալ VBA կոդը:

https://www.extendoffice.com/images/stories/comments/comment-picture-zxm/table.png

Այս տողում Սահմանել xRg = միջակայք («Աղյուսակ 3[[#Վերագրեր],[gg]:[մմ]]»): Օֆսեթ (1, 0) Հետևյալ կոդում պարզապես անհրաժեշտ է մուտքագրել առաջին և վերջին սյունակի վերնագրերը:

Sub Button1_Click()
 'Update by ExtendOffice 20220826
    Dim xRg, tableRg As Range
    Dim xRowCount As Integer
    Dim pswStr As String
    pswStr = "123"
    On Error Resume Next
    Application.ScreenUpdating = False
    ActiveSheet.Unprotect Password:=pswStr

    'Change the table name and the column headers
    Set tableRg = ActiveSheet.ListObjects("Table3").Range
    xRowCount = tableRg.Rows.Count
    
     Set xRg = Range("Table3[[#Headers],[gg]:[mm]]").Offset(1, 0)
    Set yRg = xRg.Resize(xRowCount, xRg.Columns.Count)

    xRg.Resize(xRowCount - 1, xRg.Columns.Count).AutoFill Destination:=yRg, Type:=xlFillDefault
    

    ActiveSheet.Protect Password:=pswStr, DrawingObjects:=False, _
                    Contents:=True, Scenarios:=False, _
                    AllowFormattingCells:=True, AllowFormattingColumns:=True, _
                    AllowFormattingRows:=True, AllowInsertingColumns:=True, _
                    AllowInsertingRows:=True, AllowInsertingHyperlinks:=True, _
                    AllowDeletingColumns:=True, AllowDeletingRows:=True, _
                    AllowSorting:=True, AllowFiltering:=True, _
                    AllowUsingPivotTables:=True
    Application.ScreenUpdating = True
End Sub

2. Եթե 7 բանաձևի սյունակները, որոնք ցանկանում եք պաշտպանել, աղյուսակում ընդհատված են: Կիրառեք հետևյալ կոդը. Կոդում դուք պետք է ձեռքով մուտքագրեք սյունակների վերնագրերը մեկ առ մեկ:

Sub Button1_Click()
 'Update by ExtendOffice 20220826
    Dim xRg, tableRg As Range
    Dim xRowCount As Integer
    Dim pswStr As String
    pswStr = "123"
    On Error Resume Next
    Application.ScreenUpdating = False
    ActiveSheet.Unprotect Password:=pswStr

    'Change the table name and the column headers
    Set tableRg = ActiveSheet.ListObjects("Table3").Range
    xRowCount = tableRg.Rows.Count
    
    Set xRg = Range("Table3[[#Headers],[gg]]").Offset(1, 0)
    Set yRg = xRg.Resize(xRowCount, 1)
    xRg.Resize(xRowCount - 1, 1).AutoFill Destination:=yRg, Type:=xlFillDefault
    Set xRg = Range("Table3[[#Headers],[hh]]").Offset(1, 0)
    Set yRg = xRg.Resize(xRowCount, 1)
    xRg.Resize(xRowCount - 1, 1).AutoFill Destination:=yRg, Type:=xlFillDefault
    Set xRg = Range("Table3[[#Headers],[ii]]").Offset(1, 0)
    Set yRg = xRg.Resize(xRowCount, 1)
    xRg.Resize(xRowCount - 1, 1).AutoFill Destination:=yRg, Type:=xlFillDefault
    Set xRg = Range("Table3[[#Headers],[jj]]").Offset(1, 0)
    Set yRg = xRg.Resize(xRowCount, 1)
    xRg.Resize(xRowCount - 1, 1).AutoFill Destination:=yRg, Type:=xlFillDefault
    Set xRg = Range("Table3[[#Headers],[kk]]").Offset(1, 0)
    Set yRg = xRg.Resize(xRowCount, 1)
    xRg.Resize(xRowCount - 1, 1).AutoFill Destination:=yRg, Type:=xlFillDefault
     Set xRg = Range("Table3[[#Headers],[ll]]").Offset(1, 0)
    Set yRg = xRg.Resize(xRowCount, 1)
    xRg.Resize(xRowCount - 1, 1).AutoFill Destination:=yRg, Type:=xlFillDefault
    Set xRg = Range("Table3[[#Headers],[mm]]").Offset(1, 0)
    Set yRg = xRg.Resize(xRowCount, 1)
    xRg.Resize(xRowCount - 1, 1).AutoFill Destination:=yRg, Type:=xlFillDefault

    ActiveSheet.Protect Password:=pswStr, DrawingObjects:=False, _
                    Contents:=True, Scenarios:=False, _
                    AllowFormattingCells:=True, AllowFormattingColumns:=True, _
                    AllowFormattingRows:=True, AllowInsertingColumns:=True, _
                    AllowInsertingRows:=True, AllowInsertingHyperlinks:=True, _
                    AllowDeletingColumns:=True, AllowDeletingRows:=True, _
                    AllowSorting:=True, AllowFiltering:=True, _
                    AllowUsingPivotTables:=True
    Application.ScreenUpdating = True
End Sub

պատասխանել

հաշվետվություն

Rhea

մոտ 3 ամիս առաջ

#40666

Այս մեկնաբանությունը կայքի վարողի կողմից նվազագույնի է հասցվել

Ողջու՜յն.

Շնորհակալություն կիսվելու համար. Թեև ես հարց ունեմ... օգտագործելով վերը նշված կոդը, կարող եմ մեկ տող ավելացնել: Ինչպե՞ս ավելացնել մի քանի տող մեկ սեղմումով:

Thanks in advance.

«Թարմացվել է ExtendOffice 20220826
Dim xRg, tableRg As Range
Dim xRowCount որպես ամբողջ թիվ
Dim pswStr As String
pswStr = «123»
Ս.թ. սխալի Ռեզյումե Next
Դիմում. ScreenUpdating = Սուտ է
ActiveSheet. Unprotect Password:=pswStr

Սահմանել tableRg = ActiveSheet.ListObjects ("Table4"). Range
xRowCount = tableRg.Rows.Count

Սահմանել xRg = միջակայք («Աղյուսակ 4[[#Headers],[Ընդամենը]]»): Օֆսեթ (1, 0)
Սահմանել yRg = xRg.Փոխել չափը (xRowCount, 1)
xRg.Resize(xRowCount - 1, 1).AutoFill Destination:=yRg, Type:=xlFillDefault

ActiveSheet.Protect Գաղտնաբառ:=pswStr, DrawingObjects:=False, _
Բովանդակություն:=Ճիշտ, Սցենարներ:=Սխալ, _
AllowFormattingCells:=Ճիշտ, AllowFormattingColumns:=Ճիշտ, _
AllowFormattingRows:=Ճիշտ, AllowInsertingColumns:=Ճիշտ, _
AllowInsertingRows:=Ճիշտ, AllowInsertingHyperlinks:=Ճիշտ, _
AllowDeletingColumns:=Ճիշտ, AllowDeletingRows:=Ճիշտ, _
AllowSorting:=Ճիշտ, AllowFiltering:=Ճիշտ, _
AllowUsingPivotTables:=Ճիշտ է
Դիմում. ScreenUpdating = ueիշտ է

պատասխանել

մոտ 3 ամիս առաջ

#40854

Այս մեկնաբանությունը կայքի վարողի կողմից նվազագույնի է հասցվել

Կոդը չի աշխատում։
Մի քանի սխալներ.

Dim xRg, tableRg As Range

xRg

տարբերակ է, ոչ թե միջակայք

yRg

ընդհանրապես չի հայտարարվել

Set xRg = Range("Table4[[#Headers],[Total]]").Offset(1, 0)

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

Սովորաբար ձեր կայքը իսկապես հիանալի է, բայց այս հոդվածը բարելավման կարիք ունի:

պատասխանել

բյուրեղապակի գ

մոտ 3 ամիս առաջ

#40990

Այս մեկնաբանությունը կայքի վարողի կողմից նվազագույնի է հասցվել

Բարև Պրեմ,
Դուք պետք է համոզվեք, որ կոդում նշված աղյուսակի անվանումը և սյունակի վերնագիրը համընկնում են աշխատաթերթի աղյուսակի անվան և սյունակի վերնագրի հետ: 1004 սխալից խուսափելու համար գուցե անհրաժեշտ լինի միացնել վստահել մուտք դեպի VBA նախագծի օբյեկտի մոդել Ձեր Excel-ում. սեղմեք Ֆայլ > Ընտրանքներ > Վստահության կենտրոն > Վստահության կենտրոնի կարգավորումները > Մակրո կարգավորումներ > և այնուհետև ստուգեք Վստահեք մուտքը VBA նախագծի օբյեկտի մոդել տուփ:

պատասխանել

հաշվետվություն

Luis

մոտ 2 ամիս առաջ

#41307

Այս մեկնաբանությունը կայքի վարողի կողմից նվազագույնի է հասցվել

Sub ButtonOut_Click()

Dim PswS As String
PswStr = «54321»

Ս.թ. սխալի Ռեզյումե Next

Դիմում. ScreenUpdating = Սուտ է
ActiveSheet.Unprotect Password:=PswStr

ActiveSheet.ListObjects("Table1").ListRows.Add

ActiveSheet.Protect Գաղտնաբառ:=PswStr
Դիմում. ScreenUpdating = ueիշտ է

Վերջ Sub

պատասխանել

Առայժմ ոչ մի մեկնաբանություն չկա

Թողեք ձեր մեկնաբանությունները

Հրապարակում որպես հյուր

Մուտք

Անուն (պարտադիր է)

Email (պահանջվում է)

Գնահատեք այս գրառումը.

Նորից դնել

0 Անձնավորություններ

Ես համաձայն եմ, որ պայմանները եւ պայմանները