Full path in title bar

[ntoze]

This seems to me a good way to do it.

In a new workbook, create a class named AppEvents and put the following
code in it:

Option Explicit

Public WithEvents App As Application

Private Sub App_WorkbookOpen(ByVal Wb As Workbook)
showFullName Wb
End Sub

Private Sub App_WorkbookBeforeSave(ByVal Wb As Workbook,
ByVal SaveAsUI As Boolean, Cancel As Boolean)
Static inEvent As Boolean

If SaveAsUI Then
If inEvent Then
Exit Sub
End If
inEvent = True

Application.Dialogs(xlDialogSaveAs).Show
showFullName ActiveWorkbook

Cancel = True
inEvent = False
End If
End Sub

Private Sub showFullName(Wb As Workbook)
Dim caption As String
On Error Resume Next

caption = Wb.FullName
' There doesn't seem to be an event for toggling read-only,
' so I think it is better to not display this rather
' than deceive.
' If Wb.ReadOnly Then
' caption = caption & " [Read-Only]"
' End If

Wb.Windows(1).caption = caption
End Sub


Then add a module and put this in:

Dim x As New AppEvents

Public Sub Autpen()
Set x.App = Application
End Sub


Then compile and save the workbook as an xla.

Then include it in Tools->Add Ins.