插入窗体，输入代码如下：
 
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

 
在excel应用程序中，我们在执行代码的时候，会弹出是否要确认执行该处理提示框。
 
当然这个提示框不是我们用msgbox函数做出来的，而是系统自带用来防止误操作带来的影响。
 
但是有时候我们并不希望有这个提示框，因为会影响我们的操作效率。那么如何去掉这个提示框呢？
 
此代码的作用是删除工作簿中所有非正在活动的表格。运行程序，你会发现每次删除都会弹出下面的对话框Sub delSheet()
 
Dim sht As Worksheet
 
For Each sht In Worksheets
 
If sht.Name <> ActiveSheet.Name Then
 
sht.Delete
 
End If
 
Next
 
End Sub
 

 
解决办法：
 
添加DisplayAlerts属性为FALSE，可以关闭程序运行中是否显示警告信息。
 
注意：设置为false，要谨记在程序运行完重新设置为true！Sub delSheet()
 
Dim sht As Worksheet
 
Application.DisplayAlerts = False
 
For Each sht In Worksheets
 
If sht.Name <> ActiveSheet.Name Then
 
sht.Delete
 
End If
 
Next
 
Application.DisplayAlerts = True
 
End Sub

打开与关闭窗体的函数


将一些常用命令写成函数，以简化您的程序




如关闭窗体指令可将之写成以下形式放在模块中




Function strCloseForm(strFormName As String) As String 


On Error GoTo strCloseForm_Err 
　 




　　DoCmd.Close acForm, strFormName 




strCloseForm_Exit: 


　Exit Function 






strCloseForm_Err: 


　MsgBox Error$ 


　Resume strCloseForm_Exit 




End Function




调用方法：关闭本窗体 strCloseForm(Me.Name)


　　　　 关闭其它窗体 strCloseForm("FormName") 

 
时　间: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源码网店