VBAにて、数式バーとステータスバーが復帰しない

質問

お世話になります。

(Excel2000)
非表示にしておいた数式バーとステータスバーを、作成した
VBAのアプリが終了する際に、表示にしてから終了させて
いるつもりなのですが、次にExcelを開いたときにも、表示
されません。

もちろん、手動でオプションからチェックボックスにチェックを
入れて表示させることは出来るのですが、アプリが終了する際に、
表示に切り替えてから終了…という流れができません。

この対策方法を教えて下さい。

尚、処理で行っていることは、下記の流れになります。

Application.DisplayFormulaBar = True
Application.DisplayStatusBar = True
Application.Quit

以上、よろしくお願いいたします。

回答No.1

onlyrom

＞Application.DisplayFormulaBar = True
＞Application.DisplayStatusBar = True
＞Application.Quit

このコードはどこに書いてありますか？
また、ブックはコードでCloseしているのか、手動で閉じる（×）ボタンからでしょうか。

そこら辺りが問題になりますの補足説明は必要です。
またそこらのコードを端折らずにアップしましょう。

因みに下記のようにすればOKです。

'----- 標準モジュール　------------

Sub BookClose()
　Application.DisplayFormulaBar = True
　Application.DisplayStatusBar = True
　Application.Quit
　ThisWorkbook.Close True
End Sub

'------　ThisWorkBook モジュール ------

Private Sub Workbook_BeforeClose(Cancel As Boolean)
　Application.DisplayFormulaBar = True
　Application.DisplayStatusBar = True
End Sub

'--------------------------------------------

上記は数式バー、ステータスバー回復のみです。