[已解决]如何快速将同一工作薄下的多个工作表的公式锁定

双飞叶

有一工作薄中有很多工作表，每张工作表下面有多个公式，一张一张工作表设定保护公式比较麻烦，有没有快速的方式。

最佳答案

月排行榜 / 总排行榜

我不知道呀

2011-2-19 10:31

Sub 保护工作表()
For Each one In Worksheets
one.Select
    ActiveSheet.Protect Password:=123456#, _
    DrawingObjects:=True, _
    Contents:=True, Scenarios:=True
    Next one
End Sub
把这段代码放入你的EXCEL模块中即可

跳转到最佳答案楼层

我不知道呀

Sub 保护工作表()
For Each one In Worksheets
one.Select
    ActiveSheet.Protect Password:=123456#, _
    DrawingObjects:=True, _
    Contents:=True, Scenarios:=True
    Next one
End Sub
把这段代码放入你的EXCEL模块中即可

双飞叶

我不知道呀 发表于 2011-2-19 10:31
Sub 保护工作表()
For Each one In Worksheets
one.Select

测试了一下，比较好用，要运行一下宏，
密码是123456吧
要是我不要密码，是不是只要删除123456就行了，比如成为下面的
Sub 保护工作表()
For Each one In Worksheets
one.Select
    ActiveSheet.Protect Password:=#, _
    DrawingObjects:=True, _
    Contents:=True, Scenarios:=True
    Next one
End Sub

我不知道呀

回复 双飞叶 的帖子

{:912:}{:912:}

双飞叶

回复 我不知道呀 的帖子



删除密码123456，不行啊，出现错误，要是不加密码保护怎么设置

ls

双飞叶 发表于 2011-2-19 10:50
测试了一下，比较好用，要运行一下宏，
密码是123456吧
要是我不要密码，是不是只要删除123456就行了， ...

Sub 保护工作表()
For Each one In Worksheets
one.Select
    ActiveSheet.Protect Password:="", _
    DrawingObjects:=True, _
    Contents:=True, Scenarios:=True
    Next one
End Sub

ls

多动手试下就可以了

双飞叶

ls 发表于 2011-2-19 21:48
Sub 保护工作表()
For Each one In Worksheets
one.Select

哦，我也试了不少回，就是不对，原来密码为空用""来实现啊，

我不知道呀

回复 双飞叶 的帖子

是的{:912:}

小考拉

好好的来学习下