在excel中，如果窗口最小化，保持最大化

Question

如果在 VBA 中最小化，我想最大化 excel 窗口。 我使用了这段代码，我认为它工作得很好（在 ThisWorkbook 中）：

Private Sub Workbook_WindowResize(ByVal Wn As Window)
Application.ScreenUpdating = False
Application.Calculation = xlCalculationManual
    If Wn.WindowState = xlMinimized Then
        Wn.WindowState = xlMaximized
        MsgBox ("This file cannot be minimized, please save the file while closing it.")
    End If
Application.ScreenUpdating = True
Application.Calculation = xlCalculationAutomatic
End Sub

在大多数情况下，代码确实有效，但在 excel 中双击单元格然后最小化文件后，似乎没有捕获 minimizimg 事件并且最大化命令没有启动。 我还尝试在 BeforeDoubleClick Sub 中调用 Workbook_WindowResize 以调用最大化事件，即使在双击一个单元格后它也没有效果。 将appriciate任何帮助， 谢谢。

Answer 1

当工作簿关闭时，会调用一个事件 BeforeClose。解决方案可能是将您的验证逻辑放在那里，并防止工作簿在验证不成功时关闭。

Private Sub Workbook_WindowResize(ByVal Wn As Window) Application.ScreenUpdating = False Application.Calculation = xlCalculationManual If ThisWorkbook.Saved = False Then Wn.WindowState = xlMaximized MsgBox ("This file cannot be minimized, please save the file while closing it.") End If Application.ScreenUpdating = True Application.Calculation = xlCalculationAutomatic End Sub`