Excel VBA：提交宏执行时解锁目标工作表并完成后重新锁定

• 核心规则：在对目标工作表执行写入操作前解锁，所有写入完成后立刻重新锁定，若工作表有保护密码，需在语句中指定（如Unprotect "YourPass"）。

示例代码修改演示 #

假设你的原宏结构如下（典型提交逻辑）：

Sub Submit_Details()
    Dim wsForm As Worksheet, wsTarget As Worksheet
    Dim nextRow As Long
    
    Set wsForm = ThisWorkbook.Worksheets(1)
    Set wsTarget = ThisWorkbook.Worksheets("目标表名称") ' 替换为你的目标表名
    
    nextRow = wsTarget.Cells(Rows.Count, 1).End(xlUp).Row + 1
    
    ' 写入数据块
    wsTarget.Cells(nextRow, 1).Value = wsForm.Range("A2").Value
    wsTarget.Cells(nextRow, 2).Value = wsForm.Range("B2").Value
    ' ... 其他写入代码
    
    wsForm.Range("A2:B2").ClearContents ' 清空表单（可选）
End Sub

修改后带解锁/锁定的代码 #

Sub Submit_Details()
    Dim wsForm As Worksheet, wsTarget As Worksheet
    Dim nextRow As Long
    
    Set wsForm = ThisWorkbook.Worksheets(1)
    Set wsTarget = ThisWorkbook.Worksheets("目标表名称")
    
    ' --- 解锁目标表：放在所有写入操作之前 ---
    wsTarget.Unprotect ' 有密码则改为 wsTarget.Unprotect "你的保护密码"
    ' ---
    
    nextRow = wsTarget.Cells(Rows.Count, 1).End(xlUp).Row + 1
    
    ' 写入数据块
    wsTarget.Cells(nextRow, 1).Value = wsForm.Range("A2").Value
    wsTarget.Cells(nextRow, 2).Value = wsForm.Range("B2").Value
    ' ... 其他写入代码
    
    ' --- 重新锁定目标表：放在所有写入操作之后 ---
    wsTarget.Protect ' 有密码则改为 wsTarget.Protect "你的保护密码"
    ' 若要保留宏操作权限，可加参数：wsTarget.Protect UserInterfaceOnly:=True
    ' ---
    
    wsForm.Range("A2:B2").ClearContents
End Sub

关键位置说明 #

1. 解锁语句：必须放在任何读取/修改目标工作表的代码之前（包括计算空行的nextRow语句，因为读取单元格也属于工作表操作）。
2. 锁定语句：必须放在所有写入、修改目标表的代码完成之后，确保数据写入完毕再上锁，避免中途报错导致工作表处于未保护状态。
3. 容错优化：如果担心宏执行中途报错，可加入错误捕获确保工作表始终锁定：

Sub Submit_Details()
    Dim wsForm As Worksheet, wsTarget As Worksheet
    Dim nextRow As Long
    
    Set wsForm = ThisWorkbook.Worksheets(1)
    Set wsTarget = ThisWorkbook.Worksheets("目标表名称")
    
    On Error GoTo Cleanup ' 触发错误时跳转到Cleanup块
    
    wsTarget.Unprotect
    
    nextRow = wsTarget.Cells(Rows.Count, 1).End(xlUp).Row + 1
    ' 写入数据代码...
    
Cleanup:
    wsTarget.Protect ' 无论是否报错都执行锁定
    If Err.Number <> 0 Then MsgBox "提交失败：" & Err.Description
End Sub

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