| |
Jakaさん、さっそく回答ありがとうございます。
しかし、一つ問題が。。。
ファイルに何らかの修正･変更を行なって、
×で消そうとすると、『･･･保存しますか？』が出てきますよね？
そこで『はい』を押すとメッセージボックスTESTが表示されます。
このメッセージボックスで『いいえ』を選択すると、上書き保存されてしまいます。
これを回避する方法がありますでしょうか？
もしくは、×で消して保存する場合は、
このメッセージボックス自体を表示させないようにするとか･･･？
こんなひねくれた事をするなって言っちゃえば、それまでですけど。。。
すみませんが、教えてください。
よろしくお願いします。
>>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
> Cancel = True
>> End Select
>> End If
>>End Sub
|
|
kouka
- 09/1/30(金) 17:03 -
