| |
こんばんは。
いつもお世話になっております。
久々に質問させて頂きます。（なんか緊張^^;）
ThisWorkbook.Saveに関して、不可解（だと思う）なことに直面しております。
えとですね・・・・
シート上にコマンドボタンを１つ配置して、
Private Sub CommandButton1_Click()
Dim i As Integer
i = MsgBox("yesでファイル、noでエクセルを閉じます", vbYesNo)
If i = vbYes Then
ThisWorkbook.Close
Else
Application.Quit
End If
End Sub
というように、ブックを閉じるか、エクセルを終了させるか選択できるようにして、終了処理します。
そして、終了時に
Private Sub Workbook_BeforeClose(Cancel As Boolean)
ThisWorkbook.Save
End Sub
として、ブックの保存（更新）処理をしています。
しかし、これを実行すると、
「エクセルを終了」を選ぶと、ちゃんとブックを保存して終了出来るのですが、
「ブックを閉じる」にすると、確かに「BeforeClose」を通っているのですが、
保存されずに、最後にイルカちゃんに「保存する？」って聞かれてしまいます。
「いいえ」にすると、保存されずに終わってしまいます。
これって何ででしょう？
ステップ実行すると、確かに「ThisWorkbook.Save」を通っているけど、
なんかあっさり通り過ぎちゃう感じです。
よろしくお願いします。
|
|
つん
- 03/11/6(木) 22:53 -
