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

Posted 2023-03-06

【中文标题】在excel中，如果窗口最小化，保持最大化

【英文标题】：in excel, if window is minimized, keep it Maximized

【发布时间】：2022-01-17 16:53:32

【问题描述】：

如果在 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任何帮助， 谢谢。

【参考方案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`

【讨论】：

谢谢您，我应用了您的代码，但它的操作方式相同，不幸的是，双击单元格时仍会最小化 excel..