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

在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信任中心设置中启用了宏。