Excel VBA：无法编辑指定文本及自动更新日期的问题修复请求

需求梳理 #

根据你的描述，你需要实现两个核心功能：

• 允许编辑J列中除"Posted"和"Closed"之外的所有文本
• 每次编辑J列的可编辑内容时，自动在该行的下一个空白日期列（比如K列满了就用L列，以此类推）更新当前日期

原代码存在的问题 #

你的现有代码有几个明显不足：

1. 没有针对J列的特定文本（"Posted"/"Closed"）做编辑限制
2. 日期更新逻辑只检查K列是否为空，无法自动跳转到下一个空白列
3. 循环逻辑不够高效，GoTo ende的写法容易导致逻辑混乱
4. 工作表保护的逻辑不够严谨，可能出现意外的锁定问题

修正后的完整代码 #

下面是调整后的VBA代码，完全匹配你的需求：

Private Sub Worksheet_Change(ByVal Target As Range)
    ' 只处理J列（第10列）的单个单元格变更
    If Target.Column <> 10 Or Target.Cells.Count > 1 Then Exit Sub
    
    Dim ws As Worksheet
    Set ws = Me ' 当前工作表，避免硬编码Sheet2
    Dim lockText As Variant
    lockText = Array("Posted", "Closed") ' 禁止编辑的文本
    
    ' 检查是否是禁止编辑的内容
    If UBound(Filter(lockText, Target.Value, True)) > -1 Then
        Application.EnableEvents = False ' 关闭事件避免循环触发
        MsgBox "该内容无法编辑：" & Target.Value, vbExclamation
        Application.Undo ' 撤销编辑操作
        Application.EnableEvents = True
        Exit Sub
    End If
    
    ' 寻找该行下一个空白的日期列（从K列第11列开始）
    Dim dateCol As Integer
    dateCol = 11 ' 起始列为K列
    Do While ws.Cells(Target.Row, dateCol).Value <> ""
        dateCol = dateCol + 1
        If dateCol > 20 Then Exit Do ' 防止无限循环，可按需调整最大列数
    Loop
    
    ' 更新日期并处理工作表保护
    Application.EnableEvents = False
    ws.Unprotect Password:="test"
    ws.Cells(Target.Row, dateCol).Value = Date ' 写入当前日期
    Call LockExpiredRows(ws) ' 执行过期行锁定逻辑
    ' 设置保护模式，允许VBA操作受保护工作表
    ws.Protect Password:="test", UserInterfaceOnly:=True
    Application.EnableEvents = True
End Sub

Sub LockExpiredRows(ws As Worksheet)
    Dim x As Integer
    For x = 2 To 32
        ' 检查K列日期是否早于今天，是则锁定该行
        If IsDate(ws.Cells(x, 11).Value) And ws.Cells(x, 11).Value < Date Then
            ws.Range(ws.Cells(x, 1), ws.Cells(x, 20)).Locked = True ' 锁定前20列，可调整范围
        Else
            ws.Range(ws.Cells(x, 1), ws.Cells(x, 20)).Locked = False ' 未过期则解锁
        End If
    Next x
End Sub

代码说明 #

1. 编辑限制逻辑：通过Filter函数快速判断编辑内容是否为禁止项，若是则撤销操作并给出提示
2. 自动找空白日期列：用Do While循环从K列开始查找第一个空白单元格，确保每次编辑都能写入到下一个空列
3. 事件控制：使用Application.EnableEvents = False避免因修改单元格触发重复的Worksheet_Change事件
4. 工作表保护优化：UserInterfaceOnly:=True参数让VBA可以直接操作受保护的工作表，无需反复解锁/锁定
5. 模块化拆分：把过期行锁定的功能拆成独立子过程，代码更清晰易维护

使用注意事项 #

• 确保工作表密码为"test"，如需修改，替换代码中对应的字符串即可
• 代码设置的最大日期列是20列（T列），如需支持更多列，可修改If dateCol > 20 Then Exit Do中的数字
• 批量修改J列内容时不会触发日期更新，仅处理单个单元格的编辑操作

备注：内容来源于stack exchange，提问作者raju nagavelli