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

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

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

か

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

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

回答No.2

xls88

当方Excel2007では、Sub 13()、Sub CloseBook2()、どちらでもアラートが表示されずにスムースにCloseします。
フォーム、コントロールツールボックスの両方のスピンボタンで確認しています。
原因は、違うところにあるような気がします。

お礼

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

回答No.1

xls88

Sub 13()とかSub CloseBook2()は良さげですが
なにがいけなかったのでしょうか？
具体的に、希望の動作とどう違うのか教えてください。

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

お礼

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

補足

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