可不可以有选择性的用代码保护工作表

有你才幸福

比如我想通过代码保护工作表，条件是可以选定未锁定的单元格、编辑对象、设置单元格格式、使用自动筛选，其它的都不能用需要怎么做？
我知道用下面代码可以实现保护锁定、未锁定、全锁定工作表，如何能有选择性的保护呢？
Sub 保护()
    ActiveSheet.Protect Password:="123"
    ActiveSheet.EnableSelection = xlUnlockedCells
End Sub
Sub 保护2()
    '可选择锁定单元
    ActiveSheet.Protect Password:="123"
    ActiveSheet.EnableSelection = xlNoRestrictions
End Sub
Sub 保护3()
    '可选择锁定单元
    ActiveSheet.Protect Password:="123"
    ActiveSheet.EnableSelection = xlNoSelection
End Sub
Sub 解除保护()
    ActiveSheet.Unprotect Password:="123"
End Sub
哪位老师帮帮忙啊？

有你才幸福

怎么是没人帮忙还是不可能实现啊？

l00l00

你要保护哪个工作表呢?

有你才幸福

l00l00 发表于 2016-7-19 19:50
你要保护哪个工作表呢?

当前工作表啊，那个都行，问题不是那个工作表，而是怎么实现想怎么保护就这么保护。

l00l00

肯定是可以的。想怎么保护就怎么保护，想保护哪个就保护哪个，想什么时候保护就什么时候保护。