如何对有锁定单元格及保护的工作表进行日期排序

crystal16810

请教各位大神：如何对有锁定单元格及保护的工作表进行日期排序？附件的代码如果是对工作表有保护但无锁定单元格的是可以顺利对日期按升序排列，但如果有锁定单元格则不能排序了。请教大神该如何修改代码才能使即使有锁定单元格也能顺利对日期进行排序？保护密码是：123456。感谢赐教！

crystal16810

请大神指点迷津

清风竹-

请看附件。

crystal16810

清风竹- 发表于 2019-10-2 20:23
请看附件。

非常感谢大神的指点！

crystal16810

清风竹- 发表于 2019-10-2 20:23
请看附件。

大神，还想请教一下，如果我排序后，在设置保护工作表里除“选定锁定单元格”不勾选，其它都勾选，代码该如何写，感谢赐教。

crystal16810

清风竹- 发表于 2019-10-2 20:23
请看附件。

大神，按您的代码运行后，其它很多功能用不了哦！请继续赐教！！

清风竹-

crystal16810 发表于 2019-10-2 20:40
大神，还想请教一下，如果我排序后，在设置保护工作表里除“选定锁定单元格”不勾选，其它都勾选，代码该 ...

Sub 设置保护工作表()   
    ActiveSheet.Protect Password:=123456, DrawingObjects:=0, Contents:=1, Scenarios:= _
        0, AllowFormattingCells:=1, AllowFormattingColumns:=1, _
        AllowFormattingRows:=1, AllowInsertingColumns:=1, AllowInsertingRows _
        :=1, AllowInsertingHyperlinks:=1, AllowDeletingColumns:=1, _
        AllowDeletingRows:=1, AllowSorting:=1, AllowFiltering:=1, _
        AllowUsingPivotTables:=1
End Sub

crystal16810

清风竹- 发表于 2019-10-2 21:07
Sub 设置保护工作表()   
    ActiveSheet.Protect Password:=123456, DrawingObjects:=0, Contents:=1, ...

非常感谢大神再次赐教！