| |
Jaka さん、こんにちは♪
'=１=============================================
>Private Sub Workbook_BeforeClose(Cancel As Boolean)
> Range("A1").Value = "何かの処理"
> DoEvents
> ThisWorkbook.Save
> DoEvents
> ThisWorkbook.Saved = True
>End Sub
'==============================================
'=２=============================================
>Sub hozon()
> Range("A1").Value = "何かの処理"
> ThisWorkbook.Save
>End Sub
>Private Sub Workbook_BeforeClose(Cancel As Boolean)
> If flg = False Then
> hozon
> End If
> ThisWorkbook.Saved = True
>End Sub
'==============================================>
確かに、「１」では、エクセルの「×」ボタンで閉じた場合は、
「ThisWorkbook.Save」
が利いてなくて、「２」でやれば、ＯＫですね。
Workbook_BeforeCloseイベント内で、Saveを書いてもダメで、
サブルーチンにして呼び出せばOKってことか・・・・
へんな仕様（バグ？バグだよねー）ですね。
今回は、前回書いたように、「保存できないようにする」で対応しましたが、
とても勉強になりました。どうもありがとー(^o^)ノ
|
|
つん
- 03/11/18(火) 16:14 -
