防止用户使用 Excel 内置排序功能

Question

I have a document that functions (using many already written and functioning Macros) to essentially stand as a visual representation of a calendar, which can then be exported to a powerpoint graphic. Because of the way this process is conducted, it is essential that empty rows are kept between each data row. I wrote my own sort and filter functions to preserve this condition while giving the user proper functionality, and now am working on document security.

Thus, the primary question I have (although this can be spread more generally to all worksheet actions) is whether or not it is possible to restrict users from ever using the default Sort functions from excel (as this would immediately destroy the data structure)?

To clarify, the sheet already has protect and unprotect functionality, but I need the AllowSorting property to remain false even when the sheet is unprotected . Is this possible?

Edit:
I attempted to solve the issue by not unprotecting the sheets, but instead protecting them with all protections "off" with the exception of the AllowSorting and AllowFiltering properties, which remain false in both the Locked and Unlocked configurations. However, this still allowed me to sort data when the sheets were "unlocked"

Edit 2: Since further explanation seems necessary, I already have Macros that protect and unprotect the sheet accordingly. I need to be able to give FULL functionality to any user who has the correct password, with the exception of sorting , as no user should ever use the sort functions. My code for these functions is shown (abbreviated) below:

Sub LockSheets()

For Each WS In ActiveWorkbook.Worksheets
        WS.Protect Password:=MasterPass, _
                DrawingObjects:=True, _
                Contents:=True, _
                Scenarios:=True, _
                AllowFormattingCells:=False, _
                AllowFormattingColumns:=False, _
                AllowFormattingRows:=False, _
                AllowInsertingColumns:=False, _
                AllowInsertingRows:=False, _
                AllowInsertingHyperlinks:=False, _
                AllowDeletingColumns:=False, _
                AllowDeletingRows:=False, _
                AllowSorting:=False, _
                AllowFiltering:=False, _
                AllowUsingPivotTables:=False
        Next WS
End Sub



Sub UnlockSheets()

For Each WS In ActiveWorkbook.Worksheets
            WS.Protect Password:=MasterPass, _
                DrawingObjects:=False, _
                Contents:=False, _
                Scenarios:=False, _
                AllowFormattingCells:=True, _
                AllowFormattingColumns:=True, _
                AllowFormattingRows:=True, _
                AllowInsertingColumns:=True, _
                AllowInsertingRows:=True, _
                AllowInsertingHyperlinks:=True, _
                AllowDeletingColumns:=True, _
                AllowDeletingRows:=True, _
                AllowSorting:=False, _
                AllowFiltering:=False, _
                AllowUsingPivotTables:=False
        Next WS

End Sub

Answer 1

There are two problems in your Unlock code as posted in your original post.

Contents:=False

will override protecting the sheet and is why the worksheet remains unprotected after you run the macro.

AllowDelectingRows:=True

should have given a Compile error: Named argument not found. due to the typo: AllowDele**c**ting Rows I don't understand why it did not on your system.

Here is the modified code:

========================================

Option Explicit
Sub UnlockSheets()
Dim WS As Worksheet
For Each WS In ActiveWorkbook.Worksheets
            WS.Protect Password:=MasterPass, _
                DrawingObjects:=False, _
                Contents:=True, _
                Scenarios:=False, _
                AllowFormattingCells:=True, _
                AllowFormattingColumns:=True, _
                AllowFormattingRows:=True, _
                AllowInsertingColumns:=True, _
                AllowInsertingRows:=True, _
                AllowInsertingHyperlinks:=True, _
                AllowDeletingColumns:=True, _
                AllowDeletingRows:=True, _
                AllowSorting:=False, _
                AllowFiltering:=False, _
                AllowUsingPivotTables:=False
        Next WS

End Sub

========================================

Answer 2

If you just want a working security for accidental misuse that happens in a workbook shared with others this should work in the Worksheet_Activate event

Private Sub Worksheet_Activate()
 Dim WhoCanSort As String
  WhoCanSort = ThisWorkbook.WriteReservedBy
   If WhoCanSort = "skkakkar" Then
     ActiveSheet.Unprotect
    Else:
     ActiveSheet.Protect AllowSorting:=False
   End If 
End Sub

EDIT Protecting worksheet elements By default, when you protect a worksheet, all the cells on the worksheet are locked, and users cannot make any changes to a locked cell. For example, they cannot insert, modify, delete, or format data in a locked cell. However, you can specify which elements users will be able to change when you protect the worksheet. Before you protect a worksheet, you can unlock the ranges that you want users to be able to change or enter data in. You can unlock cells for all users or for specific users.

Lock or unlock specific areas of a protected worksheet I think by following this method you may be able to prevent users from using any commands to sort data (Data tab, Sort & Filter group).Users can't sort ranges that contain locked cells on a protected worksheet, regardless of this setting.

Answer 3

Ok, here it is. I put this into the Workbook_open -event, as I think, this is the best place.

Private Sub Workbook_open()
ActiveSheet.Protect _
                AllowDeletingColumns:=True, _
                AllowDeletingRows:=True, _
                AllowFormattingCells:=True, _
                AllowFormattingRows:=True, _
                AllowFormattingColumns:=True, _
                AllowInsertingHyperlinks:=True, _
                AllowInsertingRows:=True, _
                AllowUsingPivotTables:=True, _
                AllowSorting:=False, _
                AllowFiltering:=False

ActiveSheet.Protection.AllowEditRanges.Add _
                Title:="yourtitle", _
                Range:=Range("yourrange")

End Sub

This allows everything, except sorting. All other properties are listed here

Answer 4

I know this post is old, but i got stuck with the same problem. After searching throught all web i found a workaround to make this doable. In case someone eventually have the same question here is the link to the "solution": https://techcommunity.microsoft.com/t5/excel/disabling-sort-functions-also-disable-grouping/mp/2596241