Wie kann man die Tabelle in einem geschützten Arbeitsblatt in Excel durch Einfügen einer Tabellenzeile erweiterbar halten?

In Excel wird die automatische Erweiterungsfunktion von Tabellen oft deaktiviert, wenn Sie ein Arbeitsblatt schützen. Wenn Sie beispielsweise eine Tabelle namens Tabelle1 haben und versuchen, Daten unter der letzten Zeile in einem geschützten Arbeitsblatt hinzuzufügen, wird die Tabelle nicht automatisch erweitert, um die neue Zeile einzuschließen. Es gibt jedoch eine Möglichkeit, Ihre Tabelle auch in einem geschützten Arbeitsblatt erweiterbar zu halten. Dieses Tutorial führt Sie durch die Schritte, um die automatische Erweiterung Ihrer Tabelle zu ermöglichen, während das Arbeitsblatt weiterhin geschützt bleibt.

Tabelle mit VBA-Code erweiterbar halten durch das Einfügen einer Tabellenzeile in einem geschützten Arbeitsblatt

Tabelle mit VBA-Code erweiterbar halten durch das Einfügen einer Tabellenzeile in einem geschützten Arbeitsblatt

Wie im folgenden Screenshot gezeigt, befindet sich eine Tabelle namens Tabelle1 in Ihrem Arbeitsblatt, und die letzte Spalte der Tabelle ist eine Formelspalte. Nun müssen Sie das Arbeitsblatt schützen, um zu verhindern, dass die Formelspalte geändert wird, aber gleichzeitig die Tabelle durch das Einfügen einer neuen Zeile erweitern und den neuen Zellen neue Daten zuweisen können. Bitte gehen Sie wie folgt vor.

1. Klicken Sie auf Entwickler > Einfügen > Schaltfläche (Formularsteuerelement), um eine Formularsteuerelement-Schaltfläche in Ihr Arbeitsblatt einzufügen.

2. Klicken Sie im erscheinenden Dialogfeld Makro zuweisen auf die Schaltfläche Neu.

3. Kopieren Sie im Fenster Microsoft Visual Basic for Applications den folgenden VBA-Code zwischen den Absätzen Sub und End Sub im Codefenster und fügen Sie ihn ein.

VBA-Code: Tabelle erweiterbar halten durch das Einfügen einer Tabellenzeile in einem geschützten Arbeitsblatt

'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

Hinweise:

4. Drücken Sie die Tasten Alt + Q, um das Fenster Microsoft Visual Basic for Applications zu schließen.

5. Wählen Sie die Zellen in der Tabelle aus, denen Sie neue Daten zuweisen möchten, außer der Formelspalte, und drücken Sie dann die Tasten Strg + 1, um das Dialogfeld Zellen formatieren zu öffnen. Deaktivieren Sie im Dialogfeld Zellen formatieren das Kontrollkästchen Gesperrt und klicken Sie dann auf die Schaltfläche OK. Siehe Screenshot:

6. Schützen Sie nun Ihr Arbeitsblatt mit dem in dem VBA-Code angegebenen Kennwort.

Ab jetzt wird die Tabelle nach dem Klicken auf die Formularsteuerelement-Schaltfläche in Ihrem geschützten Arbeitsblatt durch das Einfügen einer neuen Zeile erweiterbar sein, wie im folgenden Screenshot gezeigt.

Hinweis: Sie können die Tabelle außer der Formelspalte im geschützten Arbeitsblatt ändern.

Verwandte Artikel:

• Wie kann man den Slicer einer PivotTable beim Scrollen des Arbeitsblatts in Excel bewegen lassen?
• Wie kombiniert man Zellen und behält dabei die Zellformatierung in Excel bei?
• Wie entfernt man Duplikate, behält aber die erste Instanz in Excel bei?