| 
    
     |  | Jakaさん、ひつまぶしさん、回答ありがとうございます。 やはり、Closeイベントを面倒くさがらずに書かなきゃダメですね。。。
 
 そこで一つだけ質問!
 >【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
 今まで使った事がなくって・・・。
 差し支えなかったら、教えてください。
 よろしくお願いします。
 
 
 |  |