Question

vba，excel想创建一个没有右上角叉窗体。

vba，excel想创建一个没有右上角叉窗体。即不能通过那个叉关闭窗体，求高手指导

Answer 1

是否下图的效果：

在窗体代码模块中添加如下代码：

Private Declare Function FindWindow Lib "user32" Alias _
    "FindWindowA" (ByVal lpClassName As String, ByVal lpWindowName As String) As Long
Private Declare Function SetWindowLong Lib "user32" Alias _
    "SetWindowLongA" (ByVal hwnd As Long, ByVal nIndex As Long, ByVal dwNewLong As Long) As Long
Private Sub UserForm_Initialize()
    SetWindowLong FindWindow(vbNullString, Me.Caption), -16, &H6C10000
End Sub
Private Sub CommandButton1_Click()
    Unload Me
End Sub

追问

我没打算用取消

Answer 2

用代码屏蔽窗体右上角那个关闭按钮
自己去看链接
http://club.excelhome.net/thread-1032977-1-1.html