KutoolsforOffice — 一套方案，五大工具。事半功倍。

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

作者Xiaoyang修改日期

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

最佳办公效率工具

🤖KUTOOLS AI 助手：基于以下内容革新数据分析：智能执行   |  生成代码|  创建自定义公式  |  数据分析及生成图表|  调用 Kutools Functions……
热门功能：查找、高亮或标记重复项   |  删除空白行   |  合并列或单元格且不丢失数据   |  不使用公式的四舍五入……
高级 LOOKUP：多条件 VLookup  |  多值 VLookup  |   跨多工作表 VLookup   |   模糊查找……
高级下拉列表：快速创建下拉列表   |  级联下拉列表   |  多选下拉列表……
列管理器：添加指定数量的列|移动列|切换隐藏列的可见性状态|比较区域与列……
特色功能：网格聚焦   |  设计视图   |增强编辑栏   | 工作簿和表管理器   |  资源库（自动文本）|  日期提取   |  汇总工作表  |  加密/解密单元格   | 按列表发送邮件   |  超级筛选   |   特殊筛选（筛选粗体单元格/斜体/删除线……） ......
精选 15 工具集：12 文本工具（添加文本，删除特定字符，……）|   50+ 图表 类型（甘特图，……）|   40+ 实用公式（基于生日计算年龄，……）|   19 插入工具（插入二维码，从路径插入图片，……）|   12 转换工具（小写金额转大写，汇率转换，……）|   7 合并和拆分工具（高级合并行，分割单元格，……）|……更多
在您的首选语言中使用 Kutools – 支持英语、西班牙语、德语、法语、中文及 40+ 种其他语言！

使用 Kutools for Excel 大幅提升您的 Excel 技能，体验前所未有的高效。Kutools for Excel 提供 300 多项高级功能，助您提升生产力、节省时间。立即点击此处，获取您最需要的功能……

Office Tab 为 Office 带来标签式界面，让您的工作更轻松

  • 在 Word、Excel、PowerPoint、Publisher、Access、Visio 和 Project 中启用标签式编辑和阅读。
  • 在同一个窗口的新标签页中打开并创建多个文档，而非在新窗口中。
  • 将您的工作效率提升 50%，每天减少数百次鼠标点击！

所有 Kutools 插件，一个安装程序

Kutools for Office 套件捆绑了适用于 Excel、Word、Outlook 和 PowerPoint 的插件以及 Office Tab Pro，非常适合需要跨多个 Office 应用高效协作的团队。

ExcelWordOutlookTabsPowerPoint
  • 一体化套件— Excel、Word、Outlook 和 PowerPoint 插件 + Office Tab Pro
  • 一个安装程序，一个许可证— 几分钟内完成设置（支持 MSI）
  • 协同效果更佳— 在多个 Office 应用中实现高效协同
  • 30 天全功能试用— 无需注册，无需信用卡
  • 超值之选— 比单独购买插件更省钱