EXECLの変更を保存せずブック強制的に閉じる

お世話になります
VISTAとXPのマクロで下記の様な事が出来るでしょうか？

条件(1)
AAA.xls　と　BBB.xls 2つファイルを開き
BBB.xls　の　ファイル作業後にこのファイル変更を保存せずに
ブック強制的に閉じる　このときAAA.xls　は閉じない

条件(2)
BBB.xls　の　ファイル作業後にこのファイル変更を保存せずに
ブック強制的に閉じる　このときアプリケーションも終了したい
　（このときは他にEXECLファイルは開いていない）
よろしくお願いいたします。

No.2 ベストアンサー 回答者： YON56 回答日時： 2009/03/19 16:05

yon56です。

A = Workbooks.Count
If A = 1 Then
前回答
End If

この回答へのお礼

ご回答有難うございました
希望どうりのことが出来るようになりました。
本当にありがとうございました。

お礼日時：2009/03/19 22:04

No.1 回答者： YON56 回答日時： 2009/03/19 09:34

○BBB.xlsをファイル変更保存せずにブック閉じる

　→WorkBooks("BBB.xls").Close False
○BBB.xlsをファイル変更保存せずにブック閉じる時にアプリケーションも終了する
　→Application.DisplayAlerts = False
　　Application.Quit
　　

この回答への補足

早速の回答有難うございます
もう一点ありこのときどうしたら良いのか合わせて
お教え願えれば大変有難いのですが・・・。
条件(3)
BBB.xls　の　ファイル作業後にこのファイル変更を保存せずに
ブック強制的に閉じる　このときは他にEXECLファイルが開いているか否かを判断して
開いているファイルがないときはメッセージを出さずにアプリケーションも終了したい。
質問の仕方がまずいためお手数をおかけしますが再度宜しくお願いいたします。

補足日時：2009/03/19 13:03