Excel VBA質問箱 IV

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

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


21966 / 76734 ←次へ | 前へ→

【60154】上書き保存後の処理の件
質問  kouka  - 09/1/30(金) 15:38 -

引用なし
パスワード
   お世話になってます。
koukaです。

上書き保存をした際に、メッセージボックスを表示させ、
vbYesNoで処理を変化させようと思い、
下記のコードを記述しました。

Private Sub Workbook_BeforeSave(ByVal SaveAsUI As Boolean, Cancel As Boolean)
  If SaveAsUI = False Then
    Select Case MsgBox("TEST", vbYesNo)
      Case vbYes
        Call Macro1
      Case vbNo
        Exit Sub
    End Select
  End If
End Sub

しかし、『No』を選んでも上書き保存されてします。
『No』を選んだら上書き保存しないようにはするには、
どうすればよろしいのでしょうか?
記述が間違っているのであれば、教えてください。
すみませんが、よろしくお願いします。
3 hits

【60154】上書き保存後の処理の件 kouka 09/1/30(金) 15:38 質問
【60155】Re:上書き保存後の処理の件 Jaka 09/1/30(金) 15:42 発言
【60156】Re:上書き保存後の処理の件 kouka 09/1/30(金) 17:03 発言
【60157】Re:上書き保存後の処理の件 Jaka 09/1/30(金) 17:12 発言
【60160】Re:上書き保存後の処理の件 ひつまぶし 09/1/31(土) 8:26 回答
【60182】Re:上書き保存後の処理の件 kouka 09/2/2(月) 15:54 お礼
【60184】Re:上書き保存後の処理の件 ひつまぶし 09/2/2(月) 19:21 発言
【60324】Re:上書き保存後の処理の件 kouka 09/2/10(火) 10:01 お礼

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