如何在受保護的工作表中插入或刪除行？

在Excel工作表中處理敏感或共享數據時，保護工作表是避免意外或未經授權更改的常用方法。然而，根據設計，工作表保護也會限制某些操作，例如插入或刪除行，特別是在鎖定的單元格中。許多用戶經常遇到這樣的問題：他們需要允許進行編輯（如插入或刪除行），同時仍然保持工作表的其餘部分受到保護。本教程說明了在受保護的工作表中插入或刪除行的實用方法，並討論了它們的應用場景、注意事項和替代解決方案，以幫助您安全高效地管理數據。

在受保護的工作表中插入或刪除行

VBA：自動暫時取消保護、插入/刪除並重新保護

在受保護的工作表中插入或刪除行

此解決方案最適合希望用戶擁有有限編輯權限的情況，例如插入或刪除行，同時保持工作表的大部分內容受到保護。它允許指定的行或數據部分保持靈活且可編輯，而工作表的其餘部分則受到保護以免遭意外更改或刪除。

請按照以下步驟啟用受保護工作表中的行插入和刪除功能：

1. 選擇您希望用戶能夠插入或刪除的整行。此過程決定了在受保護的工作表中哪些位置可以執行這些操作。選擇行後，右鍵單擊選定區域，然後從上下文菜單中選擇「設定儲存格格式」。見截圖：

2. 在出現的「設定儲存格格式」對話框中，導航到「保護」選項卡。在此處，取消勾選「鎖定」框以解鎖這些特定的單元格或行。解鎖是必要的；否則，即使有其他權限，用戶仍無法進行更改。請小心不要解鎖您希望保持受保護的敏感區域。見截圖：

3. 點擊「確定」關閉對話框。接下來，轉到Excel功能區，點擊「審閱」，然後選擇「保護工作表」以啟用工作表保護。見截圖：

4. 在出現的「保護工作表」對話框中，您會看到一個標為「允許此工作表的所有用戶」的列表。勾選「插入行」和「刪除行」選項。如果需要，輸入密碼以保護工作表，並在提示時確認。這一步對於僅授予用戶所需的編輯權限同時保護工作表的其餘部分至關重要。見截圖：

5. 最後，點擊「確定」以在新設置下啟用工作表保護。結果，現在只有指定的行可以根據您配置的權限和解鎖情況插入或刪除，而工作表的其餘部分不受影響。見截圖：

這種方法適用於大多數基本需求，但請注意，它不允許用戶在未解鎖的、授予权限的區域之外插入或刪除行。在啟用保護之前，請始終檢查哪些單元格已解鎖，以避免意外的數據暴露或保護不足。

如果您需要允許在更廣泛的工作表區域中插入或刪除，或者希望更多自動化，請考慮下面的VBA解決方案。

VBA：自動暫時取消保護、插入/刪除並重新保護

這種VBA宏方法非常適合需要在受保護的工作表中頻繁插入或刪除行的用戶，而無需每次都手動解鎖和重新鎖定工作表。通過運行宏，您可以暫時取消保護工作表，執行行操作，然後讓工作表自動重新保護——只需點擊一下按鈕即可完成所有操作。這對於協作或重複任務特別合適，確保數據既靈活又持續受到保護。

此方法的主要優勢包括通過限制未受保護的窗口來最大限度減少敏感數據的意外暴露，並避免為常規編輯反覆輸入密碼的麻煩。然而，潛在的局限性是需要啟用宏，並且需要基本的宏安全理解。

1. 打開您要啟用此功能的工作表。點擊「開發工具」選項卡（如果未顯示「開發工具」選項卡，可以通過「文件」>「選項」>「自定義功能區」啟用），然後點擊「Visual Basic」。在出現的VBA編輯器窗口中，選擇「插入」>「模塊」，並將以下代碼粘貼到模塊中：

Sub InsertRowInProtectedSheet()
    Dim ws As Worksheet
    Dim pwd As String
    Set ws = ActiveSheet
    pwd = InputBox("Enter sheet password:", "KutoolsforExcel")
    
    If pwd = "" Then Exit Sub
    
    On Error Resume Next
    ws.Unprotect Password:=pwd
    
    If Err.Number <> 0 Then
        MsgBox "Incorrect password or unprotect failed!", vbExclamation
        Exit Sub
    End If
    
    On Error GoTo 0
    Dim insertRow As Integer
    insertRow = Application.InputBox("Enter row number to insert:", "KutoolsforExcel", Type:=1)
    
    If insertRow > 0 Then
        ws.Rows(insertRow).Insert Shift:=xlDown, CopyOrigin:=xlFormatFromLeftOrAbove
        MsgBox "Row inserted at " & insertRow, vbInformation
    End If
    
    ws.Protect Password:=pwd, AllowInsertingRows:=True, AllowDeletingRows:=True
End Sub

Sub DeleteRowInProtectedSheet()
    Dim ws As Worksheet
    Dim pwd As String
    Set ws = ActiveSheet
    pwd = InputBox("Enter sheet password:", "KutoolsforExcel")
    
    If pwd = "" Then Exit Sub
    
    On Error Resume Next
    ws.Unprotect Password:=pwd
    
    If Err.Number <> 0 Then
        MsgBox "Incorrect password or unprotect failed!", vbExclamation
        Exit Sub
    End If
    
    On Error GoTo 0
    Dim delRow As Integer
    delRow = Application.InputBox("Enter row number to delete:", "KutoolsforExcel", Type:=1)
    
    If delRow > 0 Then
        ws.Rows(delRow).Delete
        MsgBox "Row " & delRow & " deleted.", vbInformation
    End If
    
    ws.Protect Password:=pwd, AllowInsertingRows:=True, AllowDeletingRows:=True
End Sub

2. 關閉VBA編輯器。要插入一行，按Alt + F8打開宏對話框，選擇InsertRowInProtectedSheet，然後點擊「運行」；要刪除一行，選擇DeleteRowInProtectedSheet並點擊「運行」。系統將提示您輸入工作表密碼並指定要插入或刪除的行。此方法在操作後立即重新保護工作表，以確保持續的安全性。請務必將您的工作簿保存為啟用宏的文件（.xlsm）以供將來使用。

提示：

• 在運行宏之前，請始終確認您擁有正確的密碼，因為錯誤的密碼將阻礙自動化。
• 如果發生任何錯誤，請檢查輸入值並確保在Excel信任中心設置中啟用了宏。