Apenas uma alteração, a chamada a função Username tem que estar entre duas aspas "". Private Sub Workbook_Open() 'Se o usuario for diferen...

Apenas acrescentando um If no loop resolveu Private Sub CommandButton1_Click() Dim con As New ADODB.Connection Dim cat As New ADOX.Catalog ...

O seguinte código faz exatamente isso, mas ele lista todos os campos de todas as tabelas, queria alterar para que exiba apenas os campos da tabela sel...

Não entendo muito dessa biblioteca, saberia se existe como alterar a rotina e listar tambem os campos de uma tabela escolhida na Listbox e carregar em...

Bom dia Patropi. Eu havia tentado essa solução, mas admito que as vezes fico sem concentração e não consigo entender muitas coisas. Mas encontrei esse...

Arquivo de imagem mesmo, pois assim o arquivo ficaria em um B, facilitando a organização e manutenção.

Veja se isso lhe ajuda Dim User As String Dim UltimaLinha, i As Long Dim Acesso As Boolean Sub AcessoRestrito() Acesso = False User = VBA.Envi...

Eu utilizo algo parecido com o seu brother, mas no caso eu utilizei uma combinação de Sendkeys para copiar um determinado trecho de uma planilha e col...

Bom dia brother, o caso de estar repetindo é porque quando você lança um novo registro, cada código que irá ser lançado na tabela representa uma nova ...

posta o seu exemplo que fica mais fácil de ajudar

Então brother, eu achei a solução para oque eu precisava em um forum gringo, deu certo, nem tentei entender como funcionava, passei o dia ontem testan...