如何通过在Excel中受保护的工作表中插入表行来保持表可扩展？

网友投稿 478 2024-01-04

如何通过在Excel中受保护的工作表中插入表行来保持表可扩展？

在Excel中保护工作表后，表的自动扩展功能将丢失。例如，在受保护的工作表中有一个名为Table1的表，当您在最后一行下键入任何内容时，该表将不会自动扩展为包括新行。是否有通过在受保护的工作表中插入新行来保持表可扩展的方法？本文中的方法可以帮助您实现它。

通过使用VBA代码在受保护的工作表中插入表行来保持表可扩展

惊人的！在 Excel 中使用高效的选项卡，如 Chrome、Firefox 和 Safari！ 每天节省50％的时间，并减少数千次鼠标单击！

如下面的屏幕快照所示，工作表中的一个名为Table1的表，该表的最后一列是公式列。现在，您需要保护工作表以防止更改公式列，但可以通过插入新行并将新数据分配给新单元格来扩展表。请执行以下操作。

1。点击 开发商 > 插页 > 按钮（表单控件） 插入一个 表格控制 按钮进入您的工作表。

2.在弹出 分配宏 对话框中，单击全新按钮。

3.在 Microsoft Visual Basic应用程序 窗口，请在以下窗口之间复制并粘贴以下VBA代码：小组和 END SUB 中的段落代码窗口。

VBA代码：通过在受保护的工作表中插入表行来保持表可扩展

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

Copy

1）。在代码中，数字“ 123”是用于保护工作表的密码。

2）。请更改表名称和包含要保护的公式的列的名称。

4。按其他 + Q 键以关闭“ Microsoft Visual Basic应用程序”窗口。

5.在表格中选择需要向其中分配新数据的单元格，但“公式”列除外，然后按 按Ctrl + 1 键打开 单元格格式 对话框。在里面 单元格格式 对话框中，取消选中锁定框，然后单击 OK 按钮。看截图：

6.现在，使用在VBA代码中指定的密码保护您的工作表。

从现在开始，在受保护的工作表中单击“表单控制”按钮后，可以通过插入新行来扩展表，如下图所示。

备注：您可以修改表，但受保护的工作表中的“公式”列除外。

相关文章: 如何在Excel中通过工作表滚动来保持数据透视表切片器移动？如何合并单元格并在Excel中保持单元格格式？如何删除重复项，但在Excel中保留一审？

最佳办公生产力工具

将小时转化为分钟 Kutools for Excel!

准备好增强您的 Excel 任务了吗？利用的力量 Kutools for Excel - 您终极的节省时间的工具。简化复杂的任务并像专业人士一样浏览数据。以闪电般的速度体验 Excel！

为什么需要 Kutools for Excel

🛠️ 超过 300 项强大功能: Kutools 包含 300 多项高级功能，可简化您在 1500 多种场景中的工作。