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

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

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

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

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

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:

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

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

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

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

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

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

• Ինչպե՞ս առանցքային աղյուսակի կտրիչը շարժվել Excel- ում աշխատանքային թերթիկի հետ շարժվելով:
• Ինչպե՞ս միավորել բջիջները և պահպանել բջիջների ձևաչափումը Excel- ում:
• Ինչպե՞ս հեռացնել կրկնօրինակները, բայց Excel- ում պահպանել առաջին ատյանները: