为Excel原文件添加密码保护遇问题：VBA代码触发保存副本弹窗

问题分析 #

你的代码直接打开文件设置密码后保存，但弹出“保存副本”对话框，核心原因是文件可能以只读模式打开，或者Excel默认的保存警报触发了提示，导致无法直接覆盖原文件。

修正后的代码 #

With wslist
    ' 关闭Excel各类提示对话框，避免干扰自动操作
    Application.DisplayAlerts = False
    
    For i = first_row To last_row - 1
        file_name = Worksheets("Home_Page").Cells(i, 6).Value
        temp_password = Worksheets("Home_Page").Cells(i, 7).Value
        
        ' 明确以可读写模式打开文件，确保能直接修改原文件
        Set masterWB = Workbooks.Open(Filename:=file_name, ReadOnly:=False)
        masterWB.Password = temp_password
        masterWB.Close SaveChanges:=True
    Next i
    
    ' 恢复显示警报，不影响后续Excel操作
    Application.DisplayAlerts = True
End With

关键修改说明 #

• Application.DisplayAlerts = False：禁用Excel的文件覆盖确认、只读提示等弹窗，让代码自动完成保存操作
• ReadOnly:=False：强制以可读写模式打开文件，避免只读状态导致只能保存副本

注意事项 #

• 操作前确认目标文件未被其他程序占用（比如已在其他Excel窗口打开）
• 建议先备份所有目标文件，防止意外操作导致文件损坏

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