如何在受保護的 Excel 工作表中，透過插入表格列來維持表格的可擴充性？

作者Siluvia修改日期2024-12-04

在 Excel 中，當您保護工作表時，表格的自動擴充功能通常會被停用。舉例來說，若您有一個名為 Table 1 的表格，並嘗試在受保護的工作表中於最後一行下方新增資料，該表格將不會自動擴充以納入新列。不過，仍有方法可在工作表受保護的情況下維持表格的可擴充性。本教學將逐步引導您啟用此功能，讓表格即使在工作表受保護時，也能自動擴充。

使用 VBA 程式碼在受保護的工作表中透過插入表格列來維持表格可擴充性

使用 VBA 程式碼在受保護的工作表中透過插入表格列來維持表格可擴充性

如下圖所示，您的工作表中包含一個名為 Table 1 的表格，其最後一列為公式欄位。現在您需要保護工作表，以防止公式欄位遭到更改，同時仍可透過插入新列並在新儲存格中輸入資料來擴充表格。請依照下列步驟操作。

工作表中名為 Table1 的表格截圖，顯示公式欄位

1. 按一下開發人員 > 插入 > 按鈕（表單控制項），即可在您的工作表中插入一個表單控制項按鈕。

在 Excel 中使用開發人員索引標籤插入表單控制項按鈕的截圖

2. 在跳出的指定巨集對話方塊中，點擊新增按鈕。

Excel 中指派巨集對話方塊的截圖，其中「新增」按鈕已標示

3. 在 Microsoft Visual Basic for Applications 視窗中，請將下方的 VBA 程式碼複製並貼上至程式碼視窗中，位於 Sub 與 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

注意事項：

1）在程式碼中，數字「123」是您用來保護工作表的密碼。

2）請變更表格名稱及您要保護之公式所在欄位的名稱。

4. 按下 Alt+Q 鍵，即可關閉 Microsoft Visual Basic for Applications 視窗。

5. 選取表格中除公式欄位外、需填入新資料的儲存格，然後按下 Ctrl+1 鍵，即可開啟設定儲存格格式對話方塊。在設定儲存格格式對話方塊中，取消勾選鎖定核取方塊，再按一下確定按鈕。請參閱下圖：

Excel 中儲存格格式對話方塊的截圖，其中「鎖定」核取方塊未勾選

6. 現在請使用您在 VBA 程式碼中設定的密碼來保護工作表。

從現在起，在受保護的工作表中點擊表單控制項按鈕後，表格將如以下截圖所示，透過插入新列自動擴充。

受保護工作表的截圖，顯示透過插入新列來擴展表格

注意：在受保護的工作表中，除了公式列外，您仍可修改表格的其他部分。

最佳 Office 生產力工具

🤖	KUTOOLS AI 助手：基於以下內容徹底革新數據分析：智慧執行｜產生程式碼｜建立自訂公式｜分析資料並產生圖表｜呼叫增強函數……
	熱門功能：尋找、醒目提示或標記重複值｜刪除空白行｜合併列或儲存格而不遺失資料｜不使用公式的四捨五入……
	高級 LOOKUP：多重條件 VLookup ｜多重數值 VLookup ｜跨多個工作表 VLookup ｜模糊查找……
	高級下拉列表：快速建立下拉式清單｜相依式下拉式清單｜多選下拉式清單……
	欄位管理員：新增指定數量的欄位｜移動欄位｜切換隱藏欄位的可見狀態｜比較範圍與欄位……
	精選功能：網格聚焦｜設計視圖｜增強編輯欄｜工作簿與工作表管理員｜資源庫（自動文字）｜日期提取｜合併工作表｜加密／解密儲存格｜依清單傳送電子郵件｜超級篩選｜特殊篩選（篩選粗體儲存格／斜體／刪除線……） ......
	頂尖 15 工具組：12 文字工具（添加文本，刪除特定字符，……）｜ 50+ 圖表類型（甘特圖，……）｜ 40+ 實用公式（基於生日計算年齡，……）｜ 19 插入工具（插入二維碼，從路徑插入圖片，……）｜ 12 轉換工具（金額轉大寫，匯率轉換，……）｜ 7 合併和拆分工具（高級合併行，分割儲存格，……）｜……以及更多