Data sort function and menu bar is greyed out after macro running

[Apple08]

Hi All

I have a macro to protect columns A to K for sheets A to E, however after the macro running, the data sort function in the menu bar is greyed out. Please could anyone help how to fix it. Thanks.

Sub ProtectA_K()


Sheets("A").Select
    Columns("A:K").Select
    Selection.Locked = True
    Selection.FormulaHidden = False
    ActiveSheet.Protect DrawingObjects:=False, Contents:=True, Scenarios:= _
        False, AllowFormattingCells:=True, AllowFormattingColumns:=True, _
        AllowFormattingRows:=True, AllowInsertingHyperlinks:=True, AllowFiltering _
        :=True
 
 Sheets("B").Select
    Columns("A:K").Select
    Selection.Locked = True
    Selection.FormulaHidden = False
    ActiveSheet.Protect DrawingObjects:=False, Contents:=True, Scenarios:= _
        False, AllowFormattingCells:=True, AllowFormattingColumns:=True, _
        AllowFormattingRows:=True, AllowInsertingHyperlinks:=True, AllowFiltering _
        :=True
        
Sheets("C").Select
    Columns("A:K").Select
    Selection.Locked = True
    Selection.FormulaHidden = False
    ActiveSheet.Protect DrawingObjects:=False, Contents:=True, Scenarios:= _
        False, AllowFormattingCells:=True, AllowFormattingColumns:=True, _
        AllowFormattingRows:=True, AllowInsertingHyperlinks:=True, AllowFiltering _
        :=True
        
Sheets("D").Select
    Columns("A:K").Select
    Selection.Locked = True
    Selection.FormulaHidden = False
    ActiveSheet.Protect DrawingObjects:=False, Contents:=True, Scenarios:= _
        False, AllowFormattingCells:=True, AllowFormattingColumns:=True, _
        AllowFormattingRows:=True, AllowInsertingHyperlinks:=True, AllowFiltering _
        :=True
        
Sheets("E").Select
    Columns("A:K").Select
    Selection.Locked = True
    Selection.FormulaHidden = False
    ActiveSheet.Protect DrawingObjects:=False, Contents:=True, Scenarios:= _
        False, AllowFormattingCells:=True, AllowFormattingColumns:=True, _
        AllowFormattingRows:=True, AllowInsertingHyperlinks:=True, AllowFiltering _
        :=True
    
    Sheets("A").Select
    Range("A2").Select

End Sub

 

[steve the fish]

If you protect then you cant sort locked cells. You would be able to sort unlocked cells provided you had checked the checkbox.

 

[Apple08]

Thanks Steve, indeed I have another macro running before that one, please see below the macro:

Dim ws As Worksheet
    For Each ws In ActiveWorkbook.Worksheets
        With ws
            .Cells.Locked = False
            .Cells.FormulaHidden = False
        End With
    Next ws
    
Call ProtectA_K

End Sub

 

[Apple08]

If you protect then you cant sort locked cells. You would be able to sort unlocked cells provided you had checked the checkbox.

Please am I able to have that added into my macro and how to do it please?

 

[steve the fish]

You will need AllowSorting:=True also. After that it should allow you to sort the unlocked (therefore unprotected) cells. Still wont sort the locked cells.

 

[Apple08]

You will need AllowSorting:=True also. After that it should allow you to sort the unlocked (therefore unprotected) cells. Still wont sort the locked cells.

Thank you Steve for your advice.