VBA代码--撤销工作表保护

bb75308973

1. Public Sub 技巧3_039()
   
2.     Dim ws As Worksheet
   
3.     Set ws = Worksheets(1)    '指定要撤销保护的工作表
   
4.     ws.Unprotect    '没有密码保护时使用此语句
   
5.     ws.Unprotect Password:="hhh"     '有密码保护时使用此语句
   
6.     Set ws = Nothing
   
7. End Sub

复制代码

yl_li

要是有多个工作表都有保护呢？

fangmin2008

不错，学到了一招

e2solo

學習學習
學習學習

bb75308973

yl_li 发表于 2012-3-28 19:13
举个例子
工作簿中有个密码表，存放所有工表表的保护密码
写个过程批量解除密码

看此贴
http://www.excelpx.com/thread-232042-1-1.html

bb75308973

yl_li 发表于 2012-3-28 16:31
要是有多个工作表都有保护呢？

加个循环代码遍历有保护的工作表!!

yl_li

bb75308973 发表于 2012-3-28 16:59
加个循环代码遍历有保护的工作表!!

举个例子
工作簿中有个密码表，存放所有工表表的保护密码
写个过程批量解除密码