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
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 = TrueHinweise:
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?
Die besten Produktivitätstools für das Büro
Stärken Sie Ihre Excel-Fähigkeiten mit Kutools für Excel und genießen Sie Effizienz wie nie zuvor. Kutools für Excel bietet mehr als300 erweiterte Funktionen, um die Produktivität zu steigern und Zeit zu sparen. Klicken Sie hier, um die Funktion zu erhalten, die Sie am meisten benötigen...
Office Tab bringt die Tab-Oberfläche in Office und macht Ihre Arbeit wesentlich einfacher
- Aktivieren Sie die Tabulator-Bearbeitung und das Lesen in Word, Excel, PowerPoint, Publisher, Access, Visio und Project.
- Öffnen und erstellen Sie mehrere Dokumente in neuen Tabs innerhalb desselben Fensters, statt in neuen Einzelfenstern.
- Steigert Ihre Produktivität um50 % und reduziert hunderte Mausklicks täglich!
Alle Kutools-Add-Ins. Ein Installationspaket
Das Kutools for Office-Paket bündelt Add-Ins für Excel, Word, Outlook & PowerPoint sowie Office Tab Pro und ist ideal für Teams, die mit mehreren Office-Anwendungen arbeiten.
- All-in-One-Paket — Add-Ins für Excel, Word, Outlook & PowerPoint + Office Tab Pro
- Ein Installationspaket, eine Lizenz — in wenigen Minuten einsatzbereit (MSI-kompatibel)
- Besser gemeinsam — optimierte Produktivität in allen Office-Anwendungen
- 30 Tage kostenlos testen — keine Registrierung, keine Kreditkarte erforderlich
- Bestes Preis-Leistungs-Verhältnis — günstiger als Einzelkauf der Add-Ins