导读:
如果你因为忘记了工作表保护密码而懊恼,那么下面的代码会帮到你。
在工作表中,按Alt F11进入VBE窗口,依次按Alt、i、m插入一个模块,将代码cp进去,按F5运行,幸福来得太突然。
操作演示:
代码截图:
代码:
Option Explicit
''********************
''或许这是Ms Excel的一个漏洞,只要将AllowFiltering设置为True,那么呵呵!
''在Excel 2003、2007下亲测有效
''********************
''取消全部工作表保护
Sub RemoveAllShtPwd()
Dim sh As Worksheet
Application.ScreenUpdating = False
For Each sh In Sheets
''关键在这:允许用户使用工作表受保护之前设置的“自动筛选”
sh.Protect AllowFiltering:=True
sh.Unprotect
Next
Application.ScreenUpdating = True
MsgBox ''已取消全部工作表保护''
End Sub
''取消指定工作表保护
Sub RemoveShtPwd()
''这里指定的是 Employee 表
With Sheets(''Employee'')
.Protect AllowFiltering:=True
.Unprotect
End With
MsgBox ''已取消工作表保护''
End Sub
''对全部工作表设定保护密码
''如果工作表已有密码,则先运行一下RemoveAllShtPwd
Sub AddAllShtPwd()
Dim sh As Worksheet
''为常量指定密码字符串 ''Asd123''
Const pwd As String = ''Asd123''
Application.ScreenUpdating = False
For Each sh In Sheets
sh.Protect pwd
sh.Protect
Next
Application.ScreenUpdating = True
MsgBox ''已对全部工作表设定密码保护''
End
|