最新消息:把荒废已久的博客重新捡起来,持续更新!

如何批量修改去除Excel打开和修改密码

Office 骑猪看月亮 5746浏览 13评论

工作中为了数据安全可能会给Excel表格加密码,这样一来打开会提示输入密码,但是在做统计的时会来回打开好多张表格,这样每次都要求输入密码就会觉得很麻烦,着这里给大家教一个很简单的办法。

修改下面的”C:\Documents and Settings\Lawrence\Desktop”,用包含需要修改密码的Excel文件的目录替换

Excel的密码分两种,一个是打开密码,一个是修改密码。

此处假设你初始的打开密码是”1″,初始的修改密码是”2″。

而你要设置的新的打开密码是”3″,新的修改密码是”4″。(如果要去除打开密码和修改密码这里留空即可去除)

把下面的代码保存为“UpdateXls.vbs”双击执行。

strOldPassword = "1"
strOldWritePassword = "2"
strNewPassword = "3"
strNewWritePassword = "4"
strPath = "C:\Documents and Settings\Lawrence\Desktop"

Set objExcel = CreateObject("Excel.Application")
objExcel.DisplayAlerts = False
strComputer = "."
Set objWMIService = GetObject("winmgmts:\\" & strComputer & "\root\cimv2")
Set FileList = objWMIService.ExecQuery ("ASSOCIATORS OF {Win32_Directory.Name='" & strPath & "'} Where " & "ResultClass = CIM_DataFile")
For Each objFile In FileList
    If objFile.Extension = "xls" Then
        UpdateFile objFile.Name
    End If
Next
objExcel.Quit

Sub UpdateFile(strXlsFile)
    On Error Resume Next
    Set objWorkbook = objExcel.Workbooks.Open(strXlsFile,,,,strOldPassword,strOldWritePassword,True)
    objWorkbook.Password = strNewPassword
    objWorkbook.WritePassword = strNewWritePassword
    objWorkbook.Save
    objWorkbook.Close
End Sub
批量去除修改excel密码大小:4KB | 来源:本地下载  说明:请自行修改文件对应项
已经过安全软件检测无毒,请您放心下载。

发表我的评论
取消评论
表情

Hi,您需要填写昵称和邮箱!

  • 昵称 (必填)
  • 邮箱 (必填)
  • 网址

网友最新评论 (13)

  1. 加一个目前找到的比较好用的实测有效的途径吧,如果以上方法用不了的朋友可以试下: https://www.zhihu.com/question/448231410/answer/1773512370
    杨二小2个月前 (08-03)回复
  2. 请问如果是xlsx的格式,是不是就不能用?还是说把代码里德xls改成xlsx就可以?谢谢~
    杨二小2个月前 (08-03)回复
  3. 我太崇拜你了!
    出口电商3个月前 (07-07)回复
  4. 你好,请问Word打开密码有类似的方法吗?
    Rejey4个月前 (06-02)回复
    • 这个网上有破解工具,可以穷举,如果密码简单很快就能解开
      骑猪看月亮博主4个月前 (06-04)回复
      • 博主你好谢谢回复,工具我也找到了,我只是想学习下这些命令,我不是要解密码,只是要批量换密码或者去密码,word文档的我有密码
        Rejey4个月前 (06-07)回复
  5. 弄了半天终于好了! excel表格格式一定要注意!
    excel_rt2年前 (2019-09-26)回复
  6. 什么叫把下面的代码保存为“UpdateXls.vbs”双击执行,初级用户零基础不好意思
    hawaii2年前 (2019-06-04)回复
    • 就是新建个txt文件,然后把这里代码改了后复制进去,把文件名改成这个就行了
      骑猪看月亮博主2年前 (2019-06-08)回复
  7. 我改的怎么没用啊 填些需要修改的文档目录双击什么变化也没有啊 {smile:1}
    木木结罗木3年前 (2018-10-21)回复
    • @木木结罗木:应该没问题的,我测试过的,你看是文件格式是不是有问题
      骑猪看月亮3年前 (2018-10-21)回复
  8. 哈哈,这个有用,不错不错。
    Me.稀奇7年前 (2015-02-28)回复
    • @Me.稀奇:那是,曾经拷回的几十个都带密码的表,我直接崩溃了,为此发誓一定要把这个问题给解决了!
      骑猪看月亮7年前 (2015-02-28)回复