エクセルでシートのグループ化の状態を保護したい

質問

当方の思慮不足で、何度も同じような質問しており申し訳ないのですが，エクセル2010でシートをグループ化して作業する必要が有るのですが、不特定多数の人が編集するのでグループ化が外れないようにしたいのですが何か良い方法はないでしょうか？
シートを「全シート」ではなく、選択してグループ化すると、他のシートに移動してもグループ化が外れないことが分かったので、空のシートを追加して必要なシートを選択して、ブックに保護をかけて、空のダミーシートをクリックできないように保護出来れば良いのですが。
ダミーシートの非表示を試してみたのですが、この方法ではできないことが分かりました。

何か良い方法は無いでしょうか？

回答No.2

HohoPapa · ベストアンサー

>表示されるメッセージは
>コンパイルエラー：
>「Sub 又はFunctionが定義されていません」
スペルミスやコードの保存場所などを再確認してください。

>ちなみにブックは１０ファイルほどあり、
>それぞれシート数が違っているのですが、
>If .Sheets.Count <> 5 Then Exit Sub
>の５だけ変更すれば対応できますでしょうか？
はい、そうです。

必ず、ブックごとのシート数と
課題コード上の数値を一致させ鵜必要があります。

お礼

色々試行錯誤で何とかうまくいきました！
何あ違っていたのかとりあえず使えるようになったのでまずはこれで使い始めます。

本当に色々ありがとう誤字材ました。

回答No.1

HohoPapa

例えば、シート総数が５枚ある。
2枚目を選択した場合、
2枚目が一番手前に表示され、
かつ、5枚全数がグループ化している。

4枚目を選択した場合、
4枚目が一番手前に表示され、
かつ、5枚全数がグループ化している。

こんな挙動を期待しているものと思います。

それは、
標準モジュールと、5枚あるシートモジュールのそれぞれに
次のマクロを配置することで実現できます。

なお、
グループ化したくない場合もあるでしょうから
シート総数が5枚の場合にのみ動作するようにしました。

グループ化を一時的に無効にする場合は
適当な場所にシートを追加してください。
むろん、この追加したシートを削除すれば
再びグループ化が有効になります。

'//---シートモジュールのそれぞれに配置するコード
Private Sub Worksheet_Activate()
　SetGr
End Sub

'//--標準モジュールに配置するコード
'//------------------------------------------------------------------
'// シート総数が5枚ならシート全数をグループ化
'//------------------------------------------------------------------
Sub SetGr()

　Dim shCounter As Integer
　Dim SelSheetNum As Integer

　With ThisWorkbook

　　'シートの数が5枚以外なら抜ける
　　If .Sheets.Count <> 5 Then Exit Sub

　　SelSheetNum = .ActiveSheet.Index
　　.Sheets(SelSheetNum).Select

　　For shCounter = 1 To .Sheets.Count　　'グループ化
　　　If shCounter <> SelSheetNum Then
　　　　.Sheets(shCounter).Select Replace:=False
　　　End If
　　Next shCounter

　End With

End Sub

補足

早々の度重なるご回答に感謝！感謝！！
で、早々に試してみましたが、残念ながら（とううより当方の場合いつものように）エラーが出てしまいました。

エラーの出るタイミングは、5枚のシートをグループ化して、他のシートに移動しようとすると下記のエラーメッセージが出ます。

WorkSheetのActivateの

Private Sub　・・・の行が黄色くなり

表示されるメッセージは

コンパイルエラー：
「Sub 又はFunctionが定義されていません」

ちなみにブックは１０ファイルほどあり、それぞれシート数が違っているのですが、
If .Sheets.Count <> 5 Then Exit Sub

の５だけ変更すれば対応できますでしょうか？
恐縮ですが宜しくお願い致します。