解除工作表密码

chengqi55555

请问能解除VBA密码吗？

chengqi55555

解0人 发表于 2016-9-23 15:43
是的，上面的程序可以破解工作表保護密碼。
它可以破解密碼，並非是找出原本的密碼。
你可以這樣測試，設 ...

请问能解除VBA密码吗？

Orxd

646804566 发表于 2018-4-16 11:58
这个怎么一次性破解同一个表格下面多个工作薄呢？名字都不是sheet1之类的，一个个改名太麻烦呀

加个简单的工作表循环就可以了。
sub 解除保护（）
for each sht in sheets
    sht.Protect AllowFiltering:=true
    sht.unProtect
next
end sub

liangdinghu

硅谷少年 发表于 2016-12-15 19:37
哪用这么麻烦，立即窗口中运行下面两句：
sheet1.protect allowfiltering:=true
sheet1.Unprotect

牛牛牛牛牛牛牛牛牛牛牛牛牛牛

账房先生丶

硅谷少年 发表于 2016-12-15 19:37
哪用这么麻烦，立即窗口中运行下面两句：
sheet1.protect allowfiltering:=true
sheet1.Unprotect

试了一下，您的这个方法可以破解工作表的密码。请问工作簿保护的密码忘记了怎么破解？

硅谷少年

账房先生丶 发表于 2019-4-3 17:27
试了一下，您的这个方法可以破解工作表的密码。请问工作簿保护的密码忘记了怎么破解？

没试过，还没研究，你在论坛里或百度或谷歌一下，应该是有办法的。只有文件打开密码破解不了，其它的密码都是可以破解的。
所以还有一种方法是工作表内容加密，每个单元格里的内容都是AES加密的，这个极少用到。

神箭

硅谷少年 发表于 2016-12-15 19:37
哪用这么麻烦，立即窗口中运行下面两句：
sheet1.protect allowfiltering:=true
sheet1.Unprotect

这个可以吗？

sakana01

硅谷少年 发表于 2016-12-15 19:37
哪用这么麻烦，立即窗口中运行下面两句：
sheet1.protect allowfiltering:=true
sheet1.Unprotect

的确可用，谢谢

可爱天使

好用，2016测试通过

helenexj

账房先生丶 发表于 2019-4-3 17:27
试了一下，您的这个方法可以破解工作表的密码。请问工作簿保护的密码忘记了怎么破解？

vba的方法还不知道，非vba的话可以先改xlsx的后缀为rar，打开改完的压缩包找到xl/workbook.xml，解压出来以后用记事本打开，搜索Protection，把涉及到的一整句都删掉，保存以后替换压缩包里的文件，最后把后缀名再改回来就可以。同样的方法対工作表也有效