diff --git a/VBA/Modules/模块1.bas b/VBA/Modules/模块1.bas
deleted file mode 100644
index 72e3bce..0000000
--- a/VBA/Modules/模块1.bas
+++ /dev/null
@@ -1,36 +0,0 @@
-Sub TestStatusBarColor()
-    Dim i As Integer
-
-    ' --- 第一阶段：观察初始状态 ---
-    ' 此时还没有修改状态栏
-    MsgBox "【步骤 1/3】" & vbCrLf & vbCrLf & _
-           "请现在看一眼 Excel 左下角的状态栏。" & vbCrLf & _
-           "它应该是【白色/灰白色】的，显示'就绪'。" & vbCrLf & vbCrLf & _
-           ">>> 准备好观察变色了吗？点击确定开始写入文字。", vbInformation, "初始状态检查"
-
-    ' --- 第二阶段：写入自定义内容 ---
-    ' Excel 应该会在这一行代码执行的瞬间，改变状态栏样式
-    For i = 1 To 5
-        Application.StatusBar = "【正在测试】状态栏底色变了吗？计数: " & i
-
-        ' 强制刷新界面，确保你能看到变化
-        DoEvents
-
-        ' 暂停 1 秒，让你有时间观察
-        Application.Wait (Now + TimeValue("0:00:01"))
-    Next i
-
-    ' --- 第三阶段：暂停在修改状态，再次确认 ---
-    MsgBox "【步骤 2/3】" & vbCrLf & vbCrLf & _
-           "代码正在运行中，状态栏内容已被修改。" & vbCrLf & _
-           "请看左下角：底色是否变成了【深绿色】或【深灰色】？" & vbCrLf & _
-           "文字是否变成了不易辨认的细黑体？" & vbCrLf & vbCrLf & _
-           ">>> 点击确定后，我将重置状态栏。", vbExclamation, "接管状态检查"
-
-    ' --- 第四阶段：重置 ---
-    Application.StatusBar = False ' 这一句是关键，False 代表交还控制权给 Excel
-
-    MsgBox "【步骤 3/3】" & vbCrLf & vbCrLf & _
-           "测试结束。状态栏应该已经恢复为【白色/灰白色】的'就绪'状态。", vbInformation, "恢复状态检查"
-
-End Sub
\ No newline at end of file