NET程序控制EXCEL菜单代码举例

最新推荐文章于 2025-06-02 15:01:41 发布

ZOU_SEAFARER

最新推荐文章于 2025-06-02 15:01:41 发布

阅读量795

点赞数

CC 4.0 BY-SA版权

分类专栏： NET 文章标签： excel integer function user

本文链接：https://blog.youkuaiyun.com/ZOU_SEAFARER/article/details/4349351

NET 专栏收录该内容

29 篇文章

订阅专栏

本文介绍了一种通过API调用禁用Excel窗口关闭按钮的方法。利用VB或VBA编程，可以通过获取系统菜单句柄并移除特定位置的菜单项来实现这一功能，最后通过重绘菜单使更改生效。

摘要生成于 C知道，由 DeepSeek-R1 满血版支持，前往体验 >

    Private Declare Function GetSystemMenu Lib "User32" (ByVal hwnd As Integer, ByVal bRevert As Long) As Integer
    Private Declare Function RemoveMenu Lib "User32" (ByVal hMenu As Integer, ByVal nPosition As Integer, ByVal wFlags As Integer) As Integer
    Private Declare Function DrawMenuBar Lib "User32" (ByVal hwnd As Integer) As Integer
    Private Declare Function GetMenuItemCount Lib "User32" (ByVal hMenu As Integer) As Integer
    Private Const MF_BYPOSITION = &H400&
    Private Const MF_DISABLED = &H2&

    Dim CBCtl As New ArrayList

    Private Sub disableX(ByVal wnd As Excel.Application)
        Dim hMenu As Integer, nCount As Integer
        '得到EXCEL句柄
        hMenu = GetSystemMenu(wnd.Hwnd, 0)
        '获得菜单总数
        nCount = GetMenuItemCount(hMenu)
        '关闭菜单按钮为最后一个
        Call RemoveMenu(hMenu, nCount - 1, MF_BYPOSITION Or MF_DISABLED)
        '重画菜单图像
        DrawMenuBar(wnd.Hwnd)
    End Sub