VBA Excel 2007 Changing Protection Parameters

[CMSS]

I am using macros with a worksheet that is protected. I unprotect it and run the macro, but when I try to re-protect it, my parameters are reset. I have tried writing the code to specify the parameters, but I receive a syntax error. Here is my protection code:

ActiveSheet.Protect Password:="c"
        DrawingObjects:=True, Contents:=True, Scenarios:=True, AllowSorting:=True

 

[AlphaFrog]

Try something like this...

ActiveSheet.Protect Password:="c"[COLOR="Red"], _[/COLOR]
        DrawingObjects:=True, Contents:=True, Scenarios:=True, AllowSorting:=True

 

[CMSS]

That solved the problem, but created a new one. Now it leaves the sheet unprotected. Cells can be manipulated, cleared, and data added to them. I want to only be able to select cells, but not change them, and sort them.

 

[CMSS]

Now I have changed the coding so that the sheet is protected, but it won't allow the data to be sorted, even though I have the parameters set to allow it. Here is what I have:

    Application.DisplayAlerts = False
    Application.ScreenUpdating = False
 
 
    Sheets("Data Collector").Unprotect Password:="c"
    Sheets("Session Archive").Unprotect Password:="c"
    Sheets("Data Collector").Range("A2:X2").Copy
    Sheets("Session Archive").Cells(Rows.Count, "A").End(xlUp)(2).Offset(0, 0).PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks:=False, Transpose:=False
    Application.CutCopyMode = False
    Sheets("Session Archive").Protect Password:="c", _
        DrawingObjects:=True, Contents:=True, Scenarios:=True _
        , AllowSorting:=True

 

[AlphaFrog]

Every cell in the sort range must be unlocked.

 

[CMSS]

I want the worksheet to be protected, but sortable. I don't want to be able to change the contents of the cells, but are you saying the cells have to be unprotected to be sorted?