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

質問

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

回答No.5

tamagawa49 · ベストアンサー

もう皆さんが既に回答されてますが、最初の質問に対しては、ブックを閉じるだけ（Excelは終了しない）ならば
　　Sub 保存()
　　　　ActiveWorkbook.Close False
　　End Sub
という書き方もあります。FalseをTrueに替えると、必ずブックを保存して終了します。
また、Excel（アプリケーション）ごと閉じるならば
　　Sub 保存()
　　　　Application.DisplayAlerts = False
　　　　Application.Quit
　　End Sub
でどうでしょうか。

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

お礼

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

回答No.4

kielle_goo

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

お礼

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

回答No.3

madman

ボタンを右クリックし、プロパティを表示してください。
そのプロパティにＦＯＮＴの項目があります。これを選択すると、フォントが変更できるはずです。

お礼

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

回答No.2

kielle_goo

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

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

補足

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

回答No.1

hirono_ta

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

これで駄目でしょうか？

補足

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