I hope someone can help me with this as it is my last part of a week long project I have been working on.

I have locked several cells in my spreadsheet but after I run the code all those cells are no longer locked. It seems to happen where my code copies a group of cells and paste data starting from a specific cell. Of course while my code is run the spreadsheet is unprotected. After the code is run it is protected again. When I go to work on the spreadsheet after the code is run I find that the cell lock settings in some individual cells are lost. The code gets the data from a spreadsheet that is produced by MYOB. Then it paste the data in the my spreadsheet starting from cell D17. How can I keep these cell locked or re lock them.
Below is only a small portion of the code.

Thanks for any help you can give me.

Const TargetColumn = 2   
Const AboveTotal = "Total Expense" ' 

Dim FindAboveTotal As Range   
Dim FindLevies As Range   

ActiveSheet.Unprotect
      Set FindAboveTotal = ActiveSheet.Columns(TargetColumn).Find(AboveTotal, lookat:=xlWhole, after:=FindLevies)
      If Not FindAboveTotal Is Nothing Then
        ActiveSheet.Range(FindLevies, FindAboveTotal.Offset(-1, 1)).Select
      End If

Selection.Copy
wkb.Activate
Range("D17").Select
Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _
    :=False, Transpose:=False

ActiveSheet.Protect DrawingObjects:=True, Contents:=True, Scenarios:=True _
    , AllowFormattingCells:=True, AllowFormattingColumns:=True, _
    AllowFormattingRows:=True