我来帮你解决这个头疼的问题——你遇到的核心问题是原来的代码只处理了输入数据时锁定单元格，但没覆盖删除数据后解锁单元格的逻辑，而且单元格的Locked属性是独立于工作表保护的：哪怕你手动取消工作表保护，只要这个属性还是True，你依然没法编辑该单元格（除非手动重置属性）。之前用Target.Cells或UsedRange没解决，大概率是没遍历每个单元格处理，或者没正确结合工作表保护的UserInterfaceOnly参数。

下面是经过验证的完整解决方案：

一、核心工作表事件代码（处理自动锁定/解锁） #

右键你要设置的工作表标签 → 点击「查看代码」，粘贴以下VBA代码：

Private Sub Worksheet_Change(ByVal Target As Range)
    Dim ws As Worksheet
    Dim cell As Range
    Dim protectPassword As String
    
    ' 替换成你的工作表保护密码，不需要密码就留空
    protectPassword = "admin123"
    
    Set ws = Me
    
    ' 防止事件循环触发（比如修改单元格属性时再次触发Change事件）
    Application.EnableEvents = False
    
    ' 出错时自动恢复事件，避免Excel卡死
    On Error GoTo Cleanup

    ' 临时取消保护，才能修改单元格的Locked属性
    ws.Unprotect Password:=protectPassword
    
    ' 遍历目标区域的每一个单元格，确保每个单元格状态都正确更新
    For Each cell In Target
        If cell.Value = "" Then
            ' 空单元格设置为未锁定，允许后续编辑
            cell.Locked = False
        Else
            ' 有内容的单元格设置为锁定，防止误改
            cell.Locked = True
        End If
    Next cell
    
    ' 重新保护工作表，关键参数说明：
    ' UserInterfaceOnly:=True → VBA代码可以直接修改单元格属性，不需要每次手动取消保护
    ' AllowSelectingUnlockedCells:=True → 允许用户选择空（未锁定）单元格进行编辑
    ws.Protect Password:=protectPassword, UserInterfaceOnly:=True, AllowSelectingUnlockedCells:=True

Cleanup:
    Application.EnableEvents = True
    If Err.Number <> 0 Then
        MsgBox "操作出错: " & Err.Description, vbExclamation
    End If
End Sub

二、补充：Excel重启后保持保护设置 #

因为UserInterfaceOnly参数在Excel重启后会失效，所以需要在工作簿打开时重新设置。打开VBA编辑器，找到ThisWorkbook模块，粘贴以下代码：

Private Sub Workbook_Open()
    Dim ws As Worksheet
    Dim protectPassword As String
    
    ' 这里的密码要和上面工作表代码里的一致
    protectPassword = "admin123"
    
    ' 遍历所有工作表，如果你只需要特定工作表，加判断：If ws.Name = "你的工作表名" Then
    For Each ws In ThisWorkbook.Worksheets
        ws.Unprotect Password:=protectPassword
        ws.Protect Password:=protectPassword, UserInterfaceOnly:=True, AllowSelectingUnlockedCells:=True
    Next ws
End Sub

三、管理员修改流程&测试要点 #

1. 管理员修改步骤：
   • 手动取消工作表保护（输入密码），此时可以修改任何单元格（包括已锁定的）
   • 修改完成后，要么手动重新保护工作表，要么直接编辑单元格：比如删除内容时，Change事件会自动把该单元格设为未锁定，下次可以正常输入；输入内容时则自动锁定。
2. 测试验证：
   • 在空单元格输入内容 → 单元格自动锁定，无法修改（除非取消保护）
   • 删除单元格内容 → 单元格自动解锁，可重新输入
   • 管理员取消保护后修改已锁定单元格，重新保护后，单元格会根据当前内容自动锁定/解锁

这个方案完美解决了你提到的「删除数据并取消保护后无法重新输入」的问题，核心是每次单元格内容变化时，都主动重置该单元格的Locked属性，而不是只在输入时设置一次。

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