[已解决]同一目录工作簿批量一键设置打开权限及只读权限密码

icenotcool · 发表于 2013-11-28 16:49

本帖最后由 icenotcool 于 2014-2-26 23:32 编辑

各位老师好，本人想在同一目录下设置非本文件之外（名称为操作文件）的其他文件一键设置所有EXECEL工作簿打开及只读权限密码，和去除密码的两个模块，谢谢大家了，补充，因为实际需要设置的文件有几十个，所以就没有一一枚举，在VBA里面添加密码，还请老师，顺便帮我看看另外2个模块的语句问题：“批量复制文件”“批量生成文件目录”附件

多文件批量加密解密更新.rar (25.36 KB, 下载次数: 39)

zjdh · 发表于 2013-11-28 18:50

你要“批量复制文件”，复制什么文件？复制到那里？

icenotcool · 发表于 2013-11-28 22:14

zjdh 老师，不好意思，上传错文件，文件已经重新上传

zjdh · 发表于 2013-11-29 07:52

回答我2楼的问题，描述批量复制文件！

icenotcool · 发表于 2013-11-29 08:07

本帖最后由 icenotcool 于 2013-11-29 08:11 编辑

1.复制模块（Sub 复制工作簿()）：就是以文件“办公室”为复制模板，复制出来的文件名称分别以工作簿“操作文件”内“资料更新”sheet里A2:A以下的内容，
2.文件目录模块（Sub listfile()）：就是同目录下的文件名称自动被列举出来放在工作簿“操作文件”内“资料更新”sheet里A2:A以下的内容，但工作簿“操作文件”的名称除外不用放进去。（原程序要手动选择文件夹（目录））
3.当前目录文件一键设置（去除）密码2个模块（Sub 一键设置密码()和Sub 一键去除密码()）：则是把同级目录下的所有EXCEL文件都统一设置一个打开权限及只读权限及去除密码,F密码放在VB后台里面，但工作簿“操作文件”的除外不用设置及去除密码。
老师，这4个模块我都有底稿（工作簿“操作文件”内），可以在我底稿里面修改吗？附件

多文件批量加密解密（修改）.rar (15.45 KB, 下载次数: 16)

zjdh · 发表于 2013-11-29 09:45

明白啦

多文件批量加密解密和超链接.rar (22.81 KB, 下载次数: 81)

icenotcool · 发表于 2013-11-29 12:00

本帖最后由 icenotcool 于 2013-11-29 19:49 编辑

老师，其他的搞好了，只是有一个你理解错我意思了，3.当前目录文件一键设置（去除）密码2个模块（Sub 一键设置密码()和Sub 一键去除密码()）：则是把同级目录下的所有EXCEL文件都统一设置一个打开权限及只读权限及去除密码,把密码放在VB语句里面，但工作簿“操作文件”的除外不用设置及去除密码。（设置的不是工作表保护而是工作簿打开权限及只读权限）附件黄色区域，更新附件

多文件批量加密解密修改01.rar (18.47 KB, 下载次数: 28)

zjdh · 发表于 2013-11-29 13:39

第一组不是有啦！！

zjdh · 发表于 2013-11-30 10:30

本帖最后由 zjdh 于 2013-12-2 17:48 编辑

多文件批量加密解密2.rar (20.41 KB, 下载次数: 176)

icenotcool · 发表于 2013-11-30 11:44

本帖最后由 icenotcool 于 2013-11-30 18:09 编辑

老师，我看了你后来添加的语句是工作表保护，我说的是要是同一目录工作簿批量一键设置统一一个打开权限及只读权限密码，不是工作表保护密码，打开，请看附件

多文件批量加密解密修改01.rar (8.53 KB, 下载次数: 26)

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