|
▼ネコ さん:
こんばんは。
>皆さんに教えていただいたコードも試してみたのですけれども、
>シートのセルに対しての変更では出なくなったのですが、
>セルに置いてあるTextBoxに変更をかけると、確認メッセージが
>出てしまいます。
>バージョンの問題なのでしょうか?
>
>WindowsXP
>EXCEL2000
前回の私の投稿は
Win98&Excel2000(SP-3)
Win98&Excel2000(SR-1)
で確認しました。
再度の確認をお願いできますか?
何の確認かと言うと現在のところ私とネコ さんの環境の違いは
Windowsの違いに見えますが、これが本当にこれだけの違いかの確認です。
私が確認した手順は、
1. 新規ブックの任意のシートに
「コントロールツールボックス」のテキストボックス(Textbox1)を貼付けます。
2. Thisworkbookのモジュールに前回投稿のコード
'============================================
Private Sub Workbook_BeforeClose(Cancel As Boolean)
Application.Quit
ThisWorkbook.Saved = True
End Sub
を記述します。
3. 適当な名前で一度保存して、一度Excelを閉じます。
4. 再度、当該ブックを開いてテキストボックスに何か入力します。
5. ここでExcelを閉じるxボタン(外側のボタン)をクリックする。
この手順で実行した場合、ネコ さんの希望どおり、何のメッセージも表示されずに
Excelが終了します。
尚、上記の手順中、当該ブック以外の開いているブックはありません。
これで再度試してみて下さい。
手順が同じで動作が違うなら、Windowsの違いが影響している事も
当然考えられますよね!!
|
|