コマンドボタンで「終了ボタン」を作りたい！

こんにちは。OSはWindowsNT、Excel97です。
PC初心者さんが使うエクセルの見積データを作成しており、より簡単に操作して頂くためにコマンドボタンで操作を簡略化したいと思っています。
そこで質問なのですが、ファイルを閉じようとする時、よく右隅の×ボタンを押し、「保存しますか？はい、いいえ、キャンセル」という画面がでます。私の作っているデータでは上書されると困るので保存をして欲しくないのですが、その辺が使い手の方には分かり難いようで、よく上書されてしまいます。読み取り専用にするとか保護設定するとか方法はあるとは思いますが、データ作成上それが出来ません。出来れば、コマンドボタンで「終了ボタン」を作り、保存せずに終了できるようにしたいのです。こういう事って可能でしょうか？
皆様、宜しくお願いします。

No.5 ベストアンサー 回答者： tamagawa49 回答日時： 2001/11/17 04:39

もう皆さんが既に回答されてますが、最初の質問に対しては、ブックを閉じるだけ（Excelは終了しない）ならば

　　Sub 保存()
　　　　ActiveWorkbook.Close False
　　End Sub
という書き方もあります。FalseをTrueに替えると、必ずブックを保存して終了します。
また、Excel（アプリケーション）ごと閉じるならば
　　Sub 保存()
　　　　Application.DisplayAlerts = False
　　　　Application.Quit
　　End Sub
でどうでしょうか。

また、フォントのサイズについては、ユーザーフォームを作ってボタンを配置しているのならば、既に回答されている通りですが、もしシートに直接ボタンを貼り付けているのでしたら、ボタン右クリック→テキストの編集という方法もあります。
　

この回答へのお礼

ありがとうございました。
早速試してみます。

お礼日時：2001/11/17 12:37

No.4 回答者： kielle_goo 回答日時： 2001/11/16 22:46

コマンドボタンのフォントサイズは

１．ボタンを右クリック－＞プロパティを選択
２．Ｆｏｎｔの欄をクリックすると右に点が３つのアイコンが表示されるので
　　それをクリック
３．コマンドボタンのフォントの種類やサイズが選択できる画面が
　　表示されますので、そこで変更できます。

この回答へのお礼

ありがとうございました。
早速試してみます。

お礼日時：2001/11/17 12:37

No.3 回答者： madman 回答日時： 2001/11/16 18:40

ボタンを右クリックし、プロパティを表示してください。

そのプロパティにＦＯＮＴの項目があります。これを選択すると、フォントが変更できるはずです。

この回答へのお礼

ありがとうございました。
早速試してみます。

お礼日時：2001/11/17 12:36

No.2 回答者： kielle_goo 回答日時： 2001/11/16 15:26

はじめまして。

このような感じでいかがでしょう？
（コマンドボタン右クリック→「コードの表示」で作成しています）

Private Sub CommandButton1_Click()
　　 Application.DisplayAlerts = False
　　 Application.Caption = Empty
　　 Workbooks.Close
　　 Application.DisplayFullScreen = False
　　 MenuBars(xlWorksheet).Reset
　　 Application.Quit
End Sub

この回答への補足

ありがとうございました。
早速試してみます。
ところで新たに質問なのですが、コマンドボタンのフォントサイズはどうやって変更したら良いのでしょうか？
宜しくお願いします。

補足日時：2001/11/16 15:54

No.1 回答者： hirono_ta 回答日時： 2001/11/16 15:10

Sub Auto_Close()

Application.DisplayAlerts = False '閉じる際に確認メッセージを出さない
ActiveWorkbook.Close '現在開いているブックを閉じる
End Sub

これで駄目でしょうか？

この回答への補足

ありがとうございました。
早速試してみます。
ところで新たに質問なのですが、コマンドボタンのフォントサイズはどうやって変更したら良いのでしょうか？
宜しくお願いします。

補足日時：2001/11/16 15:52