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

質問

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

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

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

回答No.2

米沢 栄蔵（@YON56） · ベストアンサー

yon56です。
A = Workbooks.Count
If A = 1 Then
前回答
End If

お礼

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

回答No.1

米沢 栄蔵（@YON56）

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

補足

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