Possible to always display full file path in title bar (Excel 2010)?

[Special K]

I am using Excel 2010 and the base filename is displayed in the window title bar. Is it possible to have the full path displayed without having to save every workbook as .xlsm (i.e. macro-enabled workbook)? I've found a couple possible solutions to my question online but they all involve macros. Doesn't that mean I will need to save all of my Excel workbooks as macro-enabled (i.e. xlsm) in order to use these solutions?

 

[Special K]

I would use xlsApp_WorkbookActivate instead of xlsApp_WorkbookOpen

If I do that then I no longer get the run time error listed above but the title bar doesn't contain the full path either.

Here is what I currently have:

Option Explicit

Private WithEvents xlsApp as Application

Private Sub Workbook_Activate()
    Set xlsApp = ThisWorkbook.Application
End Sub

Private Sub xlsApp_WorkbookActivate(ByVal Wb As Workbook)
    Set ActiveWindow.Caption = Wb.FullName
End

Does that look correct?

 

[Jaafar Tribak]

This is the probably your best choice :

Option Explicit

Private WithEvents xlsApp As Application

Private Sub Workbook_Open()
    Set xlsApp = Application
End Sub

Private Sub xlsApp_WindowActivate(ByVal Wb As Workbook, ByVal Wn As Window)
    Wn.Caption = Wb.FullName
End Sub

 

[Special K]

This is the probably your best choice :

Option Explicit

Private WithEvents xlsApp As Application

Private Sub Workbook_Open()
    Set xlsApp = Application
End Sub

Private Sub xlsApp_WindowActivate(ByVal Wb As Workbook, ByVal Wn As Window)
    Wn.Caption = Wb.FullName
End Sub

Thanks, this worked. But why did this work and the other examples not work?

 

[Special K]

This is the probably your best choice :

Option Explicit

Private WithEvents xlsApp As Application

Private Sub Workbook_Open()
    Set xlsApp = Application
End Sub

Private Sub xlsApp_WindowActivate(ByVal Wb As Workbook, ByVal Wn As Window)
    Wn.Caption = Wb.FullName
End Sub

What is the practical difference between xlsApp_WorkbookOpen and xlsApp_WindowActivate? Why would xlsApp_WorkbookOpen work correctly in Excel 2010 but throw an error in Excel 2013?

 

[Jaafar Tribak]

What is the practical difference between xlsApp_WorkbookOpen and xlsApp_WindowActivate? Why would xlsApp_WorkbookOpen work correctly in Excel 2010 but throw an error in Excel 2013?

xlsApp_WorkbookOpen fires only once when a workbook is first opened. xlsApp_WindowActivate fires everytime a window is being activated . Bear in mind that a workbook can have more than one window.