Solved: Data sort in a protected workbook

[K. Georgiadis]

Which of the highlighted lines in the below code is required to permit sorting of a data table when the workbook is under global protection? Is it AllowFiltering:=True?

[vba]
Public Sub ProtectAll()

Const PWORD As String = "mysecretword"

Dim wsSheet As Worksheet

For Each wsSheet In Worksheets
wsSheet.Protect Password:=PWORD, DrawingObjects:=False, _
Contents:=True, Scenarios:=True, AllowFiltering:=True, _
AllowUsingPivotTables:=True, UserInterfaceOnly:=True, _
AllowFormattingCells:=True, AllowFormattingRows:=True

Next wsSheet

End Sub
[/vba]

[geekgirlau]

Apparently in Excel 2003 there is a parameter called "AllowSorting" (sorry, I only have v2000 here at work, so can't test it). The notes state "Every cell in the sort range must be unlocked or unprotected", so I'm not sure how well this would cope if you had locked headings - worth a try.

[K. Georgiadis]

I discovered that AllowSorting is also available in Excell 2002. Problem solved!! Thanks very much.

[K. Georgiadis]

As a matter of interest, Geekgirlau, when you add AllowSorting in the global protect code, the range to be sorted can be left protected.