Note: The other languages of the website are Google-translated. Back to English
Inloggen  \/ 
x
or
x
Registreer  \/ 
x

or

Hoe de tabel uitbreidbaar te houden door een tabelrij in een beschermd werkblad in Excel in te voegen?

De automatisch uitbreidende functie van de tabel gaat verloren nadat het werkblad in Excel is beveiligd. Er is bijvoorbeeld een tabel met de naam Tabel1 in uw beveiligde werkblad. Wanneer u iets typt onder de laatste rij, wordt de tabel niet automatisch uitgevouwen om de nieuwe rij op te nemen. Is er een methode om de tabel uitbreidbaar te houden door een nieuwe rij in een beschermd werkblad in te voegen? De methode in dit artikel kan u daarbij helpen.

Houd de tabel uitbreidbaar door een tabelrij in een beveiligd werkblad met VBA-code in te voegen


Houd de tabel uitbreidbaar door een tabelrij in een beveiligd werkblad met VBA-code in te voegen


Zoals onderstaand screenshot laat zien, een tabel met de naam Table1 in uw werkblad en de laatste kolom van de tabel is een formulekolom. Nu moet u het werkblad beschermen om te voorkomen dat de formulekolom verandert, maar u kunt de tabel uitbreiden door een nieuwe rij in te voegen en nieuwe gegevens toe te wijzen aan de nieuwe cellen. Ga als volgt te werk.

1. klikken Ontwikkelaar > Invoegen > Knop (formulierbeheer) om een Formulierbeheer knop in uw werkblad.

2. In het opduiken Wijs macro toe dialoogvenster, klik op de Nieuw knop.

3. In de Microsoft Visual Basic voor toepassingen -venster, kopieer en plak de onderstaande VBA-code tussen de Sub en End Sub alinea's in de Code venster.

VBA-code: houd de tabel uitbreidbaar door een tabelrij in een beveiligd werkblad in te voegen

Dim pswStr As String
'Update by ExtendOffice 20181106
    pswStr = "123"
    On Error Resume Next
   Application.ScreenUpdating = False
    ActiveSheet.Unprotect Password:=pswStr
       ActiveSheet.Range("A1").Select
        Range("Table1[[#Headers],[Total]]").Select
        Selection.End(xlDown).Select
        Selection.Offset(1, 0).Select
        ActiveCell.FormulaR1C1 = "new"
        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
    Selection.ClearContents
    Application.ScreenUpdating = True

Notes:

1). In de code is nummer "123" het wachtwoord dat u gebruikt om het werkblad te beschermen.
2). Wijzig de tabelnaam en de naam van de kolom met de formule die u wilt beschermen.
3). En verander de offset in de code Selection.Offset (1, -4) .Selecteer naar de eerste doelkolom van de tabel. Als de tabel bijvoorbeeld zes kolommen bevat, wijzigt u de offset in (1, -5).

4. druk de anders + Q -toetsen om het venster Microsoft Visual Basic for Applications te sluiten.

5. Selecteer de cellen in de tabel waaraan u nieuwe gegevens moet toewijzen, behalve de formulekolom, en druk vervolgens op Ctrl + 1 toetsen om de te openen Cellen opmaken dialoog venster. In de Cellen opmaken dialoogvenster, schakel het vinkje uit Vergrendeld vak en klik vervolgens op het OK knop. Zie screenshot:

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

Vanaf nu, nadat u op de knop Formulierbeheer in uw beschermde werkblad hebt geklikt, kan de tabel worden uitgevouwen door een nieuwe rij in te voegen zoals onderstaand screenshot.

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


Gerelateerde artikelen:


De beste tools voor kantoorproductiviteit

Kutools voor Excel lost de meeste van uw problemen op en verhoogt uw productiviteit met 80%

  • visfuik: Snel invoegen complexe formules, grafieken en alles wat je eerder hebt gebruikt; Versleutel cellen met wachtwoord; Maak een mailinglijst en stuur e-mails ...
  • Super Formula-balk (bewerk eenvoudig meerdere regels tekst en formule); Lay-out lezen (gemakkelijk grote aantallen cellen lezen en bewerken); Plakken in gefilterd bereik...
  • Voeg cellen / rijen / kolommen samen zonder gegevens te verliezen; Gespleten cellen inhoud; Combineer dubbele rijen / kolommen... Voorkom dubbele cellen; Vergelijk Ranges...
  • Selecteer Dupliceren of Uniek Rijen; Selecteer lege rijen (alle cellen zijn leeg); Super zoeken en fuzzy zoeken in veel werkboeken; Willekeurige selectie ...
  • Exacte kopie Meerdere cellen zonder de formuleverwijzing te wijzigen; Maak automatisch verwijzingen naar meerdere bladen; Plaats kogels, Selectievakjes en meer ...
  • Extraheer tekst, Tekst toevoegen, Verwijderen op positie, Ruimte verwijderen; Paging-subtotalen maken en afdrukken; Converteren tussen celinhoud en opmerkingen...
  • Super filter (bewaar en pas filterschema's toe op andere bladen); Geavanceerd sorteren per maand / week / dag, frequentie en meer; Speciaal filter door vet, cursief ...
  • Combineer werkmappen en werkbladen; Tabellen samenvoegen op basis van sleutelkolommen; Gegevens splitsen in meerdere bladen; Batch Converteer xls, xlsx en PDF...
  • Meer dan 300 krachtige functies. Ondersteunt Office / Excel 2007-2019 en 365. Ondersteunt alle talen. Eenvoudig te implementeren in uw onderneming of organisatie. Gratis proefperiode van 30 dagen met volledige functies. 60 dagen geld-terug-garantie.
kte tabblad 201905

Office-tabblad Brengt een interface met tabbladen naar Office en maakt uw werk veel gemakkelijker

  • Schakel bewerken en lezen met tabbladen in Word, Excel, PowerPoint in, Publisher, Access, Visio en Project.
  • Open en maak meerdere documenten in nieuwe tabbladen van hetzelfde venster in plaats van in nieuwe vensters.
  • Verhoogt uw productiviteit met 50% en vermindert elke dag honderden muisklikken voor u!
officetab onderkant
Say something here...
symbols left.
You are guest
or post as a guest, but your post won't be published automatically.
Loading comment... The comment will be refreshed after 00:00.
  • To post as a guest, your comment is unpublished.
    Olu · 1 years ago
    Hello,

    the code worked initially, but after I duplicated the worksheet, it stayed for after 24 hours then all the code disappeared. And now I can’t access the worksheet.

    it keeps telling me incorrect password. And the code have disappeared. .
  • To post as a guest, your comment is unpublished.
    mrmathews71 · 2 years ago
    Hello, I used the above code and got the following error message:
    "Code execution has been interrupted". When I click on Debug, Line 20 "Selection.ClearContents" is highlighted.

    When I initially entered the code, it worked correctly.

    I changed "Table" to the name of the table and change the column to the name of the column I am using. I also changed the "Selection.Offset (x,-x).Select" to match my needs.


    Any suggestions as to why this is occurring?
  • To post as a guest, your comment is unpublished.
    Mac · 2 years ago
    Try this Vba code for add new line in you table

    Sub Tab_Line_Add()
    Dim pswStr As String
    pswStr = "123"
    On Error Resume Next
    Application.ScreenUpdating = False
    ActiveSheet.Unprotect Password:=pswStr
    ActiveSheet.Range("D8").Select
    'D8 is tabel header
    Range("Table1[[#Headers],[Total]]").Select
    Selection.End(xlDown).Select
    Selection.ListObject.ListRows.Add AlwaysInsert:=False
    ActiveSheet.Protect Password:=pswStr

    End Sub
    .
    • To post as a guest, your comment is unpublished.
      sohael al-husainy · 2 years ago
      using the suggested (Selection.ListObject.ListRows.Add AlwaysInsert:=False) fixed a similar problem for me with the original code, where a new full row (extending down cell contained formulas) would not be added to the table on a much wider table 51 columns. So thanks for sharing and fixing Mac.
    • To post as a guest, your comment is unpublished.
      crystal · 2 years ago
      Hi Mac,
      Thanks for sharing.
  • To post as a guest, your comment is unpublished.
    Brandi · 3 years ago
    So I tried this however it adds a new row at the bottom of the workbook on line 1048576 however my table only has about 800 records. I have no idea why it's doing this!
    • To post as a guest, your comment is unpublished.
      crystal · 3 years ago
      Hi Brindi,
      The code has been updated with the problem solved, please have a try and thank you for your comment.
      • To post as a guest, your comment is unpublished.
        alimughal · 3 years ago
        Hi Crystal, theproblem is same. I created a new table for myself with only 2 rows. Once I click the button the list is expanded till end of table without adding any Rows. It should be adding to Row number 3.
      • To post as a guest, your comment is unpublished.
        Ali · 3 years ago
        Hi Crystal, theproblem is same. I created a new table for myself with only 2 rows. Once I click the button the list is expanded till end of table without adding any Rows. It should be adding to Row number 3.