Unprotect Cell Range in vba excel macro with locked Sheet

Sub Summarize()
   Dim i
   Dim myrange
   Dim bottomCell As Range
   Dim lastcell As Long
   Dim s
   Dim y
   Dim bottomCellminus As Long
   Dim ws As Worksheet
    
   Application.DisplayStatusBar = True
   Application.Calculation = xlCalculationManual
    
   For Each ws In ActiveWorkbook.Worksheets
    
      ' Added: The next line will display which Worksheet is in progress
      Application.StatusBar = "Working on:" & ws.Name & _
      ", which is number " & ws.index & _
      " out of " & ActiveWorkbook.Worksheets.Count & _
      " Sheet(s)."
      With ws
         With .PageSetup
            '.PrintTitleRows = "$3:$12"
            .CenterHeader = "&A"
            .CenterFooter = "Page &P of &N"
            .LeftMargin = Application.InchesToPoints(0.694444444444444)
            .RightMargin = Application.InchesToPoints(0.694444444444444)
            .TopMargin = Application.InchesToPoints(0.5)
            .BottomMargin = Application.InchesToPoints(0.5)
            .HeaderMargin = Application.InchesToPoints(0.25)
            .FooterMargin = Application.InchesToPoints(0.25)
            '.PrintHeadings = False
            '.PrintGridlines = False
            .PrintComments = xlPrintNoComments
            .PrintQuality = 600
            .CenterHorizontally = True
            .CenterVertically = False
            .Orientation = xlLandscape
            .Draft = False
            .PaperSize = xlPaperLegal
            .FirstPageNumber = xlAutomatic
            .Order = xlDownThenOver
            .BlackAndWhite = False
            .Zoom = False
            '.FitToPagesWide = 1
            '.FitToPagesTall = False
         End With
        
        Set bottomCell = .Range("C15").End(xlDown)
 
         lastcell = Cells.Find(What:="*", After:=[B1], SearchOrder:=xlByRows, SearchDirection:=xlPrevious).Row
 
         bottomCellminus = bottomCell.Row - 1
          
         X = 15
         If bottomCell.Row < 9000 Then
         Do While X <= bottomCell.Row
          
            .Cells(X, 15) = "=SUM(C" & X & ":N" & X & ")"
            .Cells(X, 17) = "=(+P" & X & "-O" & X & ")"
            .Cells(X, 19) = "=(+R" & X & "-O" & X & ")"
   '         .Columns("B:S").Select
            X = X + 1
         Loop
         ' set totals formulas
         bottomCell.Resize(, 17).FormulaR1C1 = "=SUM(R15C:R[-1]C)"
          
         With .Columns("C:S")
            .NumberFormat = "(#,###);[Red](#,###);_(*  0_)"
            .EntireColumn.AutoFit
         End With
   '      bottomCell = 0
    End If
    
         MName = .Name & ".xls"
         MDir = ActiveWorkbook.Path
         .Copy
          With ActiveWorkbook
            For i = 1 To 56
               .Colors(i) = ThisWorkbook.Colors(i)
            Next i
.ActiveSheet.Range("E15:N" & lastcell).Select
Selection.Locked = False
            .ActiveSheet.Protect Password, True, True, True
            '.ActiveSheet.Columns("E:N").Unprotect
            .SaveAs Filename:=MDir & "\" & MName
            .Close False
          End With
 
     bottomCellminus = 0
      End With
 
   Next ws
 
   Application.ScreenUpdating = True
   Application.Calculation = xlCalculationAutomatic
   Application.StatusBar = False ' <-- Erases the bar & restores control to Excel.
 
 
End Sub

                                              

1:
2:
3:
4:
5:
6:
7:
8:
9:
10:
11:
12:
13:
14:
15:
16:
17:
18:
19:
20:
21:
22:
23:
24:
25:
26:
27:
28:
29:
30:
31:
32:
33:
34:
35:
36:
37:
38:
39:
40:
41:
42:
43:
44:
45:
46:
47:
48:
49:
50:
51:
52:
53:
54:
55:
56:
57:
58:
59:
60:
61:
62:
63:
64:
65:
66:
67:
68:
69:
70:
71:
72:
73:
74:
75:
76:
77:
78:
79:
80:
81:
82:
83:
84:
85:
86:
87:
88:
89:
90:
91:
92:
93:
94:
95:
96:
97:
98:
99:
100: