判断excel密码

qzu888

请教各位老师如下怎么实现呀：

1.已知目标路径有N个多层文件夹，每个文件内都有excel，名为"L*.XLS*"；文件夹层数最大3层
2.每个excel都设置了编辑文件密码"123456"


需求：
遍历判断指定路径下多层文件夹内excel名为"L*.XLS*"的打开密码是否为"123456"；如果excel没有密码或者密码不正确，则提示具体的excel密码不正确

tanglf188

这是工作表保护密码？

tanglf188

这是批量设置密码的，你可以利用错误返回判断

1.     Application.ScreenUpdating = False
   
2.     Set fs = CreateObject("Scripting.FileSystemObject").GetFolder("D:\cz") 'D:\cz修改为你需要的路径
   
3.     For Each fn In fs.Files
   
4.         Set wb = Workbooks.Open(fn.Path, 0)
   
5.         With wb
   
6.             .Password = "dy212300" 'dy212300改成你需要的密码
   
7.             .Save
   
8.             .Close
   
9.         End With
   
10.     Next

复制代码

qzu888

tanglf188 发表于 2024-6-19 11:33
这是工作表保护密码？

老师，不是工作表密码，是工作蒲打开时需要输入密码后才能编辑。不输入密码只能只读打开

laterite

真巧，前两天我刚问过类似问题

https://club.excelhome.net/thread-1692486-1-1.html