テキストボックスに値を入れる(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で質問しましょう!
関連するカテゴリからQ&Aを探す
おすすめ情報
- ・漫画をレンタルでお得に読める!
- ・人生のプチ美学を教えてください!!
- ・10秒目をつむったら…
- ・あなたの習慣について教えてください!!
- ・牛、豚、鶏、どれか一つ食べられなくなるとしたら?
- ・【大喜利】【投稿~9/18】 おとぎ話『桃太郎』の知られざるエピソード
- ・街中で見かけて「グッときた人」の思い出
- ・「一気に最後まで読んだ」本、教えて下さい!
- ・幼稚園時代「何組」でしたか?
- ・激凹みから立ち直る方法
- ・1つだけ過去を変えられるとしたら?
- ・【あるあるbot連動企画】あるあるbotに投稿したけど採用されなかったあるある募集
- ・【あるあるbot連動企画】フォロワー20万人のアカウントであなたのあるあるを披露してみませんか?
- ・映画のエンドロール観る派?観ない派?
- ・海外旅行から帰ってきたら、まず何を食べる?
- ・誕生日にもらった意外なもの
- ・天使と悪魔選手権
- ・ちょっと先の未来クイズ第2問
- ・【大喜利】【投稿~9/7】 ロボットの住む世界で流行ってる罰ゲームとは?
- ・推しミネラルウォーターはありますか?
- ・都道府県穴埋めゲーム
- ・この人頭いいなと思ったエピソード
- ・準・究極の選択
デイリーランキングこのカテゴリの人気デイリーQ&Aランキング
-
excelのInitializeイベントとAc...
-
教えて下さい
-
Excel・Word リサーチ機能を無...
-
配列数式の解除
-
メッセージボックスのOKボタ...
-
一つのTeratermのマクロで複数...
-
特定のPCだけ動作しないVBAマク...
-
エクセルで特定の列が0表示の場...
-
UserForm1.Showでエラーになり...
-
Excel マクロ VBA プロシー...
-
ExcelのVBA。public変数の値が...
-
TERA TERMを隠す方法
-
エクセルで別のセルにあるふり...
-
メモ帳(テキストデータ)をExc...
-
ExcelVBAの繰り返し処理でwebク...
-
ダブルクリックで貼り付けた画...
-
VBAでfunctionを利用しようとし...
-
ADO 「認証に失敗しました」
-
wordを起動した際に特定のペー...
-
配列でデータが入っている要素...
マンスリーランキングこのカテゴリの人気マンスリーQ&Aランキング
-
excelのInitializeイベントとAc...
-
ACCESSのVBAにてExcelのシ...
-
Excelマクロ 別シートへ連続コ...
-
「IsText」の使い方を教えてく...
-
CSVファイルの読み込みVBA作成...
-
エクセルVBAで名前の決まってい...
-
VBAでシートをまたぐ処理の方法
-
【VBA】3個のワークブックから...
-
VBAで繰り返し処理の速度を...
-
ほんの少し変更しただけで、マ...
-
Excel VBA 指定シートの取込
-
エクセル2010の内容を次のシー...
-
Excelのセルのコピー マクロ
-
エクセル2007 マクロについて...
-
VBA処理でこんな条件処理ってで...
-
複数シート内容を1 シートに纏...
-
EXCELで1シートのデータを複数...
-
ExcelVBAを使っての振り分け処理
-
Excel・Word リサーチ機能を無...
-
特定のPCだけ動作しないVBAマク...
おすすめ情報