插入窗体，输入代码如下：
Option Explicit
'****************************************
'---此模块演示了禁用窗体关闭按钮---
'****************************************
'以下声明API函数
#If Win64 Then '64位
    '查找窗口
    Private Declare PtrSafe Function FindWindow _
        Lib "user32" _
        Alias "FindWindowA" ( _
            ByVal lpClassName As String, _
            ByVal lpWindowName As String) _
    As LongPtr
    '取得窗体系统菜单
    Private Declare PtrSafe Function GetSystemMenu _
        Lib "user32" ( _
            ByVal hwnd As LongPtr, _
            ByVal bRevert As Long) _
    As LongPtr
    '删除菜单项
    Private Declare PtrSafe Function DeleteMenu _
        Lib "user32" ( _
            ByVal hMenu As LongPtr, _
            ByVal nPosition As Long, _
            ByVal wFlags As Long) _
    As Long
    '重绘窗体标题栏
    Private Declare PtrSafe Function DrawMenuBar _
        Lib "user32" ( _
            ByVal hwnd As LongPtr) _
    As Long
#Else '32位
    '查找窗口
    Private Declare Function FindWindow _
        Lib "User32" _
        Alias "FindWindowA" ( _
            ByVal lpClassName As String, _
            ByVal lpWindowName As String) _
    As Long
    '取得窗体系统菜单
    Private Declare Function GetSystemMenu _
        Lib "User32" ( _
            ByVal Hwnd As Long, _
            ByVal bRevert As Long) _
    As Long
    '删除菜单项
    Private Declare Function DeleteMenu _
        Lib "User32" ( _
            ByVal hMenu As Long, _
            ByVal nPosition As Long, _
            ByVal wFlags As Long) _
    As Long
    '重绘窗体标题栏
    Private Declare Function DrawMenuBar _
        Lib "User32" ( _
            ByVal Hwnd As Long) _
    As Long
#End If

'以下定义常数
Private Const MF_BYCOMMAND = &H0&
Private Const SC_CLOSE = &HF060
'以下下定义变量
#If Win64 Then '64位
    Private FHwnd As LongPtr
    Private hMenu As LongPtr
#Else
    Private FHwnd As Long
    Private hMenu As Long
#End If

''关闭按钮点击
'Private Sub BtCancel_Click()
'    Unload Me
'End Sub
''恢复按钮点击
'Private Sub BtResume_Click()
'    '恢复原菜单
'    hMenu = GetSystemMenu(FHwnd, 1)
'    '重绘窗体标题栏
'    DrawMenuBar FHwnd
'End Sub
'**************************************
'---------------主程序-----------------
'**************************************
Private Sub UserForm_Initialize()
    '查找窗口句柄
    FHwnd = FindWindow("ThunderDFrame", Me.Caption)
    '取得窗体系统菜单
    hMenu = GetSystemMenu(FHwnd, 0)
    '删除系统菜单中关闭菜单
    DeleteMenu hMenu, SC_CLOSE, MF_BYCOMMAND
    '重绘窗体标题栏
    DrawMenuBar FHwnd
End Sub

时　间:2017-12-03 13:22:58
作　者:摘　要:    利用VBA禁用或启用Access主程序的关闭按钮。
正　文:
在利用ACCESS进行程序开发时，有时为了避免用户随意将程序关闭，需要临时禁用主程序窗口的关闭按钮，我们可以利用下面的代码实现。
在VBA编程器中新建下标准模块，把下面的VBA代码粘贴进去并保存，这时只要在需要的时候调用AccessCloseButtonEnabled(  )函数即可。如：禁用关闭按钮就这样调用函数Call AccessCloseButtonEnabled(False)；在需要启用关闭按钮时就这样调用Call AccessCloseButtonEnabled(True)。
Private Declare Function GetSystemMenu Lib "user32" (ByVal hwnd As Long, ByVal wRevert As Long) As Long
Private Declare Function EnableMenuItem Lib "user32" (ByVal hMenu As Long, ByVal wIDEnableItem As Long, ByVal wEnable As Long) As Long
Public Sub AccessCloseButtonEnabled(pfEnabled As Boolean)
On Error Resume Next
Const clngCommand As Long = &H0&
Const clngGrayed As Long = &H1&
Const clngClose As Long = &HF060&
Dim lngWindow As Long
Dim lngMenu As Long
Dim lngFlags As Long
lngWindow = Application.hWndAccessApp
lngMenu = GetSystemMenu(lngWindow, 0)
If pfEnabled Then
lngFlags = clngCommand And Not clngGrayed
Else
lngFlags = clngCommand or clngGrayed
End If
Call EnableMenuItem(lngMenu, clngClose, lngFlags)
End Sub
'禁用关闭按钮
'Call AccessCloseButtonEnabled(False)
'
'启用关闭按钮
'Call AccessCloseButtonEnabled(True)
附   件:
Access软件网官方交流QQ群(群号:39785885)
Access源码网店

大家好，我们今日继续讲解VBA代码解决方案的第102讲内容：如何在用户窗体上添加最大、最小化按钮。我们在使用VBA的窗体时，不知你是否注意到：VBA中的窗体标题栏上只有关闭按纽，没有最大最小化按钮的。如下图。
那么是否可以利用代码让窗口上也出现类似于EXCEL和WORD窗口的最大和最小化按钮呢？这时就要利用API函数了，利用API函数在窗体的标题栏上添加最大最小化按钮，是非常可行的。
如下面的代码所示。
Private Declare Function FindWindow Lib "user32" Alias "FindWindowA" (ByVal lpClassName As String, ByVal lpWindowName As String) As Long
Private Declare Function GetWindowLong Lib "user32" Alias "GetWindowLongA" (ByVal hWnd As Long, ByVal nIndex As Long) 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 Const WS_MAXIMIZEBOX = &H10000
Private Const WS_MINIMIZEBOX = &H20000
Private Const GWL_STYLE = (-16)
Private Sub UserForm_Initialize() '注意是在此事件下的加载
Dim hWndForm As Long
Dim iStyle As Long
hWndForm = FindWindow("ThunderDFrame

大家好，我们今日继续讲解VBA代码解决方案的第102讲内容：如何在用户窗体上添加最大、最小化按钮。我们在使用VBA的窗体时，不知你是否注意到：VBA中的窗体标题栏上只有关闭按纽，没有最大最小化按钮的。如下图。
那么是否可以利用代码让窗口上也出现类似于EXCEL和WORD窗口的最大和最小化按钮呢？这时就要利用API函数了，利用API函数在窗体的标题栏上添加最大最小化按钮，是非常可行的。
如下面的代码所示。
Private Declare Function FindWindow Lib "user32" Alias "FindWindowA" (ByVal lpClassName As String, ByVal lpWindowName As String) As Long
Private Declare Function GetWindowLong Lib "user32" Alias "GetWindowLongA" (ByVal hWnd As Long, ByVal nIndex As Long) 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 Const WS_MAXIMIZEBOX = &H10000
Private Const WS_MINIMIZEBOX = &H20000
Private Const GWL_STYLE = (-16)
Private Sub UserForm_Initialize() '注意是在此事件下的加载
Dim hWndForm As Long
Dim iStyle As Long
hWndForm = FindWindow("ThunderDFrame