哪位大神帮忙去除一下工作簿中的保护密码

896841792 · 发表于 2020-3-11 16:58

哪位大神帮忙去除一下工作簿中的保护密码，非常感谢

andfor828 · 发表于 2020-3-11 17:28

嗯。可以了

喝酒吃肉 · 发表于 2020-3-11 17:37

Sub DeletePW()
ActiveSheet.Protect DrawingObjects:=True, Contents:=True, AllowFiltering:=True
ActiveSheet.Protect DrawingObjects:=False, Contents:=True, AllowFiltering:=True
ActiveSheet.Protect DrawingObjects:=True, Contents:=True, AllowFiltering:=True
ActiveSheet.Protect DrawingObjects:=False, Contents:=True, AllowFiltering:=True
ActiveSheet.Unprotect
End Sub
可以用这段宏试试。

896841792 · 发表于 2020-3-11 17:39

andfor828 发表于 2020-3-11 17:28
嗯。可以了

太厉害了，谢谢大神

云起南山 · 发表于 2020-4-2 20:07

喝酒吃肉发表于 2020-3-11 17:37
Sub DeletePW()
ActiveSheet.Protect DrawingObjects:=True, Contents:=True, AllowFiltering:=True
Acti ...

这是一般的密码都可以解开吗?

喝酒吃肉 · 发表于 2020-4-5 17:32

云起南山发表于 2020-4-2 20:07
这是一般的密码都可以解开吗?

应该可以，不过我毕竟遇到的加密工作簿太少了。

		自动登录	找回密码
密码			免费注册