複数シートのグループ化ができるマクロについて 削除
Message#1 2015年2月5日(木)17時18分 From: ちくさっく |
EXCELのVBA初心者です。 現在、sheet数11(sheet1から10が各担当の月別、商品別売上げ、sheet11が各担当のsheetから月別に商品毎、売上合計を集計)のEXCELを作成しました。 各担当毎の行数、列数も比較的多いことから、列と行をグループ化しています。 また、いくつかのセルで計算式(例えば売上個数と単価)を設定しています。 ※各担当毎の書式や計算式を設定したセルはすべて同じ このEXCELファイルを共有化して、複数人で処理すること、また、コピペなどにより計算式を削除されないようにシートに保護をかたところ、グループ化のコマンドが操作できなくなってしまいました。 いろいろ調べたところ、以下のVBA(マクロ)で解決できると知ったのですが、このマクロでは、設定したsheetのみにしか対応できません。 複数のsheet(今回はSheet1からsheet10まで、sheet11は不要)に対応させるにはどうすればよいのでしょうか? どなたかご教授いただけると助かります。 調べたマクロ ************************* Private Sub Workbook_Open() Sheets("Sheet1").EnableOutlining = True Sheets("Sheet1").Protect Password:="****", DrawingObjects:=True, _ contents:=True, UserInterfaceonly:=True End Sub ************************ |
上のメッセージを削除します。
よければパスワードを入力し、削除ボタンをクリックしてください。