-PR-
解決済み

テキストボックスに値を入れる(4)

  • すぐに回答を!
  • 質問No.96945
  • 閲覧数67
  • ありがとう数1
  • 気になる数0
  • 回答数1
  • コメント数0

お礼率 59% (116/195)

テキストボックスに値を入れる(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
通報する
  • 回答数1
  • 気になる
    質問をブックマークします。
    マイページでまとめて確認できます。

質問者が選んだベストアンサー

  • 回答No.1
レベル13

ベストアンサー率 68% (791/1163)

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

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
補足コメント
rurucom

お礼率 59% (116/195)

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

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

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

それから、テキストボックスに値を入れる(3)のつづきの方も宜しくお願いします。こちらの窓でいいので・・・・(3)の方は、閉じておきます。
あわせて、宜しくお願いします。
投稿日時 - 2001-07-05 20:10:30
お礼コメント
rurucom

お礼率 59% (116/195)

nishi6さん!おひさしぶりです。お元気ですか?ここでは途中で終わってしまいましたが、なんとかやってますよー いろいろとおしえていただいたことをさらに発展させながらがんばってます!
また、なにかの時に教えてgooでお会いできるといいです!見かけたときはぜひ宜しくお願いします。
投稿日時 - 2002-02-07 23:16:30
関連するQ&A
-PR-
-PR-
このQ&Aで解決しましたか?
関連するQ&A
-PR-
-PR-
このやり方知ってる!同じこと困ったことある。経験を教えて!
このQ&Aにはまだコメントがありません。
あなたの思ったこと、知っていることをここにコメントしてみましょう。

その他の関連するQ&A、テーマをキーワードで探す

キーワードでQ&A、テーマを検索する
-PR-
-PR-
-PR-

特集


新大学生・新社会人のパソコンの悩みを解決!

いま みんなが気になるQ&A

関連するQ&A

-PR-

ピックアップ

-PR-
ページ先頭へ