[Resolvido]Desabilitar a Opção "Menus de Atalho predifinidos"

Caros li um artigo no site www.usandoacces.com.br relativo a como via vba fazer actualização das opções do access.
Entretanto sugiu-me uma dificuldade de como via VBA alterar as seguintes opções:

(1) - BASE DE DADOS ACTUAL/OPÇÕES DO FRISO E DA BARRA DE FERRAMENTAS/PERMITIR MENUS DE ATALHO PREDEFINIDOS.
(2) - CENTRO DE FIDEDIGNIDADE/DEFINIÇÕES DO CENTRO DE FIDEDIGNIDADE/DEFINIÇÕES DAS MACROS/ACTIVAR TODAS AS MACROS

Há uma forma de fazer a alteração dessa propriedade via VBA.
Agradecimnetos antecipados

Olá Fernando;

Para a sua 1ª duvida;

Cole num modulo novo;

Public Function SetProperties(strPropName As String, _
varPropType As Variant, varPropValue As Variant) As Integer
On Error GoTo Err_SetProperties
Dim db As DAO.Database, prp As DAO.Property

Set db = CurrentDb
db.Properties(strPropName) = varPropValue
SetProperties = True
Set db = Nothing

Exit_SetProperties:
Exit Function

Err_SetProperties:
If Err = 3270 Then
Set prp = db.CreateProperty(strPropName, varPropType, varPropValue)
db.Properties.Append prp
Resume Next
Else
SetProperties = False
Resume Exit_SetProperties
End If
End Function

Para chamar a função, por exemplo ao pressionar um botão;

Private Sub SeuBotão_Click()
Call SetProperties("AllowShortcutMenus", dbBoolean, False)
End Sub

Para a sua 2ª duvida, veja este excelente artigo do Avelino;

http://www.usandoaccess.com.br/tutoriais/tuto5.asp

JPaulo!
Agradeço a tua pronta colaboração, vou testar o código e depois digo-te algo.

JP!
Funcionou perfeitamente como queria.
Agradeço mais uma vez.

Opa, fico feliz.

Obrigado pelo retorno o fórum agradece.