vba 複数のシートに、保護 解除

いつもお世話になります。

OSはwin11、エクセルはoffice365です。

17のシートがある内、
　シート名の　1～12　のみにシートの保護及び解除
を設定したいです

下記の参考コードはシート「1」ですが
　1～12にするにはどうすればいいでしょうか

参考
Sub シートの保護()
Dim sheet1 As Worksheet
Set sheet1 = Worksheets(“1”)
sheet1.Protect Password:=”1111″
End Sub

Sub シートの保護を解除()
Worksheets(“1”).Unprotect Password:=”1111″
End Sub

No.1 回答者： tatsumaru77 回答日時： 2023/09/03 16:32

以下のようにしてください。

Sub シートの保護()
Dim i As Long
Dim sheet1 As Worksheet
Dim sname As String
For i = 1 To 12
sname = i
Set sheet1 = Worksheets(sname)
sheet1.Protect Password:="1111"
Next
End Sub

Sub シートの保護を解除()
Dim i As Long
Dim sheet1 As Worksheet
Dim sname As String
For i = 1 To 12
sname = i
Set sheet1 = Worksheets(sname)
sheet1.Unprotect Password:="1111"
Next
End Sub

この回答へのお礼

お陰様で上手くできした
ありがとうございました。

お礼日時：2023/09/03 18:00