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

困り果てています
VISTAとXPでマクロで
EXECLの変更を保存せずにブック強制的に閉じる方法を
教えていただきたいのですがテストをしてみたマクロは
下記のようなものですがですがうまく動作しません
シートの中にスピンボタンがありセルの中の数字を
変えると変更を保存しますか？　となります。

Sub Auto_Close()
ThisWorkbook.Saved = True
End Sub

Sub 例1434()
　　ActiveWorkbook.Saved = True
ActiveWorkbook.Close
End Sub

Sub 13()
ThisWorkbook.Close SaveChanges:=False
End Sub

Sub CloseBook()
Application.DisplayAlerts = False
ActiveWorkbook.Close
Application.DisplayAlerts = True
End Sub

Sub CloseBook2()
ActiveWorkbook.Close savechanges:=False
End Sub

いずれもだめでした　良い方法をお教えください。

No.3 回答者： ookami1969 回答日時： 2009/03/16 10:37

僕の読んでいる本「かんプロVBA(2003)」では

Sub ブックを閉じる()
Workbooks("ブック名.xls").Close False
End Sub

か

Sub ブックを閉じる()
Workbooks("ブック名.xls").Close SaveChanges:=True
End Sub

でOKのようです。
（すみません。本を写しただけで動作の確認はしておりません）

No.2 回答者： xls88 回答日時： 2009/03/16 09:02

当方Excel2007では、Sub 13()、Sub CloseBook2()、どちらでもアラートが表示されずにスムースにCloseします。

フォーム、コントロールツールボックスの両方のスピンボタンで確認しています。
原因は、違うところにあるような気がします。

この回答へのお礼

回答有難うございました
テストまでしていただきお礼申し上げます。
現在私も原因調査は継続していますが
分かっていません　分かりましたら
何らかの形でこのぺーじに投稿したいと
思っています。
有難うございました。

お礼日時：2009/03/16 22:38

No.1 回答者： xls88 回答日時： 2009/03/16 07:20

Sub 13()とかSub CloseBook2()は良さげですが

なにがいけなかったのでしょうか？
具体的に、希望の動作とどう違うのか教えてください。

ワークブックを閉じる
http://excelvba.pc-users.net/fol4/4_3.html

この回答への補足

早速の回答有難うございます
少し長くなりますがシートのなかセルの値を書き換えたとき
には普通に希望の動作をするのですがスピンボタンを動作させて
セルの中の値を書き換えたときは質問に記したように
"ファイル名" へ変更を保存しますか？　となります
このメッセージを出さずにブックを強制的に閉じる方法を
お教え願えればと思っています。

補足日時：2009/03/16 07:34

この回答へのお礼

解決方法が見つかりそうです
お礼が遅くなりもし訳ありませんでした
これに懲りずまたのご指導よろしくお願いたします。

お礼日時：2009/03/20 09:12