Excel表格中如何设置特定日期后表格失效_利用VBA事件触发保护锁定

Excel工作表可通过VBA实现自动失效锁定：一、Workbook_Open事件在打开时检测日期并保护；二、Worksheet_Activate事件在激活时动态拦截编辑；三、结合Z1单元格设定失效日与当日动态密码解锁机制。

如果您希望Excel工作表在特定日期之后自动失效并锁定，可以通过VBA事件（如Workbook_Open或Worksheet_Activate）实时检测系统日期，并在过期后启用保护、禁用编辑。以下是实现该功能的多种方法：

一、使用Workbook_Open事件自动检测并锁定

该方法在每次打开工作簿时触发检查，若当前日期超过设定的截止日期，则立即启用工作表保护并提示用户，阻止进一步编辑。

1、按 Alt + F11 打开VBA编辑器。

2、在左侧“工程资源管理器”中双击 ThisWorkbook。

3、在代码窗口中粘贴以下VBA代码：

Private Sub Workbook_Open()

Dim expiryDate As Date

expiryDate = #12/31/2024# '请替换为您设定的失效日期

If Date > expiryDate Then

   ActiveWorkbook.Protect Password:="locked"

   MsgBox "本工作表已过期，所有工作表已被锁定。", vbExclamation

   ThisWorkbook.Sheets(1).Protect Password:="locked"

End If

4、关闭VBA编辑器，将工作簿另存为启用宏的格式（.xlsm）。

二、使用Worksheet_Activate事件动态拦截编辑

该方法在用户切换到任一工作表时触发检测，即使工作簿已打开多日，也能在首次访问时即时响应过期状态，并通过取消Select和Edit动作强化锁定效果。

1、在VBA编辑器中双击目标工作表（例如 Sheet1）。

2、粘贴以下代码：

Private Sub Worksheet_Activate()

Dim expDate As Date: expDate = #12/31/2024#

If Date > expDate Then

   If Not Me.ProtectContents Then Me.Protect Password:="locked", UserInterfaceOnly:=False

   Application.EnableEvents = False

   MsgBox "该工作表已失效，禁止编辑。", vbCritical

   On Error Resume Next

   Me.Cells.Locked = True

   Me.EnableSelection = xlNoSelection

   On Error GoTo 0

   Application.EnableEvents = True

End If

三、结合单元格级时间戳与密码清除机制

该方法将失效日期写入指定单元格（如Z1），允许非开发人员后期修改截止日；同时设置“解锁入口”需输入动态口令（仅当日有效），增强可控性与审计痕迹。

1、在工作表任意空白单元格（如 Z1）中输入失效日期，格式为 2024/12/31。

2、在ThisWorkbook模块中添加如下事件：

Private Sub Workbook_BeforeSave(ByVal SaveAsUI As Boolean, Cancel As Boolean)

If Range("Z1").Value  "" And Date > Range("Z1").Value Then

   Cancel = True

   MsgBox "工作表已过期，禁止保存更改。", vbStop

End If

3、在标准模块（插入 → 模块）中添加解锁函数：

Function TodayKey() As String

TodayKey = Format(Date, "yyyymmdd") & "EX"

End Function

4、用户可通过运行宏输入 =TodayKey() 获取当日唯一解锁码，用于临时解除保护（需另行编写UnlockByCode子过程）。

免责声明：本文内容来自用户上传并发布，站点仅提供信息存储空间服务，不拥有所有权，不承担相关法律责任。请核实广告和内容真实性，谨慎使用。