[Resolvido]Como bloquear ALT + F4 no Access

Boa tarde

Tive uma situação com meu banco Access 2007 onde meus colegas estavam fechando o sistema.
Configurei em todos os formulários a opção Botão Fechar em Não. Também criei um módulo para remover o ícone X que fecha todo o Access.
Isso está funcionando. Consigo fechar o Access pelo botão que eu criei para isso no formulário principal, mas também pelo ALT + F4. A ideia é proibir também o fechamento do sistema pelo ALT + F4.

Procurei aqui no fórum, pela busca, mas não achei. Procurando na internet, achei alguma coisa com o seguinte código para o evento Ao apertar tecla:

Private Sub Form_KeyDown(KeyCode As Integer, Shift As Integer)
 
   If (Shift = 4 And KeyCode = vbKeyF4) Then
       KeyCode = 0
       Beep
   End If
   
End Sub

Ele não dá erro, mas mesmo com ele consigo fechar o Access pelo ALT + F4. Confesso que não entendo o código, pela minha falta de experiência.

Alguém já tentou bloquear o ALT + F4 para fechar o Access?

Desde já agradeço a ajuda.

Enio Eltz Filho.

Boa noite,

Consulte o tópico mencionado em baixo do site do mestre Avelino,
Creio que possa encontrar lá a sua resposta.

Copie e cole o link no seu navegador:

usandoaccess.com.br/dicas/como-interceptar-teclas-e-combinacoes-de-teclas.asp?id=1&idlista=148#inicio

Sucesso

Boa noite pcnet

Obrigado pelo retorno. Acessei o link rapidamente, mas preciso ler com calma. Pelo que entendi, lá tem toda a explicação que preciso.
Vou marcar esse tópico como resolvido. Se eu tiver dúvida eu volto aqui.

Grande abraço!!!

Enio Eltz Filho.

Deixo aqui um exemplo do mestre JPaulo:

Bloquear Alt + F4

Código:

Private Sub Form_KeyDown(KeyCode As Integer, Shift As Integer)
Dim intAltApertada As Integer
intAltApertada = (Shift And acAltMask) > 0
'Se a tecla Alt estiver apertada
If intAltApertada Then
'Se apertar F4
If (KeyCode = 115) Then
KeyCode = 0
MsgBox "você pressionou Alt e F4"
End If
End If
End Sub

Abraço e sucesso

Boa noite pcnet

O link que você enviou explica muito bem como fazer. funciona muito bem, era isso que eu precisava. Segue o código que eu fiz para exemplo.

Código:

Private Sub Form_KeyDown(KeyCode As Integer, Shift As Integer)
    '------------------------------
    'SHIFT = 1 | CTRL = 2 | ALT = 4
    '------------------------------
   
    Select Case Val((Shift * 100) & KeyCode)
        '-------------------
        'Intercepta ALT + F4
        '-------------------
        Case 400115
            KeyCode = 0
           
    End Select
   
End Sub

Obrigado.

Enio Eltz Filho.

Bom dia enio.eltz,

O fórum agrecede o seu feedback

Cumprimentos