Предотвратить использование пользователем функций встроенной сортировки Excel

Question

У меня есть документ, который функционирует (используя многие уже написанные и функционирующие макросы), чтобы по существу стоять в качестве визуального представления календаря, который затем можно экспортировать на графический объект PowerPoint. Из-за того, как этот процесс ведется, важно, чтобы между каждой строкой данных сохранялись пустые строки. Я написал свои собственные функции сортировки и фильтрации, чтобы сохранить это условие, предоставляя пользователю надлежащую функциональность, и теперь я работаю над защитой документов.

Таким образом, основной вопрос, который у меня есть (хотя это может быть распространен в целом на все действия в листе), является то, можно ли ограничить пользователей от использования функций сортировки по умолчанию от excel (так как это немедленно уничтожило бы структура данных)?

Чтобы уточнить, лист уже имеет защиты и снятие защиты функциональности, но мне нужно AllowSorting свойства оставаться ложными даже когда лист не защищен. Это возможно?

Edit:
Я попытался решить эту проблему, не снятие защиты листов, но вместо того, чтобы защищать их все защиты «выключено» за исключением свойств AllowSorting и AllowFiltering, которые остаются ложны в обеих отпираются и запираются конфигурация , Тем не менее, это все еще позволяло сортировать данные, когда листы были «разблокированы»

Редактирование 2: Поскольку необходимо дальнейшее объяснение, у меня уже есть макросы, которые защищают и снимают защиту с листа соответственно. Мне нужно предоставить FULL функциональность любому пользователю, у которого есть правильный пароль, , за исключением сортировки, так как никто не должен использовать функции сортировки. Мой код для этих функций показан (сокращенно) ниже:

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

Если вы просто хотите работать безопасности для случайного неправильного, что происходит в книге совместно с другими, это должно работать в случае Worksheet_Activate

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 Защитные элементы рабочего листа По умолчанию, когда вы защищаете рабочий лист, все ячейки на листе будут заблокированы, и пользователи не могут вносить изменения в запертой клетке. Например, они не могут вставлять, изменять, удалять или форматировать данные в заблокированной ячейке. Однако вы можете указать, какие элементы пользователи смогут изменить, когда вы защищаете рабочий лист. Прежде чем защищать рабочий лист, вы можете разблокировать диапазоны, которые вы хотите, чтобы пользователи могли изменять или вводить данные. Вы можете разблокировать ячейки для всех пользователей или для определенных пользователей.

Lock or unlock specific areas of a protected worksheet Я думаю, что, следуя этот метод вы можете запретить пользователь использовать любые команды для сортировки данных (вкладку Data, Сортировка & Фильтра группы) .Users не может сортировать диапазоны, которые содержат заблокированные ячейки на защищенный листе , независимо от этой настройки.

Answer 2

Хорошо, вот оно. Я положил это на Workbook_open -event, как я думаю, это лучшее место.

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 

Это позволяет все, кроме сортировки. Все остальные свойства перечислены here

Answer 3

В вашем коде разблокировки есть две проблемы, как указано в вашем исходном сообщении.

Contents:=False 

переопределит защиту листа, и поэтому рабочий лист остается незащищенным после запуска макроса.

AllowDelectingRows:=True 

должен был дан Compile error: Named argument not found. в связи с опечаткой: AllowDele**c**ting Rows я не понимаю, почему это не в вашей системе.

Вот измененный код:

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

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 

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