[已解决][求助]怎么一次性把所有工作表设上密码

fggf

有20几个工作表，有没有办法一次就全部设上工作表保护密码？还是要一个个反复执行工具--保护---保护工作表--输入密码，这样太麻烦了！

另外，有没有办法一次性取消所有工作表密码？

谢谢！

最佳答案

月排行榜 / 总排行榜

函数小菜鸟

2009-10-12 13:41

Sub HJS1() '保护全部
    For Each sht In Sheets
        sht.Protect "123"
    Next
End Sub

Sub HJS2() '取消所有保护
    For Each sht In Sheets
        sht.Unprotect "123"
    Next
End Sub

跳转到最佳答案楼层

sunnydust

利用工作组概念，按住ctrl键，把所有工作表选上，然后可以统一设置。

tkgg93

Sub a()
For Each she In ActiveWorkbook.Sheets
she.Protect ("123456")
Next
End Sub

shgxf520

我也很想知道。

函数小菜鸟

Sub HJS1() '保护全部
    For Each sht In Sheets
        sht.Protect "123"
    Next
End Sub

Sub HJS2() '取消所有保护
    For Each sht In Sheets
        sht.Unprotect "123"
    Next
End Sub

fggf

QUOTE:

以下是引用sunnydust在2009-10-12 13:34:00的发言：

利用工作组概念，按住ctrl键，把所有工作表选上，然后可以统一设置。

这个我有试过，不行的

yaoxuejian

QUOTE:

以下是引用fggf在2009-10-12 13:44:00的发言：

这个我有试过，不行的

确实不行

只能用代码了

没事来逛逛

学习

shgxf520

老师，代码写好后，如何一次性执行？

xgsj

学习了