Excel 2013 - Adjust Excel Sheet Protection options to allow users to make some changes

Hi There. I am needing to make an adjustment to the protection options in my excel workbook. I have set these options within the Microsoft Excel 2013 user interface, however - purhaps the macro I am running is overriding this.

I need users to be able to:

-Select Locked Cells
-Select Unlocked cells
-Format Cells
-Insert Rows

Could this be built into the existing macro as shown below? I have also attached a screen capture of the options set within Microsoft Excel Protect sheet. These options are set, however users are not able to make any of these changes after the Macro is run.


Capture.PNG

Private Sub Workbook_SheetActivate(ByVal Sh As Object)
    Dim colorIndex As Integer
    Dim xRg As Range
    Dim color As Long
    
    Sh.Unprotect Password:="Yourpasswordhere"
    
    colorIndex = 3
    
    Application.ScreenUpdating = False
    For Each xRg In Sh.UsedRange.Cells
    
        color = xRg.Interior.colorIndex
        If (color = colorIndex) Then
            xRg.Locked = True
        End If
    Next xRg
    
    Application.ScreenUpdating = True
    Sh.Protect Password:="Yourpasswordhere" DrawingObjects:=True, Contents:=True, Scenarios:=True _
        , AllowFormattingCells:=True, AllowInsertingRows:=True

End Sub