看了你的代码，核心问题是当密码错误执行ThisWorkbook.Close时，Excel会默认弹出保存提示——这是因为工作簿打开后哪怕只是调整了窗口可见性，Excel也会把它标记为“已修改”状态。咱们可以通过一行关键代码搞定这个问题，同时给你的代码做些小优化，让它更健壮：

修改后的完整代码 #

Option Explicit ' 强制变量声明，避免拼写错误之类的潜在bug

Private Sub Workbook_Open()
    Dim Welc As Variant, Pass As String, Prompt As String, Title As String, UserPass As String
    
    ThisWorkbook.Windows(1).Visible = False
    
    ' 信任用户直接放行
    If Application.UserName = "User1" Or Application.UserName = "User2" Then
        Welc = MsgBox("Welcome " & Application.UserName, vbInformation)
        ThisWorkbook.Windows(1).Visible = True
        Exit Sub
    End If
    
    ' 非信任用户验证密码
    Pass = "1973"
    Prompt = "Enter the password to continue"
    Title = "Password Input"
    UserPass = InputBox(Prompt, Title)
    
    If UserPass <> Pass Then
        Prompt = "You have entered an incorrect password"
        Title = "Incorrect Password"
        MsgBox Prompt, vbCritical, Title
        
        ' 关键：标记工作簿为已保存状态，跳过保存提示
        ThisWorkbook.Saved = True
        ThisWorkbook.Close
        Exit Sub
    End If
    
    ' 密码验证通过
    Welc = MsgBox("Welcome " & Application.UserName, vbInformation)
    ThisWorkbook.Windows(1).Visible = True
End Sub

关键修改点说明 #

• Option Explicit：强制所有变量必须提前声明，能避免很多因为变量名拼写错误导致的奇怪bug，建议写VBA时都把这行放在代码最开头
• ThisWorkbook.Saved = True：这是解决保存提示的核心！它相当于告诉Excel“这个工作簿没有需要保存的更改”，所以关闭时就不会弹出烦人的保存确认框了
• 调整了代码结构，把重复逻辑拆分，可读性和维护性更好

额外小提醒 #

如果你的工作簿本身有需要保存的业务内容，关闭前要确认真的不需要保存再设置Saved=True——不过你的场景是密码错误直接拒绝访问，所以这个设置完全安全，不会丢失任何数据。

内容的提问来源于stack exchange，提问作者Armas.Chuy