エクセル保存終了時間が長い為の問題

質問

お世話になっています。
ExcelVBAで作成したファイルを職場で多数の人に使用してもらっています。
開発の都度、ファイルサイズが増えて1.5Ｍバイト近くになり、
保存終了すると１秒以上かかる様になりました。
職場の人から見ると、この間は砂時計が表示され、画面のフォーム部分が真っ白になったりするので、この終了中にＸボタンを押して二重に終了処理操作されてしまう事があります。
そうするとＨＤにスクラップファイルが出来て、タイミングによってはExellファイルが壊れる（０バイトになる）事もあります。

終了処理中の別の終了処理要求を受け付けない等の対策がありましたら、教えて頂きたくよろしくお願いします。

回答No.1

nda23 · ベストアンサー

Application.Visible = False
これで、Excel自体が見えなくなります。（つまり、操作不可能）
保存が済んだらVisibleプロパティをTrueにします。
もし、Excel2003等で、Excel本体のウィンドウハンドルが入手できれば
GetWindowLong、SetWindowLongでウィンドウをDISABLEにすることも
できます。（DISABLE中は可視状態だが、操作を受け付けない）

お礼

ありがとうございます。
DISABLEに出来れば良いのですが、ウィンドウハンドルの知識はありません。
Visibleプロパティを色々試行しました。
作成したExcelVBAは、親Bookが複数の子BookをOpenする形をしています。
Visible=Falseにすると、開いている全てのBookが見えなくなってしまう為、各Bookを次の様にしました。
Private Sub Workbook_Deactivate()
　　UserForm1Menu.Hide ''←既存処理です
　　If (Workbooks.Count = 1) Then
　　ActiveWorkbook.Application.Visible = False
　　End If
End Sub
これで上手く動作しました。
難点は砂時計が表示されなくなったので、保存して終了した事を目視できないと云う事です。
次の段階では、せめて親Bookだけでも、変更有無に関わらず保存終了にしようかと色々試してみようと思っています。

回答No.2

nda23

DISABLEの方法
Declare Function SetWindowLongA& Lib "user32" _
　　(ByVal H&, ByVal S&, ByVal L&)
Declare Function GetWindowLongA& Lib "user32" _
　　(ByVal H&, ByVal S&)
Const GWL_STYLE = -16
Const WS_DISABLED = &H8000000
Sub 無効化() 'DISABLEにする
Dim H&, S&
H = Application.hwnd
S = GetWindowLongA(H, GWL_STYLE)
S = S Or WS_DISABLED
SetWindowLongA H, GWL_STYLE, S
End Sub
Sub 有効化() 'ENABLEにする
Dim H&, S&
H = Application.hwnd
S = GetWindowLongA(H, GWL_STYLE)
S = S And (Not WS_DISABLED)
SetWindowLongA H, GWL_STYLE, S
End Sub

お礼

ありがとうございます。
Workbook_Activate()において有効化()
Workbook_Deactivate()において無効化()
を試みました。
（他の箇所での挿入タイミングはわかりませんので）

Excel本体を終了する分には良いのですが、Bookを終了させると、残ったExeclに対して何も操作出来ないと云う問題が生じました。
故に、当面はApplication.Visibleの方法で進めたいと思います。

保存終了時のWorkbook_Deactivate()ですが、Excel本体終了時は直ぐにイベントが発生しますが、Bookのみの終了時は、長い時間保存処理を行なってから最後の方でイベントが発生する様です。

Disable/Enableのハンドラは別の部分で応用したいと思います。
ただしプログラムの意味は大雑把しか分かりませんので、ハンドラのDLLを入手して、実行時にリンクする形式に持っていきたいと思います。

10年以上前にＣプログラマーを引退しました。もうDLLを作る意欲と体力はありませんので、フリーソフトをＶＢにくっ付けて動かせれば良いかなあと思っています。