Comment conserver la possibilité d’agrandir un tableau en insérant une ligne dans une feuille de calcul protégée sous Excel ?
Dans Excel, lorsque vous protégez une feuille de calcul, la fonctionnalité d’extension automatique des tableaux est souvent désactivée. Par exemple, si vous disposez d’un tableau nommé Table1 et que vous tentez d’ajouter des données sous le Dernière ligne dans une feuille protégée, le tableau ne s’agrandira pas automatiquement pour inclure la nouvelle ligne. Toutefois, il existe une méthode permettant de conserver cette capacité d’extension même dans une feuille protégée. Ce tutoriel vous guide pas à pas pour activer l’extension automatique de votre tableau tout en maintenant la protection de la feuille.
Conserver la possibilité d’agrandir un tableau en insérant une ligne de tableau dans une feuille protégée à l’aide d’un code VBA
Comme illustré ci-dessous, un tableau nommé Table1 se trouve dans votre feuille de calcul, et la Dernière colonne du tableau est une colonne contenant des formules. Vous devez maintenant protéger la feuille afin d’empêcher toute modification de cette colonne de formules, tout en autorisant l’extension du tableau par l’insertion d’une nouvelle ligne et l’ajout de nouvelles données dans les nouvelles cellules. Procédez 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 Affecter une macro qui s’ouvre, cliquez sur le bouton Nouveau.
3. Dans la fenêtre Microsoft Visual Basic pour Applications, veuillez copier et coller le code VBA ci-dessous entre les lignes Sub et End Sub dans la fenêtre Code.
Code VBA : Conserver la possibilité d’agrandir un tableau en insérant une ligne de tableau dans une feuille 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 = TrueRemarques:
4. Appuyez sur les touches Alt + Q pour fermer la fenêtre Microsoft Visual Basic pour Applications.
5. Sélectionnez les cellules du tableau dans lesquelles vous souhaitez saisir de nouvelles données, à l’exception de la colonne contenant les formules, puis appuyez sur les touches Ctrl+1 pour ouvrir la boîte de dialogue Définir le format des cellules. Dans la boîte de dialogue Définir le format des cellules, décochez la case Verrouillé, puis cliquez sur le bouton OK. Voir la capture d’écran :
6. Protégez désormais votre feuille de calcul à l’aide du mot de passe défini dans votre code VBA.
Désormais, après avoir cliqué sur le bouton de contrôle de formulaire dans votre feuille protégée, le tableau pourra être agrandi en insérant une nouvelle ligne, comme illustré ci-dessous.
Remarque : vous pouvez modifier le tableau, à l’exception de la colonne contenant les formules, dans la feuille protégée.
Articles associés:
- Comment faire en sorte que le segment de tableau croisé dynamique suive automatiquement le défilement de la feuille de calcul dans Excel ?
- Comment fusionner des cellules tout en préservant leur mise en forme dans Excel ?
- Comment supprimer les doublons tout en conservant la première occurrence dans Excel ?
Meilleurs outils de productivité Office
Boostez vos compétences Excel avec Kutools pour Excel et découvrez une efficacité inégalée.Kutools pour Excel propose plus de 300 fonctionnalités avancées pour améliorer votre productivité et Gagner du temps.Cliquez ici pour obtenir la fonctionnalité dont vous avez le plus besoin...
Office Tab apporte une interface à onglets à Office et rend votre travail bien plus facile
- Activez l’édition et la lecture par onglets dans Word, Excel, PowerPoint, Publisher, Access, Visio et Project.
- Ouvrez et créez plusieurs documents dans de nouveaux onglets de la même fenêtre, plutôt que dans de nouvelles fenêtres.
- Augmente votre productivité de 50 % et vous fait économiser des centaines de clics de souris chaque jour !
Tous les compléments Kutools. Un seul installateur
Kutools for Office regroupe les compléments pour Excel, Word, Outlook et PowerPoint, ainsi que Office Tab Pro, ce qui en fait le choix idéal pour les équipes travaillant à travers les applications Office.
- Suite tout-en-un— Compléments Excel, Word, Outlook et PowerPoint + Office Tab Pro
- Un seul installateur, une seule licence— installation en quelques minutes (compatible MSI)
- Fonctionne mieux ensemble— productivité optimisée dans toutes les applications Office
- Essai gratuit de 30 jours avec toutes les fonctionnalités— aucune inscription, aucune carte bancaire
- Meilleur rapport qualité-prix— économisez par rapport à l’achat de compléments individuels