下記のVBAを他のワークシートにも適用する方法？

下記のVBAを他の同じエクセルファイル内の他のワークシート（Sheet2,Sheet3,Sheet4)にも反映するためにはどのようにしたらよろしいでしょうか？

現在書きVBAを本ワークブックという箇所に貼り付けております。
お手数ですがご教示いただきます様お願いいたします。

Private Sub Workbook_Open()
With Sheets("Sheet1")
.EnableOutlining = True
.Protect Password:="****", UserInterfaceonly:=True
End With
End Sub

No.1 回答者： KURUMITO 回答日時： 2013/01/17 06:45

次のようにすればよいでしょう。

Private Sub Workbook_Open()
For Each ws InWorksheets
.EnableOutlining = True
.Protect Password:="****", UserInterfaceonly:=True
Next ws
End Sub

この回答へのお礼

早速ご教示いただきありがとうございます。
下記構文を使用しましたところ、エラーが発生したのですが、どのように修復したら宜しいでしょうか。
（構文最初の行が黄色でハイライトされ、2行目が赤字となりエラーが発生いたしました）。
お手数ですが、改めてご教示いただけますと幸いです。
どうぞよろしくお願いいたします。

Private Sub Workbook_Open()
For Each ws InWorksheets
.EnableOutlining = True
.Protect Password:="1", UserInterfaceonly:=True
Next ws
End Sub

お礼日時：2013/01/18 12:02