Excel VBA问题：空单元格可输入，非空单元格禁止修改失效

你的代码逻辑核心错误在于：判断的是单元格修改后的新值，而非修改前的原始值。当你在空单元格输入内容时，Worksheet_Change事件触发时，Target.Value已经变成了你刚输入的非空内容，代码会执行Application.Undo撤销输入，导致单元格回到空状态，看起来像是被判定为非空。

方法一：通过Undo/Redo获取原始值（无需额外变量） #

Private Sub Worksheet_Change(ByVal Target As Range)
    ' 跳过批量修改的情况
    If Target.Count > 1 Then Exit Sub
    
    Dim originalValue As Variant
    Application.EnableEvents = False
    
    ' 第一步撤销，获取单元格修改前的原始值
    Application.Undo
    originalValue = Target.Value
    
    ' 第二步撤销，恢复用户刚输入的内容
    Application.Undo
    
    ' 仅当原始值非空时，才撤销用户的修改
    If originalValue <> "" Then
        Application.Undo
    End If
    
    Application.EnableEvents = True
End Sub

方法二：通过SelectionChange提前记录原始值（逻辑更直观） #

' 模块级变量，记录选中单元格的原始值
Dim prevCellValue As Variant

Private Sub Worksheet_SelectionChange(ByVal Target As Range)
    ' 仅记录单个选中单元格的值
    If Target.Count = 1 Then
        prevCellValue = Target.Value
    End If
End Sub

Private Sub Worksheet_Change(ByVal Target As Range)
    If Target.Count > 1 Then Exit Sub
    
    Application.EnableEvents = False
    ' 原始值非空时，禁止修改
    If prevCellValue <> "" Then
        Application.Undo
    End If
    Application.EnableEvents = True
End Sub

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