求助：如何用VBA实现工作表超时锁定及解锁后停止触发锁定代码

阿华AIGC实验室

2026-4-29

解决工作表解锁后VBA代码重复锁定的问题

你的问题核心是缺少一个“永久禁用触发逻辑”的开关——原代码每次SelectionChange都会无条件检查A1的值，导致解锁后立刻重新锁定。要实现“输入正确密码解锁后代码彻底不再生效”的需求，我们可以通过工作表隐藏名称来存储永久状态（即使关闭再打开工作簿也有效），或者用全局变量实现本次会话禁用。下面是具体方案：

方案一：永久禁用（关闭工作簿后依然生效）

这个方案会在用户解锁后创建一个隐藏的工作表名称作为标记，后续所有触发事件都会直接跳过锁定逻辑。

步骤1：替换工作表事件代码

打开VBA编辑器（Alt+F11），找到目标工作表的代码窗口，替换为以下代码：

Private Sub Worksheet_SelectionChange(ByVal Target As Range)
    ' 先检查是否已经标记为禁用代码
    If NameExists("CodeDisabled", Me) Then
        Exit Sub
    End If
    
    ' 检测到工作表已解锁，立即标记并禁用后续逻辑
    If Not Me.ProtectContents Then
        ' 创建隐藏名称，永久存储禁用状态
        Me.Names.Add Name:="CodeDisabled", RefersTo:=True, Visible:=False
        Exit Sub
    End If
    
    ' 原有的锁定逻辑
    If Range("A1").Value < Date - 1 + (7 / 24) Then
        Me.Protect Password:="mypassword"
        MsgBox "This workbook is locked, please contact...", vbInformation, "Protected Document"
    End If
End Sub

' 辅助函数：检查指定名称是否存在于当前工作表
Private Function NameExists(nameStr As String, ws As Worksheet) As Boolean
    Dim nm As Name
    On Error Resume Next
    Set nm = ws.Names(nameStr)
    On Error GoTo 0
    NameExists = Not nm Is Nothing
End Function

原理说明

当用户输入密码解锁工作表后，下一次触发SelectionChange（比如点击任意单元格），代码会检测到工作表未被保护，自动创建一个名为CodeDisabled的隐藏名称。
之后每次触发事件，都会先检查这个隐藏名称是否存在，存在则直接退出子程序，彻底跳过锁定逻辑。
隐藏名称会保存在工作表中，即使关闭再打开工作簿，标记依然有效，代码不会再触发锁定。

方案二：仅本次会话禁用（关闭工作簿后重置）

如果你只希望在当前打开工作簿的会话中禁用代码，关闭后下次打开仍需检查，可以用全局变量实现：

步骤1：创建标准模块

在VBA编辑器中右键点击工作簿，选择插入 > 模块，输入以下代码：

Public IsCodeDisabled As Boolean

步骤2：修改工作表事件代码

回到目标工作表的代码窗口，替换为：

Private Sub Worksheet_SelectionChange(ByVal Target As Range)
    ' 已禁用则直接退出
    If IsCodeDisabled Then
        Exit Sub
    End If
    
    ' 检测到解锁，标记为禁用
    If Not Me.ProtectContents Then
        IsCodeDisabled = True
        Exit Sub
    End If
    
    ' 原有的锁定逻辑
    If Range("A1").Value < Date - 1 + (7 / 24) Then
        Me.Protect Password:="mypassword"
        MsgBox "This workbook is locked, please contact...", vbInformation, "Protected Document"
    End If
End Sub