Private Sub Workbook_SheetChange(ByVal Sh As Object, ByVal Target As Range)

Option ExplicitPrivate Sub Workbook_SheetChange(ByVal Sh As Object, ByVal Target As Range)    '==========================================================    ' 单元格修改审计日志 - 自动记录到 Audit_Log 工作表    ' 作者：千万别学Excel    ' 版本：v2.1    '==========================================================    Dim wsLog As Worksheet    Dim lastRow As Long    Dim cell As Range    Dim oldVal As String    Dim newVal As String    Dim logExists As Boolean    Dim i As Integer    ' ---------- 1. 防递归保护 ----------    ' 如果当前正在撤销/重做或日志表自身被修改，直接退出    Application.EnableEvents = False    ' ---------- 2. 检查/创建 Audit_Log 工作表 ----------    logExists = False    For i = 1 To ThisWorkbook.Worksheets.Count        If ThisWorkbook.Worksheets(i).Name = "Audit_Log" Then            Set wsLog = ThisWorkbook.Worksheets(i)            logExists = True            Exit For        End If    Next i    If Not logExists Then        Set wsLog = ThisWorkbook.Worksheets.Add(After:=ThisWorkbook.Worksheets(ThisWorkbook.Worksheets.Count))        wsLog.Name = "Audit_Log"        wsLog.Visible = xlSheetVeryHidden  ' 深度隐藏，普通用户无法通过右键取消隐藏        ' 写表头        wsLog.Range("A1:F1").Value = Array("时间戳", "用户名", "工作表", "单元格地址", "旧值", "新值")        wsLog.Range("A1:F1").Font.Bold = True        wsLog.Range("A1:F1").Interior.Color = RGB(0, 51, 102)        wsLog.Range("A1:F1").Font.Color = RGB(255, 255, 255)    End If    ' ---------- 3. 遍历所有被修改的单元格（支持多单元格同时修改） ----------    For Each cell In Target        ' 跳过日志表自身的修改，避免无限循环        If cell.Worksheet.Name <> "Audit_ttLog" Then            ' 获取旧值（从 Undo 堆栈中读取）            On Error Resume Next            oldVal = Application.Undo            On Error GoTo 0            newVal = cell.Value            ' 只记录实际发生变化的情况            If CStr(oldVal) <> CStr(newVal) Then                lastRow = wsLog.Cells(wsLog.Rows.Count, 1).End(xlUp).Row + 1                wsLog.Cells(lastRow, 1).Value = Now()                wsLog.Cells(lastRow, 2).Value = Application.UserName                wsLog.Cells(lastRow, 3).Value = Sh.Name                wsLog.Cells(lastRow, 4).Value = cell.Address(False, False)                wsLog.Cells(lastRow, 5).Value = oldVal                wsLog.Cells(lastRow, 6).Value = newVal            End If        End If    Next cell    ' ---------- 4. 恢复事件监听 ----------    Application.EnableEvents = True    ' ---------- 5. 自动调整列宽 ----------    wsLog.Columns("A:F").AutoFitEnd Sub

Application.EnableEvents = False' ... 写日志 ...Application.EnableEvents = True

oldVal = Application.Undo

' 在 ThisWorkbook 中声明模块级变量Private oldValues As CollectionPrivate Sub Workbook_SheetSelectionChange(ByVal Sh As Object, ByVal Target As Range)    ' 用户选中单元格时，缓存当前值    Set oldValues = New Collection    Dim cell As Range    On Error Resume Next    For Each cell In Target        oldValues.Add cell.Value, cell.Address    Next cell    On Error GoTo 0End SubPrivate Sub Workbook_SheetChange(ByVal Sh As Object, ByVal Target As Range)    Application.EnableEvents = False    ' ... 从 oldValues 集合中读取旧值 ...    ' （完整实现略，核心思路如上）    Application.EnableEvents = TrueEnd Sub

import pandas as pdfrom openpyxl import load_workbookfrom datetime import datetimeimport matplotlib.pyplot as plt# 读取 Excel 文件中的审计日志wb_path = r"D:\财务\年度预算表.xlsx"wb = load_workbook(wb_path, read_only=True, data_only=True)# 检查是否存在 Audit_Log 表if 'Audit_Log' not in wb.sheetnames:    raise ValueError("未找到 Audit_Log 工作表，请确认 VBA 代码已正确部署")ws = wb['Audit_Log']# 将日志数据读入 DataFramedata = []for row in ws.iter_rows(min_row=2, values_only=True):    if row[0] is None:  # 跳过空行        continue    data.append({        'timestamp': row[0],        'username': row[1],        'sheet': row[2],        'cell': row[3],        'old_value': row[4],        'new_value': row[5]    })df = pd.DataFrame(data)# 确保时间戳为 datetime 类型df['timestamp'] = pd.to_datetime(df['timestamp'])print(f"共加载 {len(df)} 条审计记录")print(df.head())

user_stats = df.groupby('username').agg(    修改次数=('timestamp', 'count'),    最早修改=('timestamp', 'min'),    最近修改=('timestamp', 'max')).sort_values('修改次数', ascending=False)print(user_stats)

sheet_activity = df['sheet'].value_counts()print(sheet_activity)# 可视化sheet_activity.head(10).plot(    kind='barh',    title='工作表修改频次 TOP 10',    figsize=(10, 6))plt.xlabel('修改次数')plt.tight_layout()plt.show()

sensitive_cells = ['B5', 'C10', 'D15']  # 定义敏感单元格列表sensitive_logs = df[    (df['sheet'] == '预算汇总') &    (df['cell'].isin(sensitive_cells))].sort_values('timestamp', ascending=False)print(sensitive_logs[['timestamp', 'username', 'cell', 'old_value', 'new_value']])

df['hour'] = df['timestamp'].dt.hourdf['date'] = df['timestamp'].dt.date# 按小时分布hourly = df.groupby('hour').size()hourly.plot(    kind='line',    marker='o',    title='24小时修改活动分布',    figsize=(10, 5))plt.xlabel('小时')plt.ylabel('修改次数')plt.grid(True, alpha=0.3)plt.show()

# 按工作表+单元格分组，计算相邻修改的时间差df_sorted = df.sort_values(['sheet', 'cell', 'timestamp'])df_sorted['prev_time'] = df_sorted.groupby(['sheet', 'cell'])['timestamp'].shift(1)df_sorted['time_gap_seconds'] = (df_sorted['timestamp'] - df_sorted['prev_time']).dt.total_seconds()# 找出 60 秒内同一单元格被修改 2 次以上的记录rapid_changes = df_sorted[    (df_sorted['time_gap_seconds'] < 60) &    (df_sorted['time_gap_seconds'].notna())]print(f"检测到 {len(rapid_changes)} 条快速连续修改")print(rapid_changes[['timestamp', 'username', 'sheet', 'cell', 'old_value', 'new_value', 'time_gap_seconds']])