Q:

How to disable sorting in an Excel shared workbook

I would like to allow only the owner of a shared excel workbook to be able to sort data on the file. Whats the best way to do this?

A:

If the main reason for this is not robust security, but the accidental resort that happens in a workbook shared with others this should work in the Worksheet_Activate event
This is not even attempting to hide the sorting prohibition
Private Sub Worksheet_Activate()
 Dim WhoCanSort As String
  WhoCanSort = ThisWorkbook.WriteReservedBy
   If WhoCanSort = "Charlie" Then
     ActiveSheet.Unprotect
    Else:
     ActiveSheet.Protect AllowSorting:=False
   End If
 End Sub

