Public Sub protection()
For i = 2 To 13
Worksheets(i).Range('B2:D4').Locked = False
Worksheets(i).Range('D11:D11').Locked = False
Worksheets(i).Range('D15:G45').Locked = False
Worksheets(i).Range('B13:B13').Locked = False
Worksheets(i).Range('O15:P45').Locked = False
If i = 2 Then
Worksheets(i).Range('M11:N11').Locked = False
End If
Worksheets(i).Protect Password:='glaglagla'
Next i
End Sub