Hoe houdt u een tabel uitbreidbaar door een rij in te voegen in een beveiligd werkblad in Excel?
In Excel wordt de automatisch uitbreidbare functionaliteit van tabellen vaak uitgeschakeld wanneer u een werkblad beveiligt. Als u bijvoorbeeld een tabel met de naam Tabel1 hebt en u probeert gegevens onder de Laatste rij toe te voegen in een beveiligd werkblad, breidt de tabel zich niet automatisch uit om de nieuwe rij op te nemen. Er is echter een manier om uw tabel uitbreidbaar te houden, zelfs in een beveiligd werkblad. Deze handleiding leidt u stap voor stap door het inschakelen van automatische uitbreiding van uw tabel terwijl het werkblad beveiligd blijft.
Houd de tabel uitbreidbaar door een tabelrij in te voegen in een beveiligd werkblad met VBA-code
Houd de tabel uitbreidbaar door een tabelrij in te voegen in een beveiligd werkblad met VBA-code
Zoals in de onderstaande afbeelding te zien is, staat er een tabel met de naam Tabel1 op uw werkblad, waarvan de laatste kolom een formulekolom is. U wilt het werkblad beveiligen om te voorkomen dat deze formulekolom wordt gewijzigd, maar tegelijkertijd de tabel uitbreidbaar houden zodat u nieuwe rijen kunt invoegen en gegevens in de nieuwe cellen kunt invoeren. Volg hiervoor de volgende stappen.
1. Klik op Ontwikkelaar > Invoegen > Knop (formulierbesturingselement) om een formulierbesturingselement-knop in uw werkblad in te voegen.
2. Klik in het verschijnende dialoogvenster Macro toewijzen op de knop Nieuw.
3. Plak in het venster Microsoft Visual Basic for Applications de onderstaande VBA-code tussen de regels Sub en End Sub in het Code-venster.
VBA-code: Houd de tabel uitbreidbaar door een tabelrij in te voegen in een beveiligd werkblad
'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 = TrueOpmerkingen:
4. Druk op Alt+Q om het venster Microsoft Visual Basic for Applications te sluiten.
5. Selecteer de cellen in de tabel waarin u nieuwe gegevens wilt invoeren, met uitzondering van de kolom met formules. Druk vervolgens op Ctrl+1 om het dialoogvenster Celopmaak instellen te openen. Schakel in het dialoogvenster Celopmaak instellen het selectievakje Gesloten uit en klik op OK. Zie afbeelding:
6. Beveilig nu uw werkblad met het wachtwoord dat u in de VBA-code hebt opgegeven.
Vanaf nu breidt de tabel zich automatisch uit door een nieuwe rij in te voegen zodra u op het formulierbesturingselement klikt in uw beveiligde werkblad, zoals te zien is in de afbeelding hieronder.
Opmerking: u kunt de tabel aanpassen, behalve de kolom met formules, in het beveiligde werkblad.
Gerelateerde artikelen:
- Hoe houdt u de slicer van een draaitabel vast terwijl u door het werkblad scrolt in Excel?
- Hoe combineert u cellen in Excel en behoudt u daarbij de opmaak?
- Hoe verwijder je dubbele items in Excel, maar behoud je de eerste instantie?
Beste Office-productiviteitshulpmiddelen
Geef uw Excel-vaardigheden een boost met Kutools voor Excel en ervaar efficiëntie zoals nooit tevoren.Kutools voor Excel biedt meer dan 300 geavanceerde functies om de productiviteit te verhogen en Tijd besparen.Klik hier om de functie te krijgen die u het meest nodig heeft...
Office Tab brengt een tabbladinterface naar Office en maakt uw werk veel eenvoudiger
- Schakel tabbladbewerking en -lezen in voor Word, Excel, PowerPoint, Publisher, Access, Visio en Project.
- Open en maak meerdere documenten aan in nieuwe tabbladen binnen hetzelfde venster, in plaats van in afzonderlijke vensters.
- Verhoogt uw productiviteit met 50 % en bespaart u dagelijks honderden muisklikken!
Alle Kutools-add-ins in één installatieprogramma.
Kutools for Office bundelt add-ins voor Excel, Word, Outlook en PowerPoint, plus Office Tab Pro—ideaal voor teams die met meerdere Office-apps werken.
- Alles-in-één suite— add-ins voor Excel, Word, Outlook & PowerPoint plus Office Tab Pro
- Één installatieprogramma, één licentie— binnen enkele minuten klaar (MSI-geschikt)
- Werkt beter samen— gestroomlijnde productiviteit in alle Office-apps
- 30 dagen volledig functionele proefversie— geen registratie, geen creditcard
- Beste prijs-kwaliteitverhouding— bespaar ten opzichte van het afzonderlijk kopen van add-ins