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

Dans Excel, lorsque vous protégez une feuille de calcul, la fonctionnalité d'expansion automatique des tableaux est souvent désactivée. Par exemple, si vous avez un tableau nommé Tableau1 et que vous essayez d'ajouter des données sous la dernière ligne dans une feuille de calcul protégée, le tableau ne s'étendra pas automatiquement pour inclure la nouvelle ligne. Cependant, il existe un moyen de garder votre tableau extensible même dans une feuille de calcul protégée. Ce tutoriel vous guidera à travers les étapes pour activer l'expansion automatique de votre tableau tout en maintenant la protection de la feuille de calcul.

Garder un tableau extensible en insérant une ligne de tableau dans une feuille de calcul protégée avec du code VBA

Garder un tableau extensible en insérant une ligne de tableau dans une feuille de calcul protégée avec du code VBA

Comme illustré dans la capture d'écran ci-dessous, un tableau nommé Tableau1 dans votre feuille de calcul, et la dernière colonne du tableau est une colonne de formule. Maintenant, vous devez protéger la feuille de calcul pour empêcher la modification de la colonne de formule, mais permettre l'expansion du tableau en insérant une nouvelle ligne et en attribuant de nouvelles données aux nouvelles cellules. Veuillez procéder comme suit.

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

2. Dans la boîte de dialogue Assigner une macro qui apparaît, cliquez sur le bouton Nouveau.

3. Dans la fenêtre Microsoft Visual Basic for Applications, veuillez copier et coller le code VBA ci-dessous entre les paragraphes Sub et End Sub dans la fenêtre Code.

Code VBA : Garder un 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

Remarques :

4. Appuyez sur les touches Alt + Q pour fermer la fenêtre Microsoft Visual Basic for Applications.

5. Sélectionnez les cellules dans le tableau où vous devez attribuer de nouvelles données, à l'exception de la colonne de formule, puis appuyez sur les touches Ctrl + 1 pour ouvrir la boîte de dialogue Format de cellule. Dans la boîte de dialogue Format de cellule, décochez la case Verrouiller, puis cliquez sur le bouton OK. Voir la capture d'écran :

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

Dès maintenant, après avoir cliqué sur le bouton de contrôle de formulaire dans votre feuille de calcul protégée, le tableau sera extensible en insérant une nouvelle ligne comme illustré dans la capture d'écran ci-dessous.

Remarque : vous pouvez modifier le tableau à l'exception de la colonne de formule dans la feuille de calcul protégée.

Articles connexes :

• Comment faire pour que le segment du tableau croisé dynamique bouge avec le défilement de la feuille de calcul dans Excel ?
• Comment combiner des cellules tout en conservant le formatage des cellules dans Excel ?
• Comment supprimer les doublons mais conserver la première instance dans Excel ?