|
そうなると、ちょっとややこしくなりますね・・。
以下のようなマクロでテストしてみたら、概ね目的どおりの動作を
しているようです。
Private Sub Workbook_BeforeClose(Cancel As Boolean)
Dim Ans As Integer
With ThisWorkbook
If .Saved = False Then
Ans = MsgBox("日付を入れて保存しますか" & vbLf & _
"「いいえ」を押すと日付を入れずに保存します" & _
vbLf & "「キャンセル」なら保存しません", 35)
Select Case Ans
Case 2
Application.SendKeys "%n", True
Case 6
With .Worksheets(1).Range("T1")
.Value = Date
Worksheets.FillAcrossSheets .Cells
End With
.Save
Case 7
.Save
End Select
End If
End With
End Sub
これをThisWorkbookモジュールへ入れた後、セルに何かの値を入力して、
保存せずにそのまま閉じるボタンを押して下さい。メッセージが出てきたら
必ず「はい」か「いいえ」のボタンを押して下さい。そうすることによって
日付のあるなしに拘わらず、入れたマクロが保存されます。次回からは
「キャンセル」を押してみるテストも、出来るようになります。
|
|