禁用窗口（或vba用户窗体）的关闭按钮（Win32 API应用)

ggmmlol · 发表于 2018-4-12 12:04

本帖最后由 ggmmlol 于 2018-4-12 12:13 编辑

问题的提出：
我们已知，使用Windows API函数GetWindowLong和SetWindowLong函数，获取和修改窗口的风格，可以使窗口显示或隐藏“最大化”、“最小化”、“恢复”按钮；但如果要去除窗口的“关闭”按钮，该怎么做呢？

解决办法：
可以了解到，窗口的“关闭”按钮，属于窗口的“系统菜单”，由此可以使用Windows API中的菜单类函数来解决这个问题。

首先，使用GetSystemMenu函数，取得窗口的“系统菜单”的句柄；
然后使用MoveMenu函数，来禁用菜单中的项。

这个方法，对于一般程序的窗口有效，对于VBA的用户窗体同样有效。

附件演示了禁用VBA用户窗体和“记事本”程序窗口的“关闭”按钮的效果

效果：见下图。

zpy2 · 发表于 2018-4-12 13:44

不错，谢谢分享。

zhshmin2039 · 发表于 2019-12-24 19:43

在excel2010中正常，在excel2016中要求更新代码，本来就不明白，现在更不明白了

ggmmlol · 发表于 2020-3-8 09:01

今天有人提问了这个问题，我推荐了本帖的解决办法。顺道把原附件的代码更新为兼容于64位excel的环境

禁用窗口关闭按钮.rar (14.38 KB, 下载次数: 189)

02761752696 · 发表于 2020-12-3 08:47

谢谢分享学习

守候_CJ · 发表于 2022-12-31 22:45

窗体内置事件【_QueryClose】搞定
以WordVBA中的窗体为例：
事件代码：

Private Sub UserForm_QueryClose(Cancel As Integer, CloseMode As Integer)
If Cancel = False Then
Cancel = True
End If
End Sub

复制代码

守候_CJ · 发表于 2023-1-3 01:16

本帖最后由守候_CJ 于 2023-1-3 10:35 编辑

补充一下，有的组件可能是【_BeforeClose】事件，原理一样：

<blockquote>Private Sub UserForm_QueryClose(Cancel As Integer, CloseMode As Integer)

复制代码

toomee555 · 发表于 2023-2-23 18:08

守候_CJ 发表于 2022-12-31 22:45
窗体内置事件【_QueryClose】搞定
以WordVBA中的窗体为例：
事件代码：

		自动登录	找回密码
密码			免费注册

[原创] 禁用窗口（或vba用户窗体）的关闭按钮（Win32 API应用)

评分