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