【VBA】修改Excle的标题

打开Excle的时候，有时候不需要显示Miscrosoft Excle，如下图标记，想把标记内的内容替换为：管理系统

操作代码：

Public Sub 修改标题()
    Application.Caption = "管理系统"
    MsgBox "Excle标题已经被修改为：" & Application.Caption & "！下面将恢复原标题！"
    Application.Caption = vbNullString
End Sub

操作结果如下：

点击上图修改后出现弹窗：

点击下载附件