Como desabilitar a tecla F11, atalho Janela Base de Dados no MS Access

(c) 2005 João Tito Lívio
'This code can only be use as a part of an Application and could not be sell'TIP: Use code in the Autoexec Macro'
Utilização: If DisableSpecialKeys = True then MsgBox"OK"

Option Compare Database

Public Function DisableSpecialKeys() As Boolean

On Error GoTo Err_DisableSpecialKeys
Dim db As Database
Dim Prop As Property
Const conPropNotFound = 3270

Set db = CurrentDb()
db.Properties("AllowSpecialKeys") = False
Set db = Nothing

DisableSpecialKeys = True

Exit_DisableSpecialKeys:
Exit Function
Err_DisableSpecialKeys:

If Err = conPropNotFound Then
Set Prop = db.CreateProperty("AllowSpecialKeys", dbBoolean, True)
db.Properties.Append Prop
Resume Next
Else
MsgBox "Disable did not Work!!"
DisableSpecialKeys = False
Resume Exit_DisableSpecialKeys
End If
End Function