Excel VBA質問箱 IV

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

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


74686 / 76732 ←次へ | 前へ→

【6506】Re:イベント用モジュールを復活させたい
回答  ichinose  - 03/7/4(金) 20:19 -

引用なし
パスワード
   ▼kawata さん:
こんばんは。

>kawataです、よろしくお願いします。
>(Windows2000/Excel2000)
>
>お世話になっております。
>先日、「WinthEvents」を教えていただき(jujuさん)、
>メニューブックから、新しいブックがオープンされた時の
>イベントを取得するというルーチンで、各段にスムーズな
>処理をさせるコードに作りかえることができました。
>どうもありがとうございました。
>
>で、いま少し思案中なのが、これをボタンでON/OFFせて
>「監視中」←→「監視解除」のトグル状態を作れないか?と。
>
>解除は、「END」をほりこめばできますよね?。
>このあとの復活が、さっぱりわかりません。
>(現在は再起動しております(^^;;;;)。
>
>ぜひ、よろしくお願いします。


Private WithEvents objExcel As Excel.Application

Private Sub objExcel_WorkbookOpen(ByVal Wb As Workbook)

  MsgBox Wb.Name & "を開いたよ"
  ' ここでファイル名とかブック名とかで判断して処理を続けてね。
End Sub

Private Sub Workbook_Open()

  Set objExcel = Application
End Sub

jujuさんが解答したのは上記ですね(探しちゃった)

Set objExcel = Application
でイベント実行可能
Set objExcel = Nothing
イベントが発生しません
2 hits

【6500】イベント用モジュールを復活させたい kawata 03/7/4(金) 13:42 質問
【6506】Re:イベント用モジュールを復活させたい ichinose 03/7/4(金) 20:19 回答
【6510】Re:イベント用モジュールを復活させたい kawata 03/7/6(日) 9:22 お礼
【6513】Re:イベント用モジュールを復活させたい kawata 03/7/6(日) 11:58 発言
【6516】Re:イベント用モジュールを復活させたい ichinose 03/7/7(月) 7:29 回答
【6519】Re:イベント用モジュールを復活させたい kawata 03/7/7(月) 8:23 お礼
【6520】Re:イベント用モジュールを復活させたい kawata 03/7/7(月) 8:41 お礼
【6521】Re:イベント用モジュールを−できました! kawata 03/7/7(月) 8:53 お礼

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