Macro для защиты листа с возможностью вставки строк

Question

Я подготовил макрос ниже, чтобы снять защиту с листа, отсортировать данные, а затем защитить лист снова.

Он отлично работает, за исключением того, что в моей первоначальной настройке защиты я разрешил пользователям вставлять строки, но когда макрос воспроизводит лист, он не позволяет пользователям делать это.

Может ли кто-нибудь дать мне несколько баллов, чтобы получить защиту, позволяющую вставлять строки?

Sub CustSort1() 
ActiveSheet.Unprotect "password" 
Range("a14").Select 
Range(Selection, ActiveCell.SpecialCells(xlLastCell)).Select 
Selection.Sort Key1:=Range("a14"), Order1:=xlAscending, Key2:=Range(_ 
    "k14"), Order2:=xlAscending, _ 
    Header:=xlGuess, OrderCustom:=1, MatchCase:=False, Orientation:= _ 
    xlTopToBottom, DataOption1:=xlSortNormal, DataOption2:=xlSortNormal, _ 
    DataOption3:=xlSortNormal 
Range("a14").Select 
ActiveSheet.Protect "password" 
End Sub 

Благодарим за помощь ind advance.

Answer 1

Существует множество флагов, которые могут быть установлены после оператора ActiveSheet.Protect, в том числе включать или не разрешать вставку строк. Пример:

ActiveSheet.Protect DrawingObjects:=True, Contents:=True, Scenarios:=True , AllowInsertingRows:=True