Excel2013는 상태 표시 줄에 쓸 수 없습니다?

Question

나는 그래서 난에서 ThisWorkbook에 다음 코드를 puted 한 문서 엑셀의 개막식에서, 엑셀 2013의 상태 표시 줄에 쓰고 싶은 :

Option Explicit 
Private WithEvents app As Excel.Application 

Private Sub app_WorkbookOpen(ByVal Wb As Workbook) 
    app.DisplayStatusBar = True 
    If UCase$(Wb.Path) = "C:\GED\TEMP" Then 
     app.StatusBar = "ok" 
    Else 
     app.StatusBar = "ko" 
    EndIF 
End Sub 

Private Sub Workbook_Open() 
Set app = Application 
End Sub 

하지만 난 _Application의 방법의 상태 표시 줄에 항상 오류가 있습니다. 그것은 항상 잘못된 생각을하거나 도움을 주시기 바랍니다. 모두 "_"

Private Sub Workbook_Open() 
Dim wbPath,capPath 

Application.DisplayStatusBar = True 
wbPath = ActiveWorkbook.Path   'ThisWorkbook.Path 
capPath = "C:\GED\TEMP" 

    If UCase$(wbPath) = capPath Then 
    Application.StatusBar = "Ok." 
    Else 
    Application.StatusBar = "ko." 
    End If 

End If 

Answer 1

이 시도

Option Explicit 

Private WithEvents app As Excel.Application 

Private Sub app_WorkbookOpen(ByVal Wb As Workbook) 
with app 
    .DisplayStatusBar = True 
    If UCase(Wb.Path) = "C:\GED\TEMP" Then 
     .StatusBar = "ok" 
    Else 
     .StatusBar = "ko" 
    EndIF 
end with 
End Sub 

Private Sub Workbook_Open() 
Set app = Application 
End Sub 

Answer 2

app_Workbook_Open에, 마음을 하위 이름을 변경 !! :

Answer 3

왜 개인 통합 문서에 매크로를 넣지 않습니까?