エクセルのマクロをブック全体に

質問

マクロに関してはずぶの素人です、Q&Aのサイトで目的にかなったものを見つけ
設定したら結果は満足するものでした。

「シートを保護した状態で、グループ化の表示・非表示を切り替えるマクロ」

Sub Auto_Open()
With Worksheets("Sheet1")
.EnableOutlining = True
.Protect UserInterfaceOnly:=True
End With

End Sub

これをブック全体に反映できるマクロを教えて下さい。
ブック内のシート数は多いもので10シートほど、シート名は和英混合です。
ブックの数は40程有り全てのシートにマクロを設定するのは途方もなく
時間が掛かりそうで困っています。
当方のエクセルはExcel2007SP3です、宜しくお願いします。

回答No.1

watabe007 · ベストアンサー

こんにちは　参考に
Sub Auto_Open()
Dim ws As Worksheet

For Each ws In Worksheets
ws.EnableOutlining = True
ws.Protect UserInterfaceOnly:=True
Next
End Sub

お礼

早速試してみました、感激！マクロを使う人にとっては簡単な事かもしれませんが、エクセルを使い出してから15年以上経ちますが初めてマクロを使った者にとっては感激です。
マクロについて取り組んでみようと思います。有り難うございました。