个性化excel标题栏

 

　

Sub SetCaption()
    Application.Caption = "XXXX信息管理系统"
    ActiveWindow.Caption = vbNullString
End Sub

Sub RestoreCaption()
    Application.Caption = vbNullString
    ActiveWindow.Caption = ActiveWorkbook.Name
End Sub