最新消息:由于垃圾评论泛滥,本站使用了自动删除评论mysql语句,评论请勿使用纯英文或数字

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

工作中为了数据安全可能会给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 | 来源:本地下载  说明:请自行修改文件对应项
已经过安全软件检测无毒,请您放心下载。

转载请注明:澳门百家乐app—澳门百家乐ios下载 » 如何批量修改去除Excel打开和修改密码

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

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

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

网友最新评论 (6)

  1. 什么叫把下面的代码保存为“UpdateXls.vbs”双击执行,初级用户零基础不好意思
    hawaii4个月前 (06-04)回复
    • 就是新建个txt文件,然后把这里代码改了后复制进去,把文件名改成这个就行了
      澳门百家乐app—澳门百家乐ios下载4个月前 (06-08)回复
  2. 我改的怎么没用啊 填些需要修改的文档目录双击什么变化也没有啊 {smile:1}
    木木结罗木11个月前 (10-21)回复
  3. 哈哈,这个有用,不错不错。
    Me.稀奇5年前 (2015-02-28)回复