'Num módulo padrão

Private Declare Function SystemParametersInfo Lib _
"user32" Alias "SystemParametersInfoA" (ByVal uAction _
As Long, ByVal uParam As Long, ByVal lpvParam As Any, _
ByVal fuWinIni As Long) As Long
'Dica adaptada de uma recebida do ForumNews da Forum Access, enviada para mim
'pelo Israel (Israeljr79@aol.com)

Public Function DisableCtrlAltDelete(bDisabled As Boolean)
    Dim X As Long
    X = SystemParametersInfo(97, bDisabled, CStr(1), 0)
End Function

'Num botão de comando

Private Sub cmdDesTeclas_Click()
    Call DisableCtrlAltDelete(True)
End Sub