テキストボックスに値を入れる（４）

質問

テキストボックスに値を入れる（３）で回答をいただいた、終了ボタンなんですが、このときは、２つのファイルを上書き保存して終了させたのですが、「OkWeb_Menu.xls」の方だけ、上書きせずに終了させたいのですが、どうしたらよいでしょうか？
いろいろ試して見ましたが、うまくいきません。よろしくお願いします。

前回の回答

２）終了ボタン～Sheet7に配置～
ここでは、メニュー（終了できる方）を「OkWeb_Menu.xls」
データシートを「OkWeb_Data.xls」とします。（ご自分のファイル名に変えてください）
　　１．タイトルバーの左のアイコンのクリック、
　　２．タイトルバーの右クリック
　　３．タイトルバーの×ボタン、
　　４．メニュー→閉じる、
　　５．ブックの× では閉じれなくする

データシートの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（３）：http://oshiete1.goo.ne.jp/kotaeru.php3?q=85392
　　　　（１）　　http://oshiete1.goo.ne.jp/kotaeru.php3?qid=79173
　　　　（２） 　http://oshiete1.goo.ne.jp/kotaeru.php3?qid=85389

回答No.1

nishi6 · ベストアンサー

以下は、データシートは保存し、メニューは保存しません。

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

お礼

nishi6さん！おひさしぶりです。お元気ですか？ここでは途中で終わってしまいましたが、なんとかやってますよー　いろいろとおしえていただいたことをさらに発展させながらがんばってます！
また、なにかの時に教えてｇｏｏでお会いできるといいです！見かけたときはぜひ宜しくお願いします。

補足

こんばんわ！お返事が遅くなりましてすみません！
現在、とりあえず、ソフトのようなものが完成して、実用化しています。
幾つかの問題点が出てきて、修正しながらですけど・・・

ところで、回答いただいた上記の件ですが・・・

（"OkWeb_Menu.xls")が上書き保存されてしまいます。
また
("OkWeb_Data.xls")のほうは、「保存しますか？」のメッセージが出てしまします。いろいろやってみましたが できませんでした。また宜しくお願いします。

それから、テキストボックスに値を入れる（３）のつづきの方も宜しくお願いします。こちらの窓でいいので・・・・（３）の方は、閉じておきます。
あわせて、宜しくお願いします。