有关批量加密解密

opelwang

批量加密：打开对话框，选择要执行的excel文件（一个或多个）；
                 先运行：批量解密
                 弹出对话框提示输入需要添加的密码(遍历所有工作表)，所有工作表密码一致。
                 确定后执行。

批量解密：打开对话框，选择要执行的excel文件（一个或多个）；
                  顺序打开工作薄，遍历解除所有工作表中工作表保护密码。（密码未知，需破解）

敬请高手帮忙写段代码，谢谢~~~

兰色幻想

还要破解？这个用VBA很难实现，只能解一些简单的

opelwang

兰色幻想 发表于 2011-12-25 19:09
还要破解？这个用VBA很难实现，只能解一些简单的

兰版，用这几句代码好象可以吧。

        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

如果不能破解全部的，就解除固定密码。

兰色幻想

你这不是破解吧，只要专业的密码破解软件才可以

opelwang

兰色幻想 发表于 2011-12-25 21:55
你这不是破解吧，只要专业的密码破解软件才可以

我说的不是工作薄打开密码，而是工作表保护密码。
好象那四句可以吧。