複数シートのグループ化ができるマクロについて

Message#1 2015年2月5日(木)17時18分
From: ちくさっく

EXCELのVBA初心者です。

現在、sheet数11（sheet1から10が各担当の月別、商品別売上げ、sheet11が各担当のsheetから月別に商品毎、売上合計を集計）のEXCELを作成しました。

各担当毎の行数、列数も比較的多いことから、列と行をグループ化しています。
また、いくつかのセルで計算式（例えば売上個数と単価）を設定しています。
※各担当毎の書式や計算式を設定したセルはすべて同じ

このEXCELファイルを共有化して、複数人で処理すること、また、コピペなどにより計算式を削除されないようにシートに保護をかたところ、グループ化のコマンドが操作できなくなってしまいました。

いろいろ調べたところ、以下のVBA（マクロ）で解決できると知ったのですが、このマクロでは、設定したsheetのみにしか対応できません。

複数のsheet（今回はSheet１からsheet10まで、sheet11は不要）に対応させるにはどうすればよいのでしょうか？

どなたかご教授いただけると助かります。

調べたマクロ
*************************
Private Sub Workbook_Open()
Sheets("Sheet1").EnableOutlining = True
Sheets("Sheet1").Protect Password:="****", DrawingObjects:=True, _
contents:=True, UserInterfaceonly:=True
End Sub
************************