工作簿保护密码忘了该如何去掉，求过程，感谢

alonzhang76

如题，请大师帮忙VBA代码解决！！

天真无鞋

看看是不是这样的

alonzhang76

天真无鞋 发表于 2024-5-5 17:44
看看是不是这样的

非常好，真的非常感谢，请问是用以下代码生成一个新的工作簿再替换掉原来的吗？

Sub 破解工作薄密码()
Dim sh As Worksheet
ActiveWorkbook.Sheets.Copy
For Each sh In ActiveWorkbook.Sheets
sh.Visible = True
Next
End Sub

alonzhang76

天真无鞋 发表于 2024-5-5 17:44
看看是不是这样的

Sub 破解工作薄密码()
Dim sh As Worksheet
ActiveWorkbook.Sheets.Copy
For Each sh In ActiveWorkbook.Sheets
sh.Visible = True
Next
End Sub


因为有很多这样的工作簿，若是这样用替换的方式有点不太方便，若能在原工作簿中直接解除就是最佳的了！

天真无鞋

alonzhang76 发表于 2024-5-5 18:03
Sub 破解工作薄密码()
Dim sh As Worksheet
ActiveWorkbook.Sheets.Copy

全部给你解除了的

天真无鞋

alonzhang76 发表于 2024-5-5 18:02
非常好，真的非常感谢，请问是用以下代码生成一个新的工作簿再替换掉原来的吗？

Sub 破解工作薄密码() ...

不是那个代码，如果多个工作表需要解密，可以发哦帮你。

alonzhang76

天真无鞋 发表于 2024-5-6 17:14
不是那个代码，如果多个工作表需要解密，可以发哦帮你。

已经耽误你时间了，不好意思再打扰你！方便告诉我方法吗，感激不尽

天真无鞋

alonzhang76 发表于 2024-5-6 20:18
已经耽误你时间了，不好意思再打扰你！方便告诉我方法吗，感激不尽

方法说不清楚

wengjl

有一个破解工具，会被360当作木马杀掉的，到网上的搜一下