エクセルで保存しますか？のメッセージを表示しない

皆さんこんにちは　教えてください、読み取り専用でエクセルファイルを開いて閉じるボタンを使って閉じるときに「保存しますか？」のメッセージを出さないで閉じたいのですが、Workbook_BeforeClose イベントに
Application.DisplayAlerts = False
としてもメッセージは表示されます

読み取り専用で開いているにもかかわらず
Application.DisplayAlerts = False
ThisWorkbook.Save
Application.DisplayAlerts = True
とすれば　メッセージが表示されずに閉じますが　保存しますか？→いいえ　として閉じるよりも時間がかかります　読み取り専用で開いているのに保存されるのでしょうか？同じファイルを再び開くと変更した部分は保存されていません　しかし、タイムスタンプは閉じた時間に更新されています　これは普通なのでしょうか？
この方法以外で保存しますか？のメッセージを出さないで保存しないで閉じる方法はないでしょうか？よろしく御願いします

No.2 ベストアンサー 回答者： taocat 回答日時： 2007/02/10 12:39

こんにちは。

閉じるボタン（×）で閉じてるということですので

-------------------------------------------------------
Private Sub Workbook_BeforeClose(Cancel As Boolean)

　　ThisWorkbook.Saved = True

End Sub
-------------------------------------------------------

で、どうでしょうか。
以上です。
　

この回答への補足

こんにちは　うまくメッセージが表示されないで閉じることが出来ましたありがとうございます
ThisWorkBookSaved=True　は　実際は保存をしていないのにエクセル本体？に保存しましたよと知らせてるって感じで理解すれば良いですか？

補足日時：2007/02/12 10:43

No.3 回答者： taocat 回答日時： 2007/02/12 11:53

再度の登場です。

>ThisWorkBookSaved=True　は　実際は保存をしていないのにエクセル本体？に保存しましたよと知らせてるって感じで理解すれば良いですか？

そういう理解でいいと思います。
詳しくはSavedプロパティのヘルプを覗いてみて下さい。
以上です。

この回答へのお礼

了解しました　ありがとうございました

お礼日時：2007/02/12 12:17

No.1 回答者： nicotinism 回答日時： 2007/02/10 12:22

ThisWorkbook.Close SaveChanges:=False

だとどうですか？

この回答へのお礼

こんにちは　回答ありがとうございます
お礼が遅くなり済みませんでした
Workbook_BeforeCloseイベントに
ThisWorkbook.Close SaveChanges:=False
とするとExcel本体の閉じるボタンをクリックしてもBookだけ閉じて
目的のBookだけしか開いていない場合でもExcelが閉じないで残ってしまいました
記述する場所が良くなかったでしょうか
ともあれ、解決しましたので　ありがとうございました。

お礼日時：2007/02/12 10:47