通过允许插入行来保护工作表的macros

我准备了下面的macros来取消保护工作表，对数据进行sorting，然后再次保护工作表。

它完美的工作，除了在我原来的保护设置，我允许用户插入行，但是当macros重新保护表，它阻止用户这样做。

有人可以给我一些点来获得保护，允许插入行吗？

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 

感谢您的帮助提前。

Answer 1

有一堆标志可以在ActiveSheet.Protect语句之后设置，包括是否允许插入行。 一个例子：

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