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

感谢您提前帮助。

Answer 1

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

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

允许插入行保护工作表的宏

1 个答案: