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

本文介绍了一种通过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

评论
添加红包

请填写红包祝福语或标题

红包个数最小为10个

红包金额最低5元

当前余额3.43前往充值 >
需支付:10.00
成就一亿技术人!
领取后你会自动成为博主和红包主的粉丝 规则
hope_wisdom
发出的红包
实付
使用余额支付
点击重新获取
扫码支付
钱包余额 0

抵扣说明:

1.余额是钱包充值的虚拟货币,按照1:1的比例进行支付金额的抵扣。
2.余额无法直接购买下载,可以购买VIP、付费专栏及课程。

余额充值