Comment garder le tableau extensible en insérant une ligne de tableau dans une feuille de calcul protégée dans Excel?

La fonction d'expansion automatique du tableau sera perdue après la protection de la feuille de calcul dans Excel. Par exemple, il existe une table nommée Table1 dans votre feuille de calcul protégée, lorsque vous tapez quelque chose sous la dernière ligne, la table ne se développe pas automatiquement pour inclure la nouvelle ligne. Existe-t-il une méthode pour garder le tableau extensible en insérant une nouvelle ligne dans une feuille de calcul protégée? La méthode décrite dans cet article peut vous aider à y parvenir.

Gardez le tableau extensible en insérant une ligne de tableau dans une feuille de calcul protégée avec le code VBA

Gardez le tableau extensible en insérant une ligne de tableau dans une feuille de calcul protégée avec le code VBA

Comme illustré ci-dessous, une table nommée Table1 dans votre feuille de calcul et la dernière colonne de la table est une colonne de formule. Vous devez maintenant protéger la feuille de calcul pour éviter que la colonne de formule ne change, mais permettre d'agrandir le tableau en insérant une nouvelle ligne et en attribuant de nouvelles données dans les nouvelles cellules. Veuillez faire comme suit.

1. Cliquez Développeur > insérer > Bouton (contrôle de formulaire) pour insérer un Contrôle de formulaire bouton dans votre feuille de calcul.

2. Dans le pop-up Attribuer une macro boîte de dialogue, cliquez sur le New .

3. dans le Microsoft Visual Basic pour applications , veuillez copier et coller le code VBA ci-dessous entre le Sol et End Sub paragraphes dans le Code fenêtre.

Code VBA: gardez le tableau extensible en insérant une ligne de tableau dans une feuille de calcul protégée

 '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

Florales:

4. appuie sur le autre + Q touches pour fermer la fenêtre Microsoft Visual Basic pour Applications.

5. Sélectionnez les cellules du tableau dans lesquelles vous devez affecter de nouvelles données, à l'exception de la colonne de formule, puis appuyez sur le bouton Ctrl + 1 clés pour ouvrir le Format de cellule boite de dialogue. dans le Format de cellule boîte de dialogue, décochez la case Fermé , puis cliquez sur le OK bouton. Voir la capture d'écran:

6. Protégez maintenant votre feuille de calcul avec le mot de passe que vous avez spécifié dans le code VBA.

À partir de maintenant, après avoir cliqué sur le bouton Contrôle de formulaire dans votre feuille de calcul protégée, le tableau sera extensible en insérant une nouvelle ligne comme illustré ci-dessous.

Notes: vous pouvez modifier le tableau sauf la colonne de formule dans la feuille de calcul protégée.

Articles connexes:

• Comment maintenir le segment du tableau croisé dynamique en mouvement avec le défilement de la feuille de calcul dans Excel?
• Comment combiner des cellules et conserver la mise en forme des cellules dans Excel?
• Comment supprimer les doublons mais conserver la première instance dans Excel?