Excel，用vba代码禁用窗口向下还原

你可以使用以下 VBA 代码禁用 Excel 窗口的向下还原功能：

Private Sub Workbook_Activate()
    Application.WindowState = xlMaximized
    Application.EnableEvents = False
    Application.OnTime Now + TimeValue("00:00:01"), "EnableEventsTrue"
End Sub

Private Sub Workbook_Deactivate()
    Application.EnableEvents = False
End Sub

Sub EnableEventsTrue()
    Application.EnableEvents = True
End Sub

这段代码会在打开 Excel 文件时自动最大化窗口，并禁用向下还原功能。同时，它还会在文件失去焦点时禁用事件，以确保用户无法通过键盘快捷键还原窗口。最后，它会在一秒钟后重新启用事件，以确保 Excel 仍然可以正常工作。

相关问题

vba禁用窗口还原，以及取消禁用还原窗口发现的代码

要禁用 Excel 应用程序窗口的最大化和还原按钮，可以使用以下代码：

Application.WindowState = xlMaximized
Application.WindowState = xlNormal
Application.WindowState = xlMinimized
Application.Caption = "My Excel Application"

这些代码将窗口状态设置为最大化、正常和最小化，并将标题设置为 "My Excel Application"。这将禁用最大化和还原按钮，因为用户无法改变窗口状态。

要取消禁用最大化和还原按钮，只需将上述代码中的最后一行更改为以下代码：

Application.Caption = ""

这将将标题重置为默认值，恢复最大化和还原按钮的功能。

用vba代码禁用Excel的最大化最小化和关闭三个按钮

可以通过以下VBA代码禁用Excel的最大化、最小化和关闭三个按钮：

Private Declare PtrSafe Function FindWindow Lib "user32" Alias "FindWindowA" _
(ByVal lpClassName As String, ByVal lpWindowName As String) As Long

Private Declare PtrSafe Function GetSystemMenu Lib "user32" _
(ByVal hWnd As Long, ByVal bRevert As Long) As Long

Private Declare PtrSafe Function RemoveMenu Lib "user32" _
(ByVal hMenu As Long, ByVal nPosition As Long, ByVal wFlags As Long) As Long

Private Declare PtrSafe Function DrawMenuBar Lib "user32" _
(ByVal hWnd As Long) As Long

Sub DisableButtons()
    Dim hWnd As Long
    Dim hMenu As Long

    hWnd = FindWindow("XLMAIN", Application.Caption)
    hMenu = GetSystemMenu(hWnd, False)

    '禁用最大化按钮
    Call RemoveMenu(hMenu, 61488, &H0)
    Call RemoveMenu(hMenu, 61488, &HF060&)
    Call DrawMenuBar(hWnd)

    '禁用最小化按钮
    Call RemoveMenu(hMenu, 61472, &H0)
    Call RemoveMenu(hMenu, 61472, &HF020&)
    Call DrawMenuBar(hWnd)

    '禁用关闭按钮
    Call RemoveMenu(hMenu, 61536, &H0)
    Call RemoveMenu(hMenu, 61536, &HF060&)
    Call DrawMenuBar(hWnd)
End Sub

在这个示例中，我们使用Windows API函数 FindWindow、GetSystemMenu、RemoveMenu和DrawMenuBar来禁用最大化、最小化和关闭三个按钮。你可以在需要禁用按钮的地方调用这个子程序。