如何通過在Excel中受保護的工作表中插入表行來保持表可擴展？

在Excel中保護工作表後，表的自動擴展功能將丟失。 例如，在受保護的工作表中有一個名為Table1的表，當您在最後一行下鍵入任何內容時，該表將不會自動擴展為包括新行。 是否有通過在受保護的工作表中插入新行來保持表可擴展的方法？ 本文中的方法可以幫助您實現它。

通過使用VBA代碼在受保護的工作表中插入表行來保持表可擴展

通過使用VBA代碼在受保護的工作表中插入表行來保持表可擴展

如下面的屏幕快照所示，工作表中的一個名為Table1的表，該表的最後一列是公式列。 現在，您需要保護工作表以防止更改公式列，但可以通過插入新行並將新數據分配給新單元格來擴展表。 請執行以下操作。

1。 點擊 開發者 > 插入 > 按鈕（表單控件） 插入一個 表格控制 按鈕進入您的工作表。

2.在彈出 分配宏 對話框中，單擊 全新 按鈕。

3。 在裡面 Microsoft Visual Basic for Applications 窗口，請在以下窗口之間複製並粘貼以下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

筆記:

4。 按 其他 + Q 鍵以關閉“ Microsoft Visual Basic應用程序”窗口。

5.在表格中選擇需要向其中分配新數據的單元格，但“公式”列除外，然後按 按Ctrl + 1 鍵打開 單元格格式 對話框。 在裡面 單元格格式 對話框中，取消選中 鎖定 框，然後單擊 OK 按鈕。 看截圖：

6.現在，使用在VBA代碼中指定的密碼保護您的工作表。

從現在開始，在受保護的工作表中單擊“表單控制”按鈕後，可以通過插入新行來擴展表，如下圖所示。

備註：您可以修改表，但受保護的工作表中的“公式”列除外。

相關文章:

• 如何在Excel中通過工作表滾動來保持數據透視表切片器移動？
• 如何合併單元格並在Excel中保持單元格格式？
• 如何刪除重複項，但在Excel中保留一審？