ExcelのVBAで、作業グループ状態のイベント

質問

エクセルで複数のシートを選択すると、ウィンドウのタイトル(Caption)に、［作業グループ］と表示されます。
この、［作業グループ］が表示される瞬間と、消える瞬間のイベントってあるのでしょうか？目的は、複数のシートを選択してセルに文字を入力すると、複数のシートが一気に変更され、思わぬトラブルになるのを防ぐために、イベントで、ウィンドウの枠の色を赤系に変え注意喚起をしようか？と考えています。で、いきなり出だしで躓いたので、どなたか詳しい方がいらっしゃいましたら教えて頂けないでしょうか？
一時は、シートを触るたびに、Windows.Count　<>　1　でチェックすることも考えましたが、上手くいきませんでした。
宜しくお願い致します。

回答No.2

merlionXX

>「この、［作業グループ］が表示される瞬間と、消える瞬間のイベントってあるのでしょうか？」

無いはずです。
だからやむをえず、セル選択時のSelectedSheets.Countで判断しました。
わたしはウィンドウの枠の色をかえる方法を存じませんのでMsgboxを出しましたが、imoarai_99さんはその方法をご存知ならMsgboxのかわりにそうすればいいだけのことではないですか？

お礼

回答ありがとうございます。
参考にさせて頂きます。ありがとうございました。
今後とも宜しくお願い致します。

回答No.1

merlionXX

ThisWorkbookモジュールに

Private Sub Workbook_SheetSelectionChange(ByVal Sh As Object, ByVal Target As Range)
Dim x As Integer
x = ActiveWindow.SelectedSheets.Count
If x > 1 Then
MsgBox x & "枚のシートを選択中です。", , "(´・ω・)σ作業グループ設定中！"
End If
End Sub

では？

補足

早速お返事ありがとうございます。
どのレベルで妥協するか？ってことになり、実用上問題無いだろう！！って言われそうですが、「この、［作業グループ］が表示される瞬間と、消える瞬間のイベントってあるのでしょうか？」の通り、瞬間について問い合わせしています。お手数ですが、今一度、教えて頂けないでしょうか？Windows.Count　<>　1　は、途中が欠落していました！！すみません！