登陆
最新消息: 网站开启https访问,有证书更安全!


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

技巧资料 骑猪看月亮 2740次浏览 4条评 论

工作中为了数据安全可能会给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,您需要填写昵称和邮箱!

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

网友最新评论(4)

  1. avatar
    我改的怎么没用啊  填些需要修改的文档目录双击什么变化也没有啊
    木木结罗木 2018-10-21 15:08 回复
    • avatar
      @木木结罗木:应该没问题的,我测试过的,你看是文件格式是不是有问题
      骑猪看月亮 2018-10-21 21:59 回复
  2. avatar
    哈哈,这个有用,不错不错。
    Me.稀奇 2015-02-28 16:04 回复
    • avatar
      @Me.稀奇:那是,曾经拷回的几十个都带密码的表,我直接崩溃了,为此发誓一定要把这个问题给解决了!
      骑猪看月亮 2015-02-28 17:06 回复