VBA実行時のシート(複数)保護解除について

質問

いつも勉強させていただいております。VBA初心者です。

　早速ですが、あるマクロを複数のシートで実行するとき、
シートに設定されている「シートの保護」を解除したいのですが、
複数シートに対しての処理方法が分かりません。

　インターネットで検索した結果、
ActiveSheet.Unprotect　を実行したいマクロの冒頭にセットし、
最後にActiveSheet.Protectを設定すればよいことは分かりました。
（私としての理解：こうすることで、シートの保護解除⇒保護となる。）

　その結果、

Sub カレンダー作成()
'ワークシートを非保護にする
ActiveSheet.Unprotect

Dim 日付, i As Integer
日付 = Application.InputBox _
("yyyy/m 形式の年月を半角で入力してください" & Chr(10) _
& "　例）2013年の1月　→　2013/1")
Range("c3").Value = 日付

If 日付 = False Or IsDate(日付) = False Then Exit Sub
For i = 1 To Sheets.Count
With Sheets(i)
Select Case .Name
Case "sheet1", "sheet5"
.Range("G5").Resize(, 31).ClearContents
.Range("C3,G5").Value = DateSerial(Year(日付), Month(日付), 1)
.Range("G5").AutoFill Destination:=.Range("G5"). _
Resize(, Day(DateSerial(Year(日付), Month(日付) + 1, 0)))
End Select
End With
Next

'ワークシートを保護する
ActiveSheet.Protect

End Sub

　と言った構文を作成し、１シートについての作業は成功しました。
ところが、2シート目以降にはエラーとなるのです。

　この作業を、複数のシートに対して同時に、１回の操作で実行したいのです。
色々と調べてみて、それらしいサイトも見てみたのですが、初心者の私には、
その内容を理解し、自分のVBAに組み込むことが到底できませんでした。

　有識者のみなさま、どうかご指導をよろしくお願いいたします。

回答No.1

keithin · ベストアンサー

とりあえず今のマクロはよく出来ていますので，そのまま少し手直して

Sub カレンダー作成()

　Dim 日付, i As Integer
　日付 = Application.InputBox _
　　("yyyy/m 形式の年月を半角で入力してください" & Chr(10) _
　　& "　例）2013年の1月　→　2013/1")
　If 日付 = False Or IsDate(日付) = False Then Exit Sub
　Range("c3").Value = 日付

　For i = 1 To Sheets.Count
　　With Sheets(i)
　　　Select Case .Name
　　　Case "sheet1", "sheet5"

　　　　.unprotect　　’←対象のシートなら解除して
　　　　.Range("G5").Resize(, 31).ClearContents
　　　　.Range("C3,G5").Value = DateSerial(Year(日付), Month(日付), 1)
　　　　.Range("G5").AutoFill Destination:=.Range("G5"). _
　　　　　Resize(, Day(DateSerial(Year(日付), Month(日付) + 1, 0)))
　　　　.protect　　　’←再度保護する

　　　End Select
　　End With
　Next
End Sub

といった具合で十分です。

お礼

できました！感動です★スバラシイです☆感激です♪

しかもお褒めの言葉までいただけるとは、ありがとうございます。
　ただ、白状しますと、この構文もこのサイトで有識者の
皆さまからアドバイスをいただきながら作成した代物。
まだまだ勉強が足りません。精進いたします。

　数多くある質問から、私の質問に対してご教授いただきまして、
本当にありがとうございました。

　機会がありましたら、ぜひまたよろしくお願いいたします。
本当に、ありがとうございました。