[resolvido]Dúvida referente Atualização de Ribbon em execução Access 2016

Olá, sou amador e estou fazendo um sistema de controle interno aqui na empresa, porém quero fazer um ribbon personalizado e com permissões.
Tentei pegar o exemplo do Avelino "RibbonGetVisible", porém está ocorrendo erro. No BD do Avelino funciona perfeito, porém quando adapto ao meu BD ele informa erro:

"Não pode executar a macro ou função de retorno de chamada "fncRibbon"
"Verifique se a macro ou a função existe e se possui os parâmetros corretos"

Mas conferi os módulos e está igual, a princípio tudo correto.

O mesmo ocorre na "fncgetVisible"

Public Sub fncGetVisible(control As IRibbonControl, ByRef visible)
On Error GoTo fError
Select Case control.id 'can be the control.tag
   Case "btn_cliente"
       visible = False
   Case Else
       visible = True
End Select
fError_Exit:
   Exit Sub
fError:
   MsgBox "Error: " & Err.Number & vbCrLf & Err.Description, vbCritical, "Warning", Err.HelpFile, Err.HelpContext
   Resume fError_Exit:
End Sub



Este é um teste que estou fazendo, mas a intenção é fazer um login e dependendo do usuário eu tornar o botão visível ou não.
Alguma dica? Pode ser Problema de versão?

Continuei minhas pesquisas e encontrei o erro,

não tinha Habilitado a Referência Microsoft Office 16.0 Object Library

Só foi Habilitar funcionou o exemplo adaptado.