[Resolvido]Como desabilitar o botão fechar[X] principal do Access no Office 365?

Tenho uma aplicação multiusuário que roda em rede. E não quero que o usuário utilize o botão Fechar Principal do Access [X].
Como eu faço isso?

Olá, tente aqui no Fórum

https://www.maximoaccess.com/t1098-retira-todos-os-botoes-do-banco

Vieira,
Já tentei mas este exemplo não funciona na Access Office 365.

Se esta não funcionar....

Private Const SWP_NOMOVE = &H2
Private Const SWP_NOSIZE = &H1
Private Const SWP_FRAMECHANGED = &H20
Private Const SWP_DRAWFRAME = SWP_FRAMECHANGED

Private Declare Function SetWindowLong Lib "user32" _
Alias "SetWindowLongA" (ByVal hwnd As Long, _
ByVal nIndex As Long, ByVal dwNewLong As Long) _
As Long
Private Declare Function GetWindowLong Lib "user32" _
Alias "GetWindowLongA" (ByVal hwnd As Long, _
ByVal nIndex As Long) As Long
Private Declare Function SetWindowPos Lib "user32" _
(ByVal hwnd As Long, ByVal hWndInsertAfter As Long, _
ByVal x As Long, ByVal y As Long, ByVal cx As Long, _
ByVal cy As Long, ByVal wFlags As Long) As Long

Sub HideAccessCloseButton()

Dim lngStyle As Long

lngStyle = GetWindowLong(hWndAccessApp, GWL_STYLE)
lngStyle = lngStyle And Not WS_SYSMENU
Call SetWindowLong(hWndAccessApp, GWL_STYLE, lngStyle)
Call SetWindowPos(hWndAccessApp, HWND_TOP, 0, 0, 0, 0, SWP_NOMOVE Or SWP_NOSIZE Or SWP_DRAWFRAME)

End Sub

Para chamar a função

Private Sub Command0_Click()

HideAccessCloseButton
End Sub

Vieira,
Não funciona porque estou usando uma maquina 64 Bits e não estou lembrado como faço a conversão.

Olá!

veja neste meu artigo uma opção (copie e cole o endereço abaixo no seu navegador):

usandoaccess.com.br/dicas/fechar-access-botoes-especificos.asp

Bom estudo!

Avelino Sampaio,
Obrigado!

Deu certo.