如何让窗体的关闭 x 失效

3190496160

在窗体登录界面中要用到窗体，请问，如何让窗体右上角的  x  失效，请路过的朋友给段代码

excel海

Private Sub UserForm_QueryClose(Cancel As Integer, CloseMode As Integer)
    If CloseMode <> 1 Then Cancel = 1
End Sub

anzequ

Private Sub UserForm_QueryClose(Cancel As Integer, CloseMode As Integer)

　　Cancel = 1

　　End Sub

chxw68

另外办法就是用API函数直接不显示“X”。

1. Private Sub UserForm_QueryClose(Cancel As Integer, CloseMode As Integer)
   
2.   If CloseMode = 0 Then
   
3.     MsgBox "请单击【退出】按钮关闭窗体", vbCritical
   
4.     Cancel = True
   
5.   End If
   
6. End Sub
   

复制代码

liuxi001

不会百度哟，窗体中加入如下代码。

1. Private Sub UserForm_QueryClose(Cancel As Integer, CloseMode As Integer)
   
2.     If CloseMode = 0 Then Cancel = True
   
3. End Sub

复制代码

YZC51

试试
Private Sub UserForm_QueryClose(Cancel As Integer, CloseMode As Integer)
    If CloseMode = 0 Then
        Cancel = 1
    End If
End Sub

taller

窗体中加入如下事件代码，注意必须在窗体中提供退出的方式，否则这个窗体无法关闭

1. Private Sub UserForm_QueryClose(Cancel As Integer, CloseMode As Integer)
   
2.     Cancel = True
   
3. End Sub
   

复制代码

3190496160

taller 发表于 2020-3-8 03:38
窗体中加入如下事件代码，注意必须在窗体中提供退出的方式，否则这个窗体无法关闭

非常感谢，网上找了半天，找不到，祝一切安好

FOB_FN_L

3190496160 发表于 2020-3-8 07:31
非常感谢，网上找了半天，找不到，祝一切安好

可以换个角度找就找到了，VBA的窗体，不知EXCEL中有呀，ACCESS   WORD  VB的什么的，放开视野资源就多了，找起来也容易~还可以做成无标题栏的窗体，那样自然也就没有窗体右上角的关闭按钮了~~~

ggmmlol

api方法：

按步骤：找到窗体句柄，找到窗体菜单句柄，禁用（或恢复）窗体菜单的指定项（“关闭”按钮）

详见我的主题帖子：
禁用窗口（或vba用户窗体）的关闭按钮（Win32 API应用)
http://club.excelhome.net/thread-1407502-1-1.html
(出处: ExcelHome技术论坛)