Changes The Cell Color Depending On How Many Clicks

The code changes the cell color depending on how many clicks you give it.
The code it self works fantastic but the problem i have is if i manually unlock the sheet every time i click any where in sheet it locks it again.

Private Sub Worksheet_SelectionChange(ByVal Target As Range)
On Error GoTo Error
Dim I As Integer, I1 As Integer, ws1 As Worksheet

Set ws1 = Worksheets("36hr Plan")
ws1.Unprotect "muppeticity"

I1 = 40
For I = 5 To 25 Step 5
For I1 = 22 To 204 Step 13
Offset1 = 0
If Not Intersect(Target, ws1.Cells(I1, I)) Is Nothing _
Or Not Intersect(Target, ws1.Cells(I1 + 1, 5)) Is Nothing _
Or Not Intersect(Target, ws1.Cells(I1 + 2, 5)) Is Nothing Then.............