如何批量修改去除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