破解后重筹，谢谢

a999kl · 发表于 2019-1-20 21:53

之前有个工作表设了秘密保护了工作表,但太久了不记得, 之前网上说可以利用VBA作破解, 可否提供一下代码并破解一下,非常感谢大家帮忙

记得破解后重筹，谢谢

cjc209 · 发表于 2019-1-20 21:59

已经去除

a999kl · 发表于 2019-1-20 22:04

我要取得原来的密码呀，不是简单将密码保护除去，如果是的话，简单的以下VBA就可以

Sub 破解工作表密码()
For x = 1 To Sheets.Count
Sheets(x).Protect AllowFiltering:=True
Sheets(x).Unprotect
Next x
End Sub

a999kl · 发表于 2019-1-20 22:28

可以移除2017版的么？

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

[求助] 破解后重筹，谢谢

最新热点 /1