Excel精英培训网

 找回密码
 注册
数据透视表40+个常用小技巧,让你一次学会!
查看: 3418|回复: 8

[已解决]恳求解除统一excel表格加密的vba代码,万分感谢

[复制链接]
发表于 2014-9-5 09:08 | 显示全部楼层 |阅读模式
我现急需一个代码,当我执行的时候,他把同一文件夹内其他加密的密码全部解除加密,所有文档的加密密码是1234,同时这个代码所在的excel是在同一文件夹内。恳请各位师傅的帮忙,谢谢
发表于 2014-9-5 09:20 | 显示全部楼层
1. 上附件
2. 可以用dir取得文件夹下的工作表,然后循环unprotect
回复

使用道具 举报

 楼主| 发表于 2014-9-5 09:31 | 显示全部楼层
现在上附件,恳请各位高手的帮忙,谢谢各位高手师傅的帮忙

1.rar

10.54 KB, 下载次数: 2

回复

使用道具 举报

发表于 2014-9-5 09:46 | 显示全部楼层
  1. Sub a()
  2. Dim mypath$$, myname$$, wb As Workbook
  3. mypath = ThisWorkbook.Path & ""
  4. myname = Dir(mypath & "*.xls")
  5. Do While myname <> ThisWorkbook.Name

  6.    Set wb = Workbooks.Open(Filename:=mypath & myname, Password:=1234)
  7.    ActiveWorkbook.Password = ""
  8.    wb.Close True

  9.    myname = Dir
  10. Set wb = Nothing
  11. Loop


  12. End Sub

复制代码
回复

使用道具 举报

发表于 2014-9-5 09:47 | 显示全部楼层    本楼为最佳答案   
附件

1.rar

24.69 KB, 下载次数: 14

回复

使用道具 举报

 楼主| 发表于 2014-9-5 10:17 | 显示全部楼层
这儿有肥猫师傅您好,我忘记了我的文档命名是以文字命名的,结果这个代码放进后,对文字命名的文档不起作用,恳请您再帮看下,谢谢,附件再付上,再次万分感谢。

1.rar

16.95 KB, 下载次数: 2

回复

使用道具 举报

发表于 2014-9-5 10:26 | 显示全部楼层
qiongmei 发表于 2014-9-5 10:17
这儿有肥猫师傅您好,我忘记了我的文档命名是以文字命名的,结果这个代码放进后,对文字命名的文档不起作用 ...

跟表名无关的呀!一样可以解密
回复

使用道具 举报

 楼主| 发表于 2014-9-5 10:32 | 显示全部楼层
不能解密,请您试下我的附件
回复

使用道具 举报

 楼主| 发表于 2014-9-5 10:41 | 显示全部楼层
不好意思,是我弄错了
回复

使用道具 举报

您需要登录后才可以回帖 登录 | 注册

本版积分规则

小黑屋|手机版|Archiver|Excel精英培训 ( 豫ICP备11015029号 )

GMT+8, 2024-3-28 23:08 , Processed in 0.385052 second(s), 11 queries , Gzip On, Yac On.

Powered by Discuz! X3.4

Copyright © 2001-2020, Tencent Cloud.

快速回复 返回顶部 返回列表