Excel VBA 終了時の処理

質問

Excelを終了時にフルスクリーン（リボンなどが非表示の状態）から解除するコードを書きたいのです。

Private Sub Workbook_BeforeClose(Cancel As Boolean)

Application.DisplayFullScreen = False 'フルスクリーン化解除

End Sub

というコードを書きましたが、Excel自体を×ボタンでクローズした場合は正常に動きますが、
Excelを起動したままPCをシャットダウンすると解除されません。
次回Excelファイルを開くときにはフルスクリーンで出てきてしまいます。
シャットダウン時には、Excelも勝手にクローズされ、その際にマクロが動くものだと思っていましたが...

これを回避するコードなどありましたらご教授ください。

環境：windows7　Excel2010　(2013でも動くようにしたいです）

回答No.3

mt2008 · ベストアンサー

ANo.2です。
考えすぎました。
個人用マクロブック（Personal.xlsb）に以下のマクロを仕込んでおけば、たとえ最大化のまま終了されても起動時に標準状態になります。
これで十分ではないでしょうか。

Sub Auto_Open()
　　Application.WindowState = xlNormal
End Sub

回答No.2

mt2008

PCシャットダウン時は終了イベントは発生しなかったように思えます。
グループ・ポリシーを使ってみては？

［スタート］－［ファイル名を指定して実行］で“gpedit.msc”と入力して起動するグループポリシーオブジェクトエディタで、
[コンピュータの構成]－[Windowsの設定]－[スクリプト（スタートアップ/シャットダウン）]－[シャットダウン]
と、展開した先でPCシャットダウン時に起動させたいバッチファイルやexeを登録できます。

ここで、フルスクリーン解除して終了するExcelマクロをシャットダウン時に起動するように登録しては如何でしょう。

回答No.1

misatoanna

標準モジュールの Auto_Open か ワークブックモジュールの Workbook_Open に
Application.DisplayFullScreen = False
または
Application.WindowState = xlNormal
を記述されたらいかがでしょうか。

補足

すいません、言葉が足りなかったです。

今回作成しているマクロ入りのExcelファイルは

(1)ファイルを開くと同時にフルスクリーンになる
(2)ファイルを閉じるとフルスクリーン解除して終了

というコードが書いてあります。

これは、別のファイルを開いたときにもExcelがフルスクリーンモードにならないようにしたいからですが、
通常通り閉じた場合は成功しますけども、マクロ入りファイルを開いたままPCをシャットダウンすると、
別のファイルでもフルスクリーンの状態で立ち上がります。

別のファイルを開いたときにも、Excelがフルスクリーンのモードで立ち上がってしまうことを防ぎたいのです。