用VBA在标题栏中显示工作簿的路径

通常，当我们打开一个Excel工作簿时，标题栏中仅仅显示一个简单的文件名。我们可以用下面的VBA代码，让工作簿在打开时在标题栏显示其路径和文件名：
    按Alt+F11，打开VBA编辑器，在“工程”窗口中双击“ThisWorkBook”，在右边的代码窗口中输入以下代码：
    Private Sub Workbook_Open()
      ActiveWindow.Caption = ActiveWorkbook.FullName
    End Sub
    需要注意的是，上述代码只是在工作簿打开时运行，如果将工作簿另存为其他名称，在上述代码未运行的前提下，标题栏中的路径不会改变。