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?

 

[LazyBug]

Is it possible to have the full path displayed without having to save every workbook as .xlsm (i.e. macro-enabled workbook)?

Yes.

ActiveWindow.Caption = ActiveWorkbook.FullName

 

[Special K]

Yes.

ActiveWindow.Caption = ActiveWorkbook.FullName

How do I have this code automatically execute every time Excel opens (i.e. not be associated with any particular workbook)?

 

[LazyBug]

How do I have this code automatically execute every time Excel opens (i.e. not be associated with any particular workbook)?

Paste to your ThisWorkbook module of Personal.xlsb:

Option Explicit

Private WithEvents xlsApp  As Application

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

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

 

[Special K]

That works, thanks.

 

[LazyBug]

That works, thanks.

Glad to help you, thank you for the feedback.

 

[Special K]

Paste to your ThisWorkbook module of Personal.xlsb:

Option Explicit

Private WithEvents xlsApp  As Application

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

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

Should this code also work with Excel 2013? I pasted it into the ThisWorkbook module of personal.xlsb on a different computer running Excel 2013, but then when I open Excel on that computer, I get the following error:

Run-time error '91':

Object variable or With block variable not set

The debugger highlights the ActiveWindow.Caption = Wb.FullName line.

 

[LazyBug]

I can't access Excel 2013 now, but try add Set to this string:
Set ActiveWindow.Caption = Wb.FullName

 

[Special K]

I can't access Excel 2013 now, but try add Set to this string:
Set ActiveWindow.Caption = Wb.FullName

It gives the same error. Do Excel 2010 and 2013 not follow the same VBA syntax rules?

 

[Jaafar Tribak]

I would use xlsApp_WorkbookActivate instead of xlsApp_WorkbookOpen