access vba 禁止右键_利用VBA禁用或启用Access主程序的关闭按钮

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