使用vba删除excel文件的密码

Sub RemoveExcelPassword()
    Dim wb As Workbook
    Dim ws As Worksheet
    Dim filePath As String
    Dim password As String
    
    ' 设置文件路径和密码
    filePath = "C:\path\to\your\file.xlsx"
    password = "your_password"
    
    ' 打开文件
    Set wb = Workbooks.Open(filePath, , , , password)
    
    ' 删除密码
    wb.Password = ""
    
    ' 保存文件
    wb.Save
    
    ' 关闭文件
    wb.Close
    
    ' 释放对象
    Set ws = Nothing
    Set wb = Nothing
    
    MsgBox "密码已成功删除！"
End Sub

Sub SaveAsNoPassword()
    Dim wb As Workbook
    Dim ws As Worksheet
    Dim filePath As String
    Dim password As String
    
    ' 设置文件路径和密码
    filePath = "C:\path\to\your\file.xlsx"
    password = "your_password"
    
    ' 打开文件
    Set wb = Workbooks.Open(filePath, , , , password)
    
    ' 保存为无密码文件
    wb.SaveAs "C:\path\to\your\file_no_password.xlsx", , , , , , , , , , , True
    
    ' 关闭文件
    wb.Close
    
    ' 释放对象
    Set ws = Nothing
    Set wb = Nothing
    
    MsgBox "已成功保存为无密码文件！"
End Sub