Excel VBA質問箱 IV

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

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


21964 / 76738 ←次へ | 前へ→

【60160】Re:上書き保存後の処理の件
回答  ひつまぶし  - 09/1/31(土) 8:26 -

引用なし
パスワード
   【60062】のスレッドでも書きましたが、
BeforeCloseイベント内でも、適切な処理を入れておくべきなのでしょう。

Private Sub Workbook_BeforeClose(Cancel As Boolean)
Dim ret As VbMsgBoxResult
  If Not Me.Saved Then
    ret = MsgBox("'" & Me.Name & "' への変更を保存しますか?", _
      vbYesNoCancel + vbExclamation)
    Select Case ret
    Case vbYes
      Call Macro1
      Application.EnableEvents = False
      Me.Save
      Application.EnableEvents = True
    Case vbNo
      Me.Saved = True
    Case vbCancel
      Cancel = True
      Exit Sub
    End Select
  End If
End Sub

ってな感じでしょうか?

0 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 お礼

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