如何移除Excel文件只读属性并覆盖保存？（Excel 2003 VBA场景）

现有代码的问题 #

你当前的代码存在两个关键问题：

1. wb变量未定义，直接使用会报错，应该替换为ThisWorkbook；
2. 当文件以只读模式打开时，直接用SaveAs同名文件会因文件被占用而失败——Excel不允许覆盖正处于打开状态的文件。

修正后的实现方案 #

下面提供两种适配Excel 2003的可行方案，按需选择：

方案一：关闭文件→移除属性→重新打开保存

这种方式逻辑简单，适合大多数场景：
首先优化RemoveReadOnly函数，用VBA原生函数替代FSO，更高效：

Sub RemoveReadOnly(filePath As String)
    ' 检查文件是否带有只读属性
    If (GetAttr(filePath) And vbReadOnly) = vbReadOnly Then
        ' 移除只读属性，恢复为普通属性
        SetAttr filePath, vbNormal
    End If
End Sub

然后修改Workbook_Open事件代码：

Private Sub Workbook_Open()
    Dim originalFilePath As String
    originalFilePath = ThisWorkbook.FullName
    
    ' 判断当前文件是否为只读打开
    If ThisWorkbook.ReadOnly Then
        Application.DisplayAlerts = False
        
        ' 关闭当前只读文件（不保存临时修改）
        ThisWorkbook.Close SaveChanges:=False
        
        ' 移除原文件的只读属性
        RemoveReadOnly originalFilePath
        
        ' 重新打开文件（此时已变为可编辑状态）
        Dim targetWb As Workbook
        Set targetWb = Workbooks.Open(originalFilePath)
        
        ' 直接保存即可完成覆盖
        targetWb.Save
        
        Application.DisplayAlerts = True
    End If
End Sub

方案二：临时文件替换（无需关闭后重新打开）

如果需要避免关闭文件的操作，可以通过临时文件中转实现：

Private Sub Workbook_Open()
    Dim originalPath As String, tempPath As String
    originalPath = ThisWorkbook.FullName
    ' 生成临时文件路径，后缀为tmp.xls
    tempPath = Left(originalPath, InStrRev(originalPath, ".")) & "tmp.xls"
    
    If ThisWorkbook.ReadOnly Then
        Application.DisplayAlerts = False
        
        ' 先移除原文件的只读属性
        RemoveReadOnly originalPath
        
        ' 将当前只读文件另存为临时文件（指定Excel 2003格式）
        ThisWorkbook.SaveAs tempPath, FileFormat:=xlExcel8
        
        ' 关闭原只读文件
        ThisWorkbook.Close SaveChanges:=False
        
        ' 删除原文件
        Kill originalPath
        
        ' 将临时文件重命名为原文件名，完成覆盖
        Name tempPath As originalPath
        
        ' 打开新的可编辑文件
        Workbooks.Open originalPath
        
        Application.DisplayAlerts = True
    End If
End Sub

注意事项 #

• 确保文件所在路径有读写权限，否则修改属性或删除/重命名文件会报错；
• 如果文件位于网络共享文件夹，需确认没有其他用户正在打开该文件；
• Excel 2003的文件格式常量为xlExcel8，保存时需明确指定，避免格式兼容问题。

内容的提问来源于stack exchange，提问作者bsiilvia