多工作表多表格Excel需求：保存时锁定已填数据单元格，空行可编辑

核心思路 #

先全局解锁所有单元格，再通过VBA自动识别并锁定有数据的行，配合工作表保护机制，实现仅空白行可编辑的效果，且支持多工作表批量处理。

步骤1：设置单元格默认解锁状态 #

• 按住Ctrl点击所有需要设置的工作表标签，批量选中多工作表
• 按Ctrl+A选中当前工作表所有单元格，右键选择「设置单元格格式」
• 切换到「保护」选项卡，取消勾选「锁定」，点击确定

步骤2：编写VBA代码（适配多工作表） #

• 按Alt+F11打开VBA编辑器
• 在左侧「工程资源管理器」中，右键点击当前工作簿，选择「插入」→「模块」
• 粘贴以下代码：

Sub LockFilledRows()
    Dim ws As Worksheet
    Dim lastRow As Long
    Dim i As Long
    
    '遍历工作簿内所有工作表
    For Each ws In ThisWorkbook.Worksheets
        '先解除工作表保护（如果已开启）
        If ws.ProtectContents Then
            ws.Unprotect Password:="your_password" '替换为自定义保护密码
        End If
        
        '获取当前工作表数据区域最后一行（以A列为判断基准，可按需修改）
        lastRow = ws.Cells(ws.Rows.Count, "A").End(xlUp).Row
        
        '逐行判断并设置锁定状态
        For i = 1 To lastRow
            If ws.Cells(i, "A").Value <> "" Then 'A列有内容则锁定整行
                ws.Rows(i).Locked = True
            Else
                ws.Rows(i).Locked = False
            End If
        Next i
        
        '重新保护工作表，允许编辑未锁定单元格（即空白行）
        ws.Protect Password:="your_password", UserInterfaceOnly:=True
    Next ws
End Sub

'保存文件时自动触发锁定操作
Private Sub Workbook_BeforeSave(ByVal SaveAsUI As Boolean, Cancel As Boolean)
    Call LockFilledRows
End Sub

• 注意事项：
  • 将代码中的your_password替换为实际的保护密码
  • 如果判断行是否有数据的基准列不是A列，修改ws.Cells(i, "A")中的列标识（比如改为"B"或数字2）

步骤3：配置工作簿自动触发事件 #

• 在VBA编辑器的「工程资源管理器」中，双击「ThisWorkbook」
• 在右侧代码窗口的下拉菜单中，依次选择「Workbook」→「BeforeSave」，将上述Workbook_BeforeSave事件代码粘贴到自动生成的框架中

步骤4：功能测试 #

• 在任意工作表的空白行填写设备发放数据，保存文件
• 尝试编辑已填写数据的行，会发现无法修改；空白行仍可正常输入内容

补充说明 #

• UserInterfaceOnly:=True参数的作用是：工作表保护状态下，VBA代码仍能修改单元格锁定属性，无需反复解除保护
• 若团队使用Excel网页版（不支持VBA），可改用手动方案：
  • 解锁所有单元格后，手动选中已填行并设置锁定
  • 保护工作表时勾选「允许用户编辑区域」，仅添加空白行区域
  • 此方案需手动维护，效率低于VBA自动方案

内容的提问来源于stack exchange，提问作者Qoqi