Excel VBA質問箱 IV

当質問箱は、有志のボランティア精神のおかげで成り立っています。
問題が解決したら、必ずお礼をしましょうね。
本サイトの基本方針をまとめました。こちら をご一読ください。

投稿種別の選択が必要です。ご注意ください。
迷惑投稿防止のため、URLの入力を制限しています。ご了承ください。


72337 / 76738 ←次へ | 前へ→

【8885】Re:ThisWorkbook.Saveで不可解なことが・・・
発言  つん E-MAIL  - 03/11/7(金) 12:25 -

引用なし
パスワード
   Jaka さん、こんにちは〜

>Private Sub Workbook_××のたぐいって、
>XPになってもろくに動かない時があるみたいですよ!

えっ!そうなの?

>御決まりの使用って奴じゃないんですか?
>ってな事になっちゃって、ごめんなさい。

んんんんーーーー「仕様です」MSお得意の奴ですね(^^;


>んで、どっちも上書き保存しちゃっているみたいなんで、こんな風にして見ました。
>
>Private Sub CommandButton1_Click()
>  Dim i As Integer
>  i = MsgBox("yesでファイル、noでエクセルを閉じます", vbYesNo)
>  If i = vbYes Then
>    ThisWorkbook.Close (True)
>  Else
>    ThisWorkbook.Save
>    Application.Quit
>  End If
>End Sub

ありがとうございます。
や、私もそれもちらと考えたのですが、
Workbook_BeforeCloseで、セルの初期化処理をしてるんですよ。
ボタンで終了させても、エクセルの「×」で終了させても通るように。
初期化処理を、サブルーチン化しといて、
ThisWorkbook.Close (True)の前と、Workbook_BeforeCloseの両方で呼び出すようにするしかないかなあ?

ところで

>Private Sub wwCommandButton1_Click()
>  Dim i As Integer
>  i = MsgBox("yesで保存して終了、noで保存しないで終了", vbYesNo)
>  If i = vbNo Then
>    Application.DisplayAlerts = False
>    'ThisWorkbook.Save
>    DoEvents
>    Application.OnTime Now(), "qqqq"
>    ThisWorkbook.Close (False)
>  Else
>    ThisWorkbook.Save
>    DoEvents
>    Application.Quit
>  End If
>End Sub
>
>標準ジュール
>Sub qqqq()
>  Application.Quit
>End Sub

これ、実行してみました。
そしたら、「いいえ」を押すと、何故かもう一度
「マクロを有効にするか、無効にするか?」を聞いてくるダイアログが出ちゃいます。
何ででしょう?
Jakaさんとこでは、そんな現象なかったですか?

あ、うちはWindows98se+Excel2002なんですけど
0 hits

【8874】ThisWorkbook.Saveで不可解なことが・・・ つん 03/11/6(木) 22:53 質問
【8884】Re:ThisWorkbook.Saveで不可解なことが・・・ Jaka 03/11/7(金) 11:05 発言
【8885】Re:ThisWorkbook.Saveで不可解なことが・・・ つん 03/11/7(金) 12:25 発言
【8888】Re:ThisWorkbook.Saveで不可解なことが・・・ Jaka 03/11/7(金) 13:53 回答
【8889】↑ただの発言です。 Jaka 03/11/7(金) 13:55 発言
【8891】Re:ThisWorkbook.Saveで不可解なことが・・・ つん 03/11/7(金) 15:47 発言
【8892】Re:ThisWorkbook.Saveで不可解なことが・・・ Jaka 03/11/7(金) 17:18 発言
【8918】Re:ThisWorkbook.Saveで不可解なことが・・・ つん 03/11/8(土) 15:04 お礼
【9066】Re:ThisWorkbook.Saveで不可解なことが・・・ Jaka 03/11/17(月) 9:20 回答
【9071】Re:ThisWorkbook.Saveで不可解なことが・... つん 03/11/17(月) 16:14 お礼
【9100】試しました♪ つん 03/11/18(火) 16:14 お礼
【9124】上の上へのお返事です。 Jaka 03/11/19(水) 9:16 発言
【9126】Re:上の上へのお返事です。 つん 03/11/19(水) 9:28 発言
【9133】Re:上の上へのお返事です。 Jaka 03/11/19(水) 10:35 回答
【9134】度々ありがとう! つん 03/11/19(水) 11:43 お礼
【9127】追伸 Jaka 03/11/19(水) 9:28 発言
【9129】ごめん・・・ つん 03/11/19(水) 9:41 発言
【9175】Re:ごめん・・・ Jaka 03/11/20(木) 12:09 発言
【9176】Re:ごめん・・・ つん 03/11/20(木) 13:04 お礼

72337 / 76738 ←次へ | 前へ→
ページ:  ┃  記事番号:
2610219
(SS)C-BOARD v3.8 is Free