テキストボックスに値を入れる(3)で回答をいただいた、終了ボタンなんですが、このときは、2つのファイルを上書き保存して終了させたのですが、「OkWeb_Menu.xls」の方だけ、上書きせずに終了させたいのですが、どうしたらよいでしょうか?
いろいろ試して見ましたが、うまくいきません。よろしくお願いします。
前回の回答
2)終了ボタン~Sheet7に配置~
ここでは、メニュー(終了できる方)を「OkWeb_Menu.xls」
データシートを「OkWeb_Data.xls」とします。(ご自分のファイル名に変えてください)
1.タイトルバーの左のアイコンのクリック、
2.タイトルバーの右クリック
3.タイトルバーの×ボタン、
4.メニュー→閉じる、
5.ブックの× では閉じれなくする
データシートのThisWorkBookのシートモジュールに貼り付けます。
Private Sub Workbook_BeforeClose(Cancel As Boolean)
If Workbooks("OkWeb_Menu.xls").saveOk = False Then
MsgBox "メニューから終了させてください!", vbOKOnly
Cancel = True
Else
ActiveWorkbook.Save
End If
End Sub
***省略***
Workbooks("OkWeb_Menu.xls").saveOk = True
Workbooks("OkWeb_Data.xls").Close saveChanges:=True
ActiveWorkbook.Save
Application.Quit
End Sub
前回のURL(3):http://oshiete1.goo.ne.jp/kotaeru.php3?q=85392
(1) http://oshiete1.goo.ne.jp/kotaeru.php3?qid=79173
(2) http://oshiete1.goo.ne.jp/kotaeru.php3?qid=85389
No.1ベストアンサー
- 回答日時:
以下は、データシートは保存し、メニューは保存しません。
Private Sub cmdSyuryo_Click()
Dim myMsg As String
myMsg = "データシートを保存して終了します。"
If MsgBox(myMsg, vbOKCancel, "確認") = vbCancel Then
Exit Sub
End If
Workbooks("OkWeb_Menu.xls").saveOk = True
Workbooks("OkWeb_Data.xls").Close saveChanges:=True
ThisWorkbook.Saved = True
Application.Quit
End Sub
この回答への補足
こんばんわ!お返事が遅くなりましてすみません!
現在、とりあえず、ソフトのようなものが完成して、実用化しています。
幾つかの問題点が出てきて、修正しながらですけど・・・
ところで、回答いただいた上記の件ですが・・・
("OkWeb_Menu.xls")が上書き保存されてしまいます。
また
("OkWeb_Data.xls")のほうは、「保存しますか?」のメッセージが出てしまします。いろいろやってみましたが できませんでした。また宜しくお願いします。
それから、テキストボックスに値を入れる(3)のつづきの方も宜しくお願いします。こちらの窓でいいので・・・・(3)の方は、閉じておきます。
あわせて、宜しくお願いします。
nishi6さん!おひさしぶりです。お元気ですか?ここでは途中で終わってしまいましたが、なんとかやってますよー いろいろとおしえていただいたことをさらに発展させながらがんばってます!
また、なにかの時に教えてgooでお会いできるといいです!見かけたときはぜひ宜しくお願いします。
お探しのQ&Aが見つからない時は、教えて!gooで質問しましょう!
似たような質問が見つかりました
- Visual Basic(VBA) マクロVBA 1シートをまとめる 閉じ方 初心者 SOS! 1 2022/06/17 14:54
- Visual Basic(VBA) VBAのユーザーフォームのテキストボックスに入力制限をしたい 6 2022/11/15 08:28
- Excel(エクセル) フォルダ内の全ブックのシート名を変更したい 7 2022/09/22 21:34
- Visual Basic(VBA) 複数のcsvファイルをExcelに一括変換したい 2 2023/03/03 12:44
- Visual Basic(VBA) 【Excel VBA】自動メール送信の機能追加 5 2022/09/29 12:53
- Visual Basic(VBA) 【変更】ファイルを閉じてダイアログで保存した時、更新したシートだけの処理の実行をする 5 2022/03/26 18:31
- Visual Basic(VBA) 【前回の続き続きです、ご教示ください】VBAの記述方法がわかりません。 2 2022/08/24 20:49
- Visual Basic(VBA) 【前回の続きです、ご教示ください】VBAの記述方法がわかりません。 2 2022/08/16 16:44
- Visual Basic(VBA) 【追加】ファイルを閉じてダイアログで保存した時だけ処理の実行をする 3 2022/03/23 15:43
- Visual Basic(VBA) ファイル全てを .xlsm に変更したところ、プログラムが途中で落ちてしまっています 17 2022/12/07 12:03
関連するカテゴリからQ&Aを探す
おすすめ情報
デイリーランキングこのカテゴリの人気デイリーQ&Aランキング
-
excelのInitializeイベントとAc...
-
ACCESSのVBAにてExcelのシ...
-
エクセル関数を教えてください
-
エクセルで特定の列が0表示の場...
-
教えて下さい
-
Excel マクロ VBA プロシー...
-
Excel・Word リサーチ機能を無...
-
UserForm1.Showでエラーになり...
-
ExcelのVBA。public変数の値が...
-
特定のPCだけ動作しないVBAマク...
-
メッセージボックスのOKボタ...
-
マクロで"#N/A"のエラー行を削...
-
一つのTeratermのマクロで複数...
-
エクセルで別のセルにあるふり...
-
サクラエディタ・マクロ → VSCo...
-
ExcelVBAでPDFを閉じるソース
-
配列数式の解除
-
Excel VBAからAccessマクロを実...
-
配列でデータが入っている要素...
-
実行時エラー 438 の解決策をお...
マンスリーランキングこのカテゴリの人気マンスリーQ&Aランキング
-
excelのInitializeイベントとAc...
-
ACCESSのVBAにてExcelのシ...
-
Excelマクロ 別シートへ連続コ...
-
エクセルVBAで名前の決まってい...
-
VBAで繰り返し処理の速度を...
-
excel
-
「シートを削除しますか」のメ...
-
VBA処理でこんな条件処理ってで...
-
VBAでシートをまたぐ処理の方法
-
エクセルVBAでブックの分割
-
オートシェイプの不具合について
-
エクセル2010の内容を次のシー...
-
同一ブック内・別シートの内容...
-
Excel・Word リサーチ機能を無...
-
特定のPCだけ動作しないVBAマク...
-
エクセルで特定の列が0表示の場...
-
UserForm1.Showでエラーになり...
-
Excel マクロ VBA プロシー...
-
配列数式の解除
-
メッセージボックスのOKボタ...
おすすめ情報