Hoe kunt u een tabel uitbreidbaar houden door een tabelrij in te voegen in een beveiligd werkblad in Excel?

In Excel wordt de automatische uitbreidingsfunctionaliteit van tabellen vaak uitgeschakeld wanneer u een werkblad beveiligt. Als u bijvoorbeeld een tabel met de naam Tabel1 heeft en u probeert gegevens toe te voegen onder de laatste rij in een beveiligd werkblad, zal de tabel niet automatisch uitbreiden 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 door de stappen om automatische uitbreiding van uw tabel mogelijk te maken terwijl het werkblad beveiligd blijft.

Tabel uitbreidbaar houden door een tabelrij in te voegen in een beveiligd werkblad met VBA-code

Tabel uitbreidbaar houden door een tabelrij in te voegen in een beveiligd werkblad met VBA-code

Zoals in de onderstaande schermafbeelding te zien is, een tabel genaamd Tabel1 in uw werkblad, waarbij de laatste kolom van de tabel een formulekolom is. Nu moet u het werkblad beveiligen om te voorkomen dat de formulekolom verandert, maar tegelijkertijd de tabel uitbreidbaar houden door een nieuwe rij in te voegen en nieuwe gegevens toe te wijzen aan de nieuwe cellen. Volg hiervoor de volgende stappen.

1. Klik op Ontwikkelaar > Invoegen > Knop (Formuliercontrol) om een Formuliercontrol-knop in uw werkblad in te voegen.

2. Klik in het pop-upvenster Macro Toewijzen op de knop Nieuw.

3. Kopieer en plak in het venster Microsoft Visual Basic for Applications de onderstaande VBA-code tussen de Sub- en End Sub-paragrafen in het Code-venster.

VBA-code: Tabel uitbreidbaar houden 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 = True

Opmerkingen:

4. Druk op de toetsen Alt + Q om het venster Microsoft Visual Basic for Applications te sluiten.

5. Selecteer de cellen in de tabel waar u nieuwe gegevens in wilt voeren, behalve de formulekolom, en druk vervolgens op Ctrl + 1 om het dialoogvenster Celopmaak te openen. Schakel in het dialoogvenster Celopmaak het selectievakje Vergrendelen uit en klik op de knop OK. Zie onderstaande schermafbeelding:

6. Beveilig nu uw werkblad met het wachtwoord dat u hebt opgegeven in de VBA-code.

Vanaf nu, nadat u op de Formuliercontrol-knop in uw beveiligde werkblad hebt geklikt, zal de tabel uitbreidbaar zijn door een nieuwe rij in te voegen zoals in de onderstaande schermafbeelding te zien is.

Opmerking: u kunt de tabel wijzigen, behalve de formulekolom in het beveiligde werkblad.

Gerelateerde artikelen:

• Hoe houdt u de slicer van een Draaitabel bewegend met het scrollen van het werkblad in Excel?
• Hoe combineert u cellen en behoudt u de celopmaak in Excel?
• Hoe verwijdert u duplicaten maar behoudt u het eerste exemplaar in Excel?