主页
Windows
破解Excel密码方法
iptsh
Windows
128
2019-1-14
1、按 Alt+F11 ，调出VBA编辑窗口。
2，复制以下代码到VBA编辑框。
Sub pojie() ActiveSheet.Protect DrawingObjects:=True, contents:=True, AllowFiltering:=True ActiveSheet.Protect DrawingObjects:=False, contents:=True, AllowFiltering:=True ActiveSheet.Unprotect End Sub
1
2
3
4
5
Sub
pojie
(
)
ActiveSheet
.
Protect
DrawingObjects
:
=
True
,
contents
:
=
True
,
AllowFiltering
:
=
True
ActiveSheet
.
Protect
DrawingObjects
:
=
False
,
contents
:
=
True
,
AllowFiltering
:
=
True
ActiveSheet
.
Unprotect
End
Sub
3，点击运行，保存。
THE END
