[已解决]如何对选中的sheet表同时解除密码

byhdch

如何对选中的sheet表同时解除密码

最佳答案

月排行榜 / 总排行榜

Zipall

2011-7-24 20:02

回复 byhdch 的帖子

1. 
   
2. Sub test()
   
3.     For Each s In ActiveWindow.SelectedSheets
   
4.         s.Unprotect "xyz" '假设选中的工作表的保护密码均为xyz
   
5.     Next
   
6. End Sub
   

复制代码

跳转到最佳答案楼层

windimi007

回复 byhdch 的帖子

是不是这样？{:4512:}

1. Sub aa()
   
2.     Dim i As Integer
   
3.     For i = 1 To Sheets.Count
   
4.         If Sheet(i).ProtectContents = True Then Sheets(i).Unprotect
   
5.     Next i
   
6. End Sub

复制代码

Zipall

回复 byhdch 的帖子

1. 
   
2. Sub test()
   
3.     For Each s In ActiveWindow.SelectedSheets
   
4.         s.Unprotect "xyz" '假设选中的工作表的保护密码均为xyz
   
5.     Next
   
6. End Sub
   

复制代码

windimi007

回复 Zipall 的帖子

猫哥，不太明白，为什么你的代码不需要判断工作表是否被保护呢？{:3112:}

byhdch

回复 windimi007 的帖子

mm不能同时全部解除

byhdch

回复 Zipall 的帖子

mm不能同时全部解除

Zipall

回复 windimi007 的帖子

不管工作表是否保护,用unprotect时都不会报错.

它就像大力丸,有病治病,无病强身.

Zipall

byhdch 发表于 2011-7-24 20:10
回复 windimi007 的帖子

mm不能同时全部解除

传个不能解除的列子上来.

windimi007

回复 Zipall 的帖子

真的耶！猫猫表述得好深动啊！{:1612:}

Zipall

回复 byhdch 的帖子

不用传了.
我已经知道你错在哪里了.
你没搞明白"所有sheet"和"选中的sheet"的区别.

http://www.excelpx.com/thread-187702-1-1.html