为什么需要修改Excel标题栏？

默认情况下，Excel的标题栏显示的是文件名，例如：

`工作簿1 - Microsoft Excel`

但有时候，我们可能希望：

显示自定义信息（如版本号、作者、项目名称）

隐藏敏感文件名（保护隐私）

动态更新标题（如显示计算进度）

这时，`Application.Caption` 属性就能派上大用场！

`Application.Caption` 是什么？

`Application.Caption` 是Excel VBA的一个属性，用于获取或设置Excel窗口的标题栏文字。

基本语法

Application.Caption = "你的自定义标题" ' 设置标题

MsgBox Application.Caption ' 获取当前标题

示例1：设置静态标题

Sub SetTestTitle()
Application.Caption = "测试文件"
End Sub

运行效果：

原本的 `工作簿1 - Microsoft Excel` → 变成 `测试文件`

2 实际应用场景

场景1：显示用户名和日期

Sub ShowUserAndDate()
Dim userName As String
userName = Environ("USERNAME") ' 获取当前Windows用户名
Application.Caption = "当前用户：" & userName & " | " & Date
End Sub

场景2：动态显示计算进度

Sub ShowProgress()
Dim i As Integer
For i = 1 To 100
Calculate ' 模拟计算
Application.Caption = "计算中... " & i & "%"
DoEvents ' 允许屏幕刷新
Next i
Application.Caption = "计算完成！"
End Sub

场景3：恢复默认标题

Sub ResetTitle()
Application.Caption = "" ' 清空即恢复默认
End Sub

说明：

- 设置为空字符串 `""` 时，Excel会自动恢复默认标题格式（`文件名 - Microsoft Excel`）。

3 进阶技巧

结合`ThisWorkbook.Name`显示文件名

Sub ShowFileName()
Application.Caption = "当前文件：" & ThisWorkbook.Name
End Sub

修改Excel主窗口和所有工作簿窗口标题

默认情况下，`Application.Caption` 只影响主窗口标题。如果想修改单独的工作簿窗口标题，可以使用：

ThisWorkbook.Windows(1).Caption = "自定义工作簿标题"

4 注意事项

标题修改仅对当前会话有效，关闭Excel后不会保存。

不要滥用，避免标题过长影响用户体验。

在关闭工作簿或Excel时，建议恢复默认标题，避免影响其他用户。

总结

`Application.Caption` 可以自定义Excel标题栏，让界面更专业。

适用场景：

- 显示动态信息（如进度、用户名、日期）。

- 隐藏默认文件名，保护隐私。

- 增强企业级应用的品牌感。

恢复默认标题只需设置 `Application.Caption = ""`。

现在就试试，让你的Excel与众不同！

（关注我，学习更多Excel VBA高效技巧！ ）